Программа Паскаль

[Raudi_s]

Есть задача которую не знаю как доделать....выручайте плз...

Протабулировать указанную функцию на отрезке [a,b]:

а)Функцию Y=Sin(x^2) с шагом h.
Program kw1_4_4
var
a,b,h,x:real;
begin
readln(a);
readln(b);
readln(h);
readln(x);
while - тут надо как-нибудь так x>=a x<=b do Но так не компилирует
begin
writeln(a:6:3)
writeln(sin(Sqr(x))):6:3);
x:=x+h;
end;
readln;
end.
Зарание благодарю!

[Misterio1234]

Ды это просто
Program _1;
var
a,b,x,h:real;
begin
readln(a);readln(b);
writeln('vvedite kol-vo tochek razbienia otrezka [a,b]');
readln(n);
h:=(b-a)/n;
writeln('shag=',h:6);
for x:=a to b do
begin
writeln('sin(x^2)=',sin(sqr(x)):6);
x:=x+h;
end;
readln;
end.

[Raudi_s]

Спасибо тебе,но твоя программа тоже не компилирует)Я понял ход твоих мысле насчет
For x:=a to b do а я зациклился на записи именно такой записи x>=a x<=b )))))
Буду дальше разбираться)

[Uvaroff]

Помогите, плиз: 1)Вывести на экран разноцветные окна одинакового размера, обрамленные двойной рамкой. Количество окон должно соответствовать количеству цветов текста. В каждом окне вывести название соответствующего цвета и его номер.
2) В строке находятся слова, разделенные пробелами. Составить массив из этих слов.
Заранее спасибо