Информатика 10-11. Книга 2. Практика алгоритмизации и программирования. Шауцукова Л.З. - 8 стр.

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


Пример 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        "Это точка C"/TR>