Практикум по программированию на языке Turbo Pascal. Часть 1. Портнягина В.В - 63 стр.

     Пояснения к задаче 3
     Как и в задаче 1, длина последовательности обозначена буквой N и
должна быть положительной.
     В логическое < Условие > ставим N > 0, и до тех пор, пока будет вво-
диться отрицательное или нулевое значение последовательности, цикл repeat
будет работать и требовать: «Bведите длину последовательности N = ». Цикл
выполняется до тех пор, пока пользователь будет вводить отрицательное чис-
ло или ноль, и прервется при вводе положительного числа.
     Нижняя граница оператора определена словом until, и нет надобности в
операторных скобках Begin – End. Но если поставить операторные скобки, то
это не будет ошибкой.

    Задача 4
    Вычислить значение функции Y = X2 при Х = 8; Х = 6; Х = 4; Х = 2.
    PROGRAM Lab5_4;
    Uses Crt
     Var X,Y: real;
     Begin
        ClrScr;
        X : = 8;
        WriteLn('Табулирование функции');
        WriteLn(' X Y ');
        WriteLn('---------- ');
                 Repeat
                 Y : = X * X;
                 WriteLn(X : 4 : 2, Y : 6 : 2);
                 X : = X – 2;
                 Until X = 0;
        ReadLn;
    End.

    Пояснения к задаче 4
    Мы имеем дело с задачей, которая называется «Табулирование функ-
ции». У нас аргумент Х меняет свое значение от 8 до 2 с шагом – 2. Перемен-
ные X, Y объявляем как REAL. В переменную Y заносим вычисленное зна-
чение функции. Для организации цикла используем оператор цикла
с постусловием repeat. До входа в цикл присваиваем начальное значение ар-
гументу Х, равное 8. Затем печатаем шапку таблицы (три оператора WriteLn
перед оператором Repeat). Шапка таблицы используется для оформления
таблицы.
    В теле цикла делаем вычисления по формуле, печать и изменение значе-
ний аргумента на шаг, который равен –2.
    Окончание цикла осуществляется проверкой в операторе Until. Как
только Х примет значение, равное нулю, цикл прервется и далее последует
оператор ReadLn..
                                    63