Пример 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

Другие записи

10.06.2016. Пример 1.3. Даны три точки на плоскости. Определить, какая из них ближе к началу координат.
Система тестов Номер теста Данные Результат xA yA xB yB xC yC Otvet 1 2 1 2 2 -1 3 "Это точка A" 2 2 2 2 1 -1 3 "Это точка B" 3 2 2 -1 3 2 1 "Это…
10.06.2016. Пример 1.4. Найти произведение цифр заданного целого четырехзначного числа.
Система тестов Номер теста Проверяемый  случай Число Результат 1 Число положительное 2314 P = 24 2 Число отрицательное -1245 P = 40 Школьный АЯ алг Произведение…
10.06.2016. Пример 1.5. Решить квадратное уравнение ax2 + bx + c = 0.
Система тестов Номер теста Проверяемый случай Коэффициенты Результаты a b c 1 d >0 1 1 -2 x1 = 1, x2 =  - 2 2 d=0 1 2 1 Корни равны:  x1 =  - 1, x2 =  - 1 3 d<0 2 1 2 Действительных…
10.06.2016. Пример 1.6. Две прямые описываются уравнениями a1 x + b1 y + c1 = 0; a2 x + b2 y + c2 = 0. Напечатать координаты точки пересечения этих прямых, либо сообщить, что эти прямые совпадают, не пересекаются или вовсе не cуществуют.
Система тестов Номер теста Проверяемый  случай Коэффициенты прямых Результаты a1 b1 c1 a2 b2 c2 1 Первая прямая не существует 0 0 1 1 2 2 Это не прямая 2 Вторая…