если чего пишите на rubik-nerudik@mail.ru, да и тут буду появляца , выручайте парни, не адйте умереть, хочу прожить хотя бы один курс...

Данная особь похожа на гулящего студента, который только сейчас вспомнил, что ему еще здавать семестровую =/

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

У меня немного схожая была)
uses crt,dos,graph;
var
gd,gm,x1,y1,i:integer;
t,a,x,y,j,k:real;
begin
clrscr;
writeln ('vedite zna4enie parametra funkcii');
readln (a);
initgraph (gd,gm,'c:\bp\bgi');
t:=1;
i:=0;
j=240;
while (t<6400) do begin
x:=cos(t)*a;
y:=sin(t)*a;
x1:=round (int(x));
y1:=round (int(y));
putpixel (x1+i,y1+240,15);
t:=t+0.1;
i:=i+1;
end;
readkey;
closegraph;

http://www.softholm.com/download/development/delphi_pascal/soft_7192.html
залейте кто-нить модуль Graph.. мне паскаль подменили =/

Перезалить?
http://www.mytempdir.com/1317977

bx2 а условие какое было?)

Ну впринципе задачка не сложная что писать или уже написали ? Напиши в пм еси что

неа, ещё нет ничего... выручай....