Программирование алгоритмов циклической структуры

[Гульвира]

Составить программу вычисления значений функций F(x) на отрезке [a,b] c шагом h. Результат пердставить в виде таблицы, первых столбец которой - значения аргумента, второй - соответствующие значения функции. Программу составить двумя способами: с использованием цикла с предусловием и с использованием цикла с постусловием.
F(x)=X*Sinx

[interacia]

Program cikl3;
Var a,b,f,h,x:real;
Begin

Write('a= '); Readln(a);
Write('b=');Readln(b);
Write('h= ');Readln(h);

x:=a;
writeln('___________________');
writeln('|   f    |   x    |');
writeln('|________|________|');
while x<=b do begin 
f:=x*sin(x); 

write('|',f:8:4);   write('|',x:8:4);  writeln('|');
x:=x+h; 
end;
writeln('|________|________|');
end.

Ссылка на код с комментарием

[hon]

Наработки где?