Задача на графику:
Построить кривые по заданному параметрическому представлению:
а) x=r*cos(t), y=r* sin (t), t [0,2pi).
Подскажите как правильно записать интервал: t принадлежит [0,2pi)
Код:
procedure
var
x,y,r:integer;
t,pi:real;
begin
r:=StrToInt(Edit1.text);//вводим радиус окружности
If t>=0 and t<2*pi then ?????
begin
x:=r*cos(t);
y:=r*sin(t);
Admin: Про оформление не забываем!