Turbo Pascal

Написать программу вычисления объема цилиндра. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).

Вычисление объема цилиндра.

Введите исходные данные:

Радиус основания (см) = 5

Высота цилиндра (см) = 10

Объем цилиндра 1570.80 куб. см.

Для завершения работы программы нажмите.

Question

Информатика

Поликсюша

25 мая, 01:18

Turbo Pascal

Написать программу вычисления объема цилиндра. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).

Вычисление объема цилиндра.

Введите исходные данные:

Радиус основания (см) = 5

Высота цилиндра (см) = 10

Объем цилиндра 1570.80 куб. см.

Для завершения работы программы нажмите.

+1

Ответы (1)

Знаете ответ?

Инесса · Answer 1

Uses crt;

var r, h:real;

begin

write ('Радиус основания (см) = ') ;

read (r) ;

write (#'Высота цилиндра (см) = ') ;

read (h) ;

writeln ('Объем цилиндра ', pi*r*r*h:0:2,' куб. см.') ;

end.