Книги-online
Практикум — Глава 1. Алгоритмы линейной и разветвляющейся структуры
Пример 1.2.
Определить объём и площадь боковой поверхности цилиндра с
заданными радиусом основания R и высотой H.
Тест
|
Данные |
Результат |
| R = 1 |
H = 1 |
V = 3.14 |
S = 6.28 |
Демонстрация
Школьный АЯ
алг Цилиндр (арг вещ R, H, рез вещ V, S)
нач вещ Pi
Pi := 3.14
V := Pi * R**2 * H
S := 2 * Pi * R * H
кон
Turbo Pascal
Program Cylinder;
Uses Crt; {Подключение библиотеки Crt}
Var
R, {радиус основания цилиндра}
H, {высота цилиндра }
V, {объем цилиндра }
S: Real; {площадь боковой поверхности цилиндра}
BEGIN
ClrScr; {Вызов из библиотеки Crt процедуры очистки экрана}
Write('Введите высоту цилиндра : '); ReadLn(H);
Write('Введите радиус основания : '); ReadLn(R);
V := Pi * R * R * H;
S := 2 * Pi * R * H; WriteLn;
WriteLn('Объем цилиндра = ', V : 5 : 2); {Здесь 5 - общее
количество позиций, занимаемых переменной V при выводе,
а 2 - количество позиций в дробной части значения V}
WriteLn('Площадь боковой поверхности = ', S : 5 : 2);
ReadLn
END.
QBasic
CLS
INPUT "Введите высоту цилиндра : ", H
INPUT "Введите радиус основания : ", R
V = 3.14 * R ^ 2 * H
S = 2 * 3.14 * R * H : PRINT
PRINT "Объем цилиндра = "; V
PRINT "Площадь боковой поверхности = "; S
END
