Задание
Вычистить длину круга, площадь круга и объем слоя одной и того же заданного радиуса.
Выбор алгоритма решения задачи
В данном задании нужно ввести радиус. И вычислить длину, площадь и объем.
Описание решения задачи
Для решения данного задания введем три переменные: v, l, s. Тогда формулы можно записать так: v:= (4*pi*(R*r*r)) /3; l:= 2*pi*r; s:= pi*(R*r);
Схема алгоритма решения задачи
Текст програми
program Radius;
var
r: real;
l: real;
v: real;
s: real;
begin
write('Vvedite radius: ');
readln(r);
v:= (4*pi*(R*R*R))/3;
l:= 2*pi*R;
s:= pi*(R*R);
writeln('Obyom shara: ',v);
writeln('Dlina okruzhnosti: ',l);
writeln('Ploshad kruga: ',s);
end.
Результати роботи програми
