Turbo Pascal
Написать программу вычисления объема цилиндра. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).
Вычисление объема цилиндра.
Введите исходные данные:
Радиус основания (см) = 5
Высота цилиндра (см) = 10
Объем цилиндра 1570.80 куб.см.
Для завершения работы программы нажмите <Enter>.
Ответ
4
(11 оценок)
13
nikolac
11 лет назад
Светило науки - 678 ответов - 8223 помощи
uses crt;
var r,h:real;
begin
write('Радиус основания (см) = ');
read(r);
write(#'Высота цилиндра (см) = ');
read(h);
writeln('Объем цилиндра ',pi*r*r*h:0:2,' куб.см.');
end.
var r,h:real;
begin
write('Радиус основания (см) = ');
read(r);
write(#'Высота цилиндра (см) = ');
read(h);
writeln('Объем цилиндра ',pi*r*r*h:0:2,' куб.см.');
end.
Комментарии
на каком языке