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

[Влад]

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

[Влад]

Я сам написал , только небыл уверен в правельности. Некодил 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.

[volvo]

Влад
Только откуда взялось

Код

X:=2;

Кроме этого, выражение:

(sin((x/4)/2))

считает не Sin (X/4)/2, а Sin (X/8)