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

End.
В программе с предложением While отсутствует описание переменных К и I, а собственно
цикл имеет вид
   While X <= c do
    Begin
      Y := a * exp(-b * X) * Sin(omega * X + fi);
      If Y < Ymin then Ymin := Y;
      X := X + h
    End.
Пример Б.
Составить программу для нахождения наибольшего значения элемента массива Х[1..40] и
его порядкового номера.
Программа имеет вид
Program Max;
Const
    n = 40;
Var
    Xmax         : real;
    i, n, nmax : integer;
    X         : array[1..n] of real;
Begin
    { инициализация }
    Write('Введите количество элементов в векторе : ');
    Read (n);
    { Ввод знчений элементов вектора }
    For i := 1 to n do
      Write(' X[', i:2:0, '] = ');
      Read(X[i]);
      Xmax := X[1];
      nmax := 1;
    { цикл по поиску максимального значения элементов вектора }
    For i:= 2 to n do
      If X[i] > Xmax then
      Begin
        Xmax := X[i];
        nmax := 1;
      End;
    Writeln('Xmax = ', Xmax);
    Writeln('nmax = ', nmax)
End.

7. Нахождение корней нелинейного уравнения методом итераций.
Пример.
Методом итераций найти корень уравнения ArcSin(2X+1)-X=0, расположенный на отрезке
[-0.5; 0], с абсолютрой погрешностью Eps = 10. Напечатать число итераций, необходимых
для вычисления корня.
Заданное уравнение преобразуем к виду X = F(X) следующим образом:
ArcSin(2X + 1) = X;
Sin(ArcSin(2X + 1)) = SinX;
2X + 1 = SinX;
X = 0.5(SinX -1).


                                                                                  56