Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   Болталка (https://forum.antichat.xyz/forumdisplay.php?f=46)
-   -   Паскаль задача.... че деать? (https://forum.antichat.xyz/showthread.php?t=39498)

rubik-nerubik 04.05.2007 18:22

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

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

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

спасибо!!!!

rubik-nerubik 04.05.2007 18:23

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

r0 04.05.2007 18:28

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

rubik-nerubik 04.05.2007 18:30

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

bxN5 04.05.2007 18:52

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

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

Ch3ck 04.05.2007 19:35

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

rubik-nerubik 04.05.2007 23:49

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

Woldemar 05.05.2007 05:42

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

rubik-nerubik 05.05.2007 13:22

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


Время: 16:44