Вычисление значений функции

[KREGI]

Помогите, вот задачка:

[Sazary]

Как я понимаю, на паскале?

uses crt;
var
a,b,h : real;
x,y : real;

begin
clrscr;
write('Enter a: ');
readln(a);
write('Enter b: ');
readln(b);
write('Enter h: ');
readln(h);
writeln;
x := a;
while x<=b do
 begin
 y := sin(x)*sin(x); { второе: cos(x) + cos(x)/sin(x); }
 writeln(x:5:2,'   ',y:7:4);
 x := x+h;
 end;

readln;
end.

Проверок нет. Корректность исходных данных на совести вводящего.

[KREGI]

А, я не написал, на делфи...

[capta1n]

в начале программы {apptype console} и будет тебе на делфи )

[Sazary]

А, я не написал, на делфи...

Тогда переделайте ввод-вывод.
a,b,h берите из Edit'ов

a := StrToFloat(Edit1.Text);

а вывод, например, в мемо.

[KREGI]

так, я не понял чего в начале программы?
напишите код для делфи плз, я паскаль не очень понимаю..

[KREGI]

а, все понял..щас сделаю, и отпишусь

[KREGI]

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,h : real;
x,y : real;
begin
a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
h := StrToFloat(Edit3.Text);
x := a;
while x<=b do
begin
 y := sin(x)*sin(x);
 memo1.Lines.Add(FloatToSrt(x));
 memo2.Lines.Add(FloatToSrt(y));
 x := x+h;
 end;
end;

end.

Где ошибки?

[Sazary]

 memo1.Lines.Add(FloatToStr(x));
 memo2.Lines.Add(FloatToStr(y));

[KREGI]

=) опечатался+)
спасибо всем за помощь... может еще парочку задач решим? =)