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

Discussion in 'Болталка' started by rubik-nerubik, 4 May 2007.

  1. rubik-nerubik

    rubik-nerubik Elder - Старейшина

    Joined:
    4 May 2007
    Messages:
    248
    Likes Received:
    9
    Reputations:
    -2
    Выручайте кто-нибудь, нужно решить задачу по паскалю,......... я ваще нулевой в нем, кто-нибудь....
    rubik-nerubik.narod.ru/rubik.rar

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

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

    спасибо!!!!
     
    #1 rubik-nerubik, 4 May 2007
    Last edited: 14 May 2007
  2. rubik-nerubik

    rubik-nerubik Elder - Старейшина

    Joined:
    4 May 2007
    Messages:
    248
    Likes Received:
    9
    Reputations:
    -2
    если чего пишите на rubik-nerudik@mail.ru, да и тут буду появляца , выручайте парни, не адйте умереть, хочу прожить хотя бы один курс...
     
  3. r0

    r0 Elder - Старейшина

    Joined:
    17 Jul 2005
    Messages:
    450
    Likes Received:
    149
    Reputations:
    147
    Данная особь похожа на гулящего студента, который только сейчас вспомнил, что ему еще здавать семестровую =/
     
  4. rubik-nerubik

    rubik-nerubik Elder - Старейшина

    Joined:
    4 May 2007
    Messages:
    248
    Likes Received:
    9
    Reputations:
    -2
    ну так помогите..... я гулящий, но в меру, кстати, я не прохожу прогммирование и мне это не нужно ибо нет даже предмета, а задали все-таки, выручайте....
     
  5. bxN5

    bxN5 Elder - Старейшина

    Joined:
    8 Jan 2006
    Messages:
    687
    Likes Received:
    138
    Reputations:
    32
    У меня немного схожая была)
    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;
     
  6. r0

    r0 Elder - Старейшина

    Joined:
    17 Jul 2005
    Messages:
    450
    Likes Received:
    149
    Reputations:
    147
    http://www.softholm.com/download/development/delphi_pascal/soft_7192.html
    залейте кто-нить модуль Graph.. мне паскаль подменили =/
     
  7. Ch3ck

    Ch3ck Elder - Старейшина

    Joined:
    9 Jun 2006
    Messages:
    1,362
    Likes Received:
    1,157
    Reputations:
    430
    Перезалить?
    http://www.mytempdir.com/1317977
     
  8. rubik-nerubik

    rubik-nerubik Elder - Старейшина

    Joined:
    4 May 2007
    Messages:
    248
    Likes Received:
    9
    Reputations:
    -2
    bx2 а условие какое было?)
     
  9. Woldemar

    Woldemar Member

    Joined:
    9 Jun 2005
    Messages:
    33
    Likes Received:
    5
    Reputations:
    3
    Ну впринципе задачка не сложная что писать или уже написали ? Напиши в пм еси что
     
  10. rubik-nerubik

    rubik-nerubik Elder - Старейшина

    Joined:
    4 May 2007
    Messages:
    248
    Likes Received:
    9
    Reputations:
    -2
    неа, ещё нет ничего... выручай....
     
  11. 4RN

    4RN Elder - Старейшина

    Joined:
    1 Feb 2007
    Messages:
    27
    Likes Received:
    9
    Reputations:
    0
    Выложи условие на всеобщее обозрение, а то качать неохота
     
  12. Sn@k3

    Sn@k3 Elder - Старейшина

    Joined:
    13 Apr 2006
    Messages:
    1,000
    Likes Received:
    437
    Reputations:
    90
    там ~20 кб и вообще там формулы =\
     
  13. Sn@k3

    Sn@k3 Elder - Старейшина

    Joined:
    13 Apr 2006
    Messages:
    1,000
    Likes Received:
    437
    Reputations:
    90
    чувак, код bx2 схож с твоим посмори
     
  14. rubik-nerubik

    rubik-nerubik Elder - Старейшина

    Joined:
    4 May 2007
    Messages:
    248
    Likes Received:
    9
    Reputations:
    -2
    эхх ну памагите.....
     
  15. sqr

    sqr Elder - Старейшина

    Joined:
    15 Dec 2006
    Messages:
    30
    Likes Received:
    9
    Reputations:
    0
    за васнахраждение даже такой ломак как я напишу тебе рабочий код