график циссоида

[tapka1493]

нашла у вас тут нужную мн задачку(очень нужную) за нее я получу 22 балла))) и хочу попросить вас , что вы мне поочередно расписали действия...очень прошу))
Условие такое: Построить кривую циссоиду по заданному параметрическому уравнению:
x=at^2/(1+t^2)
y=at^3/(1+t^2), a>0 , t от минус бесконечности до плюс бесконечности

uses crt,graph;
var drive,mode,i:integer;
x,y,t:real;
begin
drive:=detect;
initgraph(drive,mode,'c:BP\BGI');
setcolor(3);
line(10,240,400,240);
line(10,100,10,400);
for i:=-1000 to 1000 do
begin t:=i/500;
x:=Round(100*t*t/(1+t*t))+10;
y:=Round(100*t*t*t/(1+t*t))+240;
PutPixel(Round(x),Round(y),red);
end;
readln;
end.

[Вадим Мошев]

x:=Round(100*t*t/(1+t*t))+10;
y:=Round(100*t*t*t/(1+t*t))+240;
PutPixel(Round(x),Round(y),red);

Зачем вы в процедуру PutPixel суёте округления УЖЕ ОКРУГЛЁННЫХ чисел? Это лишнее, они уже округлены.

Да и потом, при использовании этой процедуры ваш график будет выглядеть как множество близкостоящих друг к другу точек, но не сплошная линия.

Для получения сплошной линии, рекомендовал бы использовать LineTo

[tapka1493]

так значит что я должна буду написать вместо этой строки с putpixel?
for i:=-1000 to 1000 do
begin t:=i/500;- а вот эти строчки что обозначают?

[Mad_Cat]

Зачем вы в процедуру PutPixel суёте округления УЖЕ ОКРУГЛЁННЫХ чисел? Это лишнее, они уже округлены.

неа! заметьте

x,y,t:real;

и чтобы не совать их округленными в Putpixel надо обьявить их Integer

эти строчки что обозначают?

что надо открыть учебник на теме "Циклы с параметром"