[azamatom]

Задача на графику:
Построить кривые по заданному параметрическому представлению:
а) 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: Про оформление не забываем!

[Black Raider]

Код:

If (t>=0) and (t<(2*pi)) then

и

Код:

t,pi:real;

pi не надо описывать как переменную!