Program First;
var
A, B, C: Integer;
begin
C:=A+B;
end.
Program Hello_world;
begin
Write('Hello, world!');
Readln;
end.
Program Primer2;
var
A,B,C: Integer;
begin
Write('Введите А: ');
Readln(A);
Write('Введите B: ');
Readln(B);
C := A + B;
Write('A+B = ', C);
Readln;
end.
Сложить два числа A и B и вычесть из получившейся суммы C.
Program First;
var
A,B,C,Count: Integer;
begin
A := A + B;
Inc(Count);
A := A - C;
Inc(Count);
end.
Program Primer;
var
A,B: Integer;
begin
Write('Введите A: ');
Readln(A);
Write('Введите B: ');
Readln(B);
If A > B Then Write(A,' больше чем ',B,'!')
else Write(B,' больше чем ',A,'!');
Readln;
end.
Program krug;
Var
r,l,s: real;
Procedure SqLeOkr (r:real; var s:real; var l:real);
const
pi=3.14159
begin
s:=pi*r*r;
l:=2*pi*r;
end;
begin
writeln (‘Вычисление длины окружности и площади круга);
writeln (‘Задайте радиус и нажмите < Enter >’);
readln (r);
l:= 0;
s:=0;
SqLeOkr (r,s,l);
writeln (‘Радиус окружности: ‘, r:6:3 );
writeln (‘ Длина: ‘,1:6:3, ‘, площадь: ‘, s:7:3);
end.
Вычисление объема шара и площади его поверхности используя процедуру.
Program Shar;
var r, s, v: real
Procedure SharVS (r: real; var s, v: real);
const
pi =3.1415925;
begin
v: = (4*pi*r*r*r)/3;
s: = 4*pi*r*r;
end;
begin
s=0;
v=0;
write (‘Задайте радиус шара и нажмите <Enter>’ );
readln (r);
SharVS (r, s, v);
writeln (‘радиус ’, v : 6: 3);
writeln (‘объем ’, v : 6: 3);
writeln (‘площадь ’, v : 6: 3);
end.
Вычисление n!
var
n: byte;
ff: longint;
function fak(k: byte): longint:
var
i: byte;
F: longint;
begin
F:=1;
for i=1 to k do
F:=F*i;
Fak:=F;
end;
BEGIN
writeln(‘введите значение переменной n’);
readln(n);
ff:=fak(n);
writeln(‘n!=’,ff) { или writeln(‘n!=’,fak(n)}
END.
Даны действительные числа x и y. Вычислить f (x, y), где (a, b)= a+b- sin ab/ 2.5+ |a+b|
program f1;
var
x, y: real;
function f( a, b: real): real;
begin
f:=((a+b)-sin(a*b))/((2.5+abs(a+b))
end;
begin
writeln(‘Введите значения переменных x и y’);
readln(x, y);
writeln(‘Значение функции f=’,f(x,y))
end.
Даны массивы действительных чисел a и b, количество элементов каждого массива – 12. Массивы заполнить случайным образом. Вычислить: 1= max(a1 , a2 , a3 … a12 )+max(b1 , b2 ,b3 … b12).
program f2;
type
mas=array[1..12] of real;
var
a, b: mas;
i; byte;
function max_ mas(c: mas): real;
var
j: byte;
m: real;
begin
m:=c[1];
for j:=1 to 12 do
if m<c[j] then m:=c[ i ];
max_mas:=m
end;
BEGIN
for i:-1 to 12 do
begin
a [ i ]:=random/1.2-34.7;
b [ i ]:=57.5-random/ 3.4
end
end;
write(‘сумма максимальных элементов массивов=’);
writeln(max_mas(a)+max_mas(b))
END.
Program UseGOTO;
label
First;
var
A,B: Integer;
Begin
First: Write('Введите A: ');
Readln(A);
Write('Введите B: ');
Readln(B);
If A > B Then goto First;
Readln;
end.
Вот примеры присваивания значений переменной типа Char:
Program UseCHAR;
var
C: Char;
begin
C := 'Y';
Write(C);
C := ':';
Write(C);
Readln(C);
If C <> 'Y' Then Write('C не является буквой Y!');
Readln;
end.
0 1 2 3 4 5 6 7 8 9
0 1 2 3 4 5 6 7 8 9
...................
0 1 2 3 4 5 6 7 8 9
Program N1;
var
I,J: Byte;
Begin
For I := 1 to 10 do
Begin
For J := 0 to 9 do
Write(J, ' ');
Writeln;
end;
Readln;
end.
Program N3;
var
S: String;
Exit: Boolean;
begin
REPEAT
Write('Введите строку (end - выход): ');
Readln(S);
if S = 'end' then Exit := true;
UNTIL Exit;
Write('Конец программы...');
Readln;
end.
Program N2;
var
M: Array [1..10] of Integer;
Max: Integer;
I: Byte;
begin
Writeln('Введите 10 чисел: ');
For I := 1 to 10 do
begin
Write('N',i,': ');
Readln(M[i]);
end;
Max := M[1];
For I := 1 to 10 do
if Max < M[i] then Max := M[i];
Write('Максимальное число: ', Max);
Readln;
end.
Создать массив и записывать в него таблицу умножения, после чего распечатывать ее на экран.
Program N1;
uses Crt;
var
Mas: Array[1..10, 1..10] of Integer;
I, J: Byte;
begin
ClrScr;
For I := 1 to 10 do
For J := 1 to 10 do
Mas[I, J] := I * J;
For I := 1 to 10 do
begin
For J := 1 to 10 do
If Mas[I, J] < 10 then Write(Mas[I, J], ' ') else Write(Mas[I, J], ' ');
Writeln;
end;
Readln;
end.
