Помогите с задачкой на Turbo Pascal

[Svet_lana]

Составить программу вычисления значений функции F(x) на отрезке [a; b] с шагом h . Результат представить в
виде таблицы, первый столбец которой – значения аргумента, второй – соответствующие значения функции:
F(x) = sin2 x − cos 2 x .

[__STDC__]

задание на цикл, даа...

[Svet_lana]

да на цикл...вообще никак сооброзить не могу,неделю уже сижу(((

[__STDC__]

x := a;
while (x < b) do begin
   y := sin(2*x) − cos(2*x);
   inc(x,h);
   write(x:5,y:5:3);
end;

? или вам тоже полностью?

[Svet_lana]

спасибо огромное!!!!!!! если не сложно то полностью...

[__STDC__]

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

const
	a = 0;
	b = 10;
var
	h,x:integer;
	y:real;
begin
	x := a;
	h := 1;
	while (x <= b) do begin
		y := sin(2*x) - cos(2*x);
		inc(x,h);
		writeln(x:5,y:10:3);
	end;
	readln;
end.

[Svet_lana]

спасибо огромнейшее!!! Вы мне очень сильно помогли!))