Лабораторный практикум по программированию на языке Паскаль. Найханова Л.В - 52 стр.

       If a[i,j] > 0 then sum:=sum+a[i,j]; { оператор тела
                              внутреннего цикла}
       astr[i]:=sum { вычисление текущего элемента вектора }
    End; { конец тела внешнего цикла }
   { Вывод результата }
   WriteLn('Вектор положительных элементов строк матрицы:');
   For i:=1 to n do Write ('astr[',i:2:0,'] = ',astr[i]);
End.
7.3. Приемы программирования с использованием операторов цикла
В практике         программирования имеется банк типовых алгоритмов. Рассмотрим их
реализацию на следующих примерах:
1. Организация циклов с несколькими одновременно меняющимися параметрами.
Пример.
Составить программу для вычисления функции
             Z = (X + Y(i)) / (X - Y(i)) ,
если X изменяется одновременно с Y(i) от начального значения A с шагом h. Значения Y(i)
являются элементами массива Y[1..20].
Программа имеет вид:
Program Func;
Const
    N = 20;
Var
    X, h, A, Z : real;
    I       : integer;
   T        : array[1..N] of real;
Begin
   { инициализация }
    WriteLn('Введите величину шага и начальное значение переменной Х:');
    Read (h, A);
    X := A;
    { цикл }
    For i := 1 to N do
    begin
       Read(Y[i]);
       Z := (X + Y[i]) / (X - Y[i]);
       Writeln(' Z = ', Z);
       X := X + H
    end
End.

2. Табулирование функции.
Пример.
Составить программу для вычисления и запоминания функции
               Z = ( x + 1) / i ,
где X - элемент вектора X[1..50].
Для вычисления и вывода результатов удобно использовать оператор цикла FOR.
Программа имеет вид:
Program Tab;
Const
   nn = 50;
Var
    n, i : integer;
                                                                                    52