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

[Влад]

Помогите написать программу. :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

[Влад]

Я сам написал , только небыл уверен в правельности. Некодил 4 года, а сейчас начал...

VAR H , X : Real;
        N : Integer;
BEGIN
clrscr;
H:=(Pi-Pi/2)/15;
X:=2;
FOR n:=1 to 16 do
BEGIN
writeln ('sin(',x:5:4,')=',(sin((x/4)/2)):5:4);
x:=x+h;
readln;
end;
end.