program CS;
var S,C:real;
var r:integer;
Const pi = 3.14;
begin
writeln('Введите радиус');
Readln(r);
C:= 2*pi*r;
S:= pi*sqr(r);
Writeln('Длина окружности = ', C:5:2);
Writeln('Площадь круга = ', S:5:2);
Readln();
end.
Объяснение:
Указываем переменные и константу pi. Так как радиусом указывается целое число, то присваиваем целочисленный тип (integer).
Площадь же и длина могут выходить за рамки целых чисел, поэтому присваиваем им вещественный тип (real).
writeln('Введите радиус'); - Выводит на экран надпись в скобках.
Readln(r); - функция для ввода радиуса
C:= 2*pi*r; - присваиваем значение для С (длина окружности)
S:= pi*sqr(r); - присваиваем значение для S (площадь круга)
Writeln('Длина окружности = ', C:5:2); - вывод на экран длины окружности ( двоеточие нужно для округления. После первого двоеточия указывается отступ от крайнего символа в данной строке, а после второго количество знаков после запятой).
Writeln('Площадь круга = ', S:5:2); - вывод на экран площади круга.
Readln(); - требуется для того, чтобы программа сразу не закрывалась. (В чистом PascalABC вроде бы не требуется, а вот в DELPHI точно. Но лучше оставить, если спросят, что это, то ты знаешь что ответить)
1) var A: array [1..7,1..9] of integer;
var i,j,k,n:integer;
var Sr: double;
begin
randomize;
writeln ('Массив случайных чисел');
for i:=1 to 7 do
begin
for j:=1 to 9 do begin
A[i,j]:= random (56) + 25;
write (A[i,j]:4);
end;
writeln;
end;
for i:=1 to 7 do
begin
for j:=1 to 9 do
begin
If A[i,j] mod 2 = 0 then
begin
Sr:= Sr + A[i,j];
k:= k + 1;
end
else n:= n + 1;
end;
end;
Sr:= Sr / k;
Writeln ('Среднее арифмитическое четных элементов: ', Sr);
Writeln ('Количество нечетных элементов: ', n);
end.
2)const n = 5;
const b = 5;
var A: array [1..n,1..b] of integer;
var i,j:integer;
begin
writeln ('Введите массив');
for i:=1 to n do
begin
for j:=1 to b do begin
Read (A[i,j]);
end;
end;
for i:=1 to n do
begin
for j:=1 to b do begin
If A[i,j] < 0 then
A[i,j]:= 1;
write (A [i,j]:4);
end;
Writeln;
end;
end.
