Question

Написать алгоритм и программу, которая по значению радиуса вычисляет длину окружности и площадь круга

Answer 1

Ответ:

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 точно. Но лучше оставить, если спросят, что это, то ты знаешь что ответить)