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

        ∞
                   x2n
Z = 1 + ∑ (−1) n          c точностью до члена ряда, меньшего Еps.
         n =1    ( 2 n )!
Программа имеет вид
Program SumRow;
Var
    Y, Z, X, Eps : real;
    n               : integer;
Begin
   { инициализация }
   Write('Введите значения переменной Х и погрешности: ');
   ReadLn(X, Eps);
   Y := 1;
   Z := 1;
   n := 1;
   { цикл }
   Repeat
      Y := Y * (-X * X / ( 2n - 1) * 2 n )));
      Z := Z + Y;
      n:=n+1
   until Y < Eps;
   Write('Сумма ряда = ', Z)
End.

6. Нахождение наибольшего и наименьшего значения элементов массива и функции.
Пример А.
Составить программу для нахождения наименьшего значения функции
       Y = a * Exp(- b * X) * Sin(omega * X + fi)
при изменении аргумента X в интервале от 0 до c с шагом h.
При организации          программы с предложением For необходимо подсчитать число
повторений, зависящее от интервала аргумента и его шага.
При использовании предложений While и Repeat введение дополнительного параметра не
требуется, так как цикл предусматривает изменение аргумента.
Программа с оператором For имеет вид
Program MinF;
Var
    a, b, c, omega, fi, h, Y, Ymin : real;
    k, i                  : integer;
Begin
    { инициализация }
    WriteLn('Введите значения переменных a,b,c,omega,fi,h:');
    ReadLn(a, b, c, omega, fi, h);
    Ymin := 1e19;
    k := trunc(c/h) + 1;
    X := 0;
    { цикл }
    For i:= 1 to k do
     begin
       Y := a * exp(-b * X) * Sin(omega * X + fi);
       If Y < Ymin then Ymin := Y;
       X := X + h
     end;
    Write('Ymin = ', Ymin)

                                                                               55