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

  X := a;
  N := 1;
  { вычисление функции в цикле }
  For i := N to K do
  begin
   Y := c * c /(c + X);
   WriteLn(i, ' Значение функции = ',Y:10:4);
   X:= X + h;
  end;
End.
Контрольный тест к программе.
Пусть Х изменяется в пределах от 0 до 3 с шагом 0.1, значение     константы с = 2, тогда a =
0, b = 2, h = 0.5, N = 1, K = 5.

I              1              2               3                 4              5
X              0              0.5             1                 1.5            2
Y              4/(2+0)=2      4/(2+0.5)=1.6   4/(2+1)≈1.3       4/(2+1.5)≈1.14 4/(2+2)=1

6.2. Вложенные циклы
Циклы могут быть вложены один в другой. Иногда их называют сложными циклами. При
использовании вложенных циклов необходимо составлять программу таким образом, чтобы
внутренний цикл полностью входил в тело внешнего цикла. Внутренний цикл может, в
свою очередь, иметь другой внутренний цикл (циклы). Структуру вложенных циклов
рассмотрим на примере.
Пример. Вычислить значение функции Y = 2L + M при всех значениях переменных M=1, 2, 3
и L=2, 4, 6, 8.
Программа должна содержать два вложенных друг в друга цикла. В качестве параметра
внешнего цикла удобно использовать переменнуюМ, а внутреннего - переменную L. Тогда
при первом значении M переменная L будет принимать значения 2, 4, 6, 8. При следующем
значении M переменная L также будет принимать значения 2, 4, 6, 8 и так до конца.
Программа имеет вид:
Program Circles;
Var
   M, L, Y : integer;
Begin
   For M := 1 to 3 do
   Begin { начало тела внешнего цикла }
       L := 2;
       While L <= 8 do
          Begin { начало тела внутреннего цикла }
             Y := 2 * L + M;
             Writeln('M = ', M:4, ' L = ', L:4, ' Y = ', Y:4);
             L := L + 2
          End { конец тела внутренного цикла }
    End { конец тела внешнего цикла }
  End.

Здесь внешний цикл организован с использованием предложения For, а внутренний - с
использованием предложения While. В процессе выполнения вложенных циклов переменные
получат следующие значения:

                 1-й    2-й   3-й   4-й                              9-й   10-й 11-й 12-й

                                                                                           47