Паскаль задача.... че деать?

[rubik-nerubik]

Выручайте кто-нибудь, нужно решить задачу по паскалю,......... я ваще нулевой в нем, кто-нибудь....
rubik-nerubik.narod.ru/rubik.rar

тут вообщем в архиве есть вся инфа....

задание оказывается не то, графическое отображение разложения фцнкции в ряд фурье ((((

спасибо!!!!

[rubik-nerubik]

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

[r0]

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

[rubik-nerubik]

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

[bxN5]

У меня немного схожая была)
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;

[r0]

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

[Ch3ck]

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

[rubik-nerubik]

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

[Woldemar]

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

[rubik-nerubik]

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

[4RN]

Выложи условие на всеобщее обозрение, а то качать неохота

[Sn@k3]

Выложи условие на всеобщее обозрение, а то качать неохота

там ~20 кб и вообще там формулы =\

[Sn@k3]

чувак, код bx2 схож с твоим посмори

[rubik-nerubik]

эхх ну памагите.....

[sqr]

за васнахраждение даже такой ломак как я напишу тебе рабочий код