Найти значение y=3*cos(x/2)+4 на интервале [2;4] с шагом h=0,2, используя цикл с предусловием.

Решение:program zadacha_1;const MaxM = 10;      h = 0.2;type myArray = Array[1..MaxM] of real;var A:myArray; //Результаты будем записывать сюдаx, y:real;i: integer;beginx := 2;while ((x >= 2.0) and (x <= 4.0)) do begin  for i:=1 to MaxM do begin    y := 3*cos(x/2)+4;    A[i] := y;    x := x + h;    end;end;for i:=1 to MaxM do  //Вывод массиваwrite(A[i]:20);end.

Я вариант попроще предложу...var  a,b,h,x:real;begin  writeln('Введите интервал (a,b) и шаг табуляции h: ');  readln(a,b,h);  x:=a;  {+0.000001 скомпенсирует накопление погрешности х}  while x<=b+0.000001 do    begin    writeln(x:7:3,' ',3*cos(x/2)+4:10:7);    x:=x+h    endend.Тестовое решение:Введите интервал (a,b) и шаг табуляции h: 2 4 0.2  2.000  5.6209069  2.200  5.3607884  2.400  5.0870733  2.600  4.8024965  2.800  4.5099014  3.000  4.2122116  3.200  3.9124014  3.400  3.6134665  3.600  3.3183937  3.800  3.0301313  4.000  2.7515595