Используя операторы цикла, написать программу, которая строит график параметрической функции на delphi.
Функция
x = cos (t) sin (at);
y = sin (t) cos (bt);
Тн =< t= <Tk и изменяет с шагом Th
Я написал код:
procedure TForm1.BitBtn1Click(Sender: TObject);
var x, y, xa, xb, t:real;
begin
xa:= strToFloat(edit1.Text);
xb:= strToFloat(edit2.Text);
t:= strToFloat(edit3.Text);
chart1.Series[0].Clear;
x:= xa;
repeat
y:=sin(x)*cos(xa);
chart1.Series[0].AddY(y);
x:= x+t;
x:=cos(y)*sin(xb);
chart1.Series[0].AddY(y);
y:=xb;
until x>=xb or y>=xb;
end;
end.
Вопросы:
- У меня выдаёт ошибку expected end but received "ожидаемый конец, но получил", выдаёт именно в
"until x>=xb or y>=xb;"
. - Правильно ли я написал программу (полностью)?