Оператор For

[awarage]

Помогите пожалуйста с задачей (Delphi):

Составить код программы вычисления значений функции F(x) на отрезке [A,B] в точках Xi = A + i*H , где H = (B - A) / M , где M – заданное целое число. Выражение для вычисления функции F, значения A, B и M взять из таблицы 5.1 в соответствии с номером варианта. Вычисление и вывод значений функции F оформить в событии Click компонента BitBtn1. Значения A и B ввести с поля компонентов Edit1 и Edit2. Значение M задать локально в блоке Const. Вывести результат вычислений функции F и значений аргумента X в компонент Label1 с пояснением .

A = 0,3 B = 0,9 M= 15 F = sin (x)

[Mad_Cat]

h:=(b-a)/m;
for i:=0 to m do
begin
Label.caption:=Label.caption+#13#10+'При x= '+floattostr(a+h*i);
Label.caption:=Label.caption+' y= '+floattostr(sin(a+h*i));
end;