Меню сайта

Задача №14

Дан цилиндр, с заданным радиусом основания —r и высотой —h. Найти объем цилиндра.


Program begin_14-

Uses crt-

Var r,h: integer-

v:real-

Begin

ClrScr-

Writeln(‘введите радиус r’)- readln(r)-

Writeln(‘введите высоту’)- readln(h)-

v:=pi*sqr(r)*h-

writeln(v:4:2)-

readln-

end.

Категория: Линейные программы | Дата: 02.12.12

Меню раздела
Блок