Программа для вычисления значений функции., Через оператор цикла с параментром. Опции

[Влад]

Помогите написать программу. :molitva:

Составить программу вычисления значений функции F(X) на отрезке [A,B] в точках Xi = A + iH , где H = (B – A)/M , M – заданное целое число.

Методические указания

1. для задания знеачений Х и соответствующих значений функции следует использовать простые переменные.
2. Значение шага Н должно вычислиться один раз.
3. при изменении значения аргумента Х испольовать оператор присваивания Х:=Х + Н , а не оператор с использованием операции умножения Х : = А + I * H , что существенно сокращает время выполнения программы.

ВАРИАНТ РАБОТЫ : Sin (X/4)/2

Параметры : А Pi/2
B Pi
M 15

[volvo]

Самому не стыдно? Куда уже проще - ведь все расписано...

Код

const
 a = Pi / 2;
 b = Pi;
 m = 15;
var
 h, now: real;
 i: integer;
begin
 h := (b - a) / m;
 now := a;
 for i := 1 to m do
   begin
     writeln('x = ', now:6:3, ' F(x) = ', (sin(now/4) / 2):8:5);
     now := now + h
   end;
end.