Results 1 to 14 of 14

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User
    Join Date: May:2006
    Location: Pir
    Posts: 2

    Ìàëêî ïîìîù çà PASCAL

    Ïðåä ìåí ñòîè ñëåäíèÿ ïðîáëåì. Òðÿáâà äà èç÷èñëÿ ñóìàòà îò ôàêòîðèåëèòå íà âñè÷êè ÷èñëà îò 1 äî 50 íî ÷ðåç ïî äîëó íàïèñàíàòà ïðîãðàìà òîâà å ïðîñòî íåâúçìîæíî PASCAL íå ñìÿòà òàêèâà ãîëåìè öèôðè à àç ñúì òúïè÷àê è íåçíàÿ òî÷íî ïî êàêúâ íà÷èí äà íàïèøà ïðîãðàìàòà Ùå ñúì ìíîãî áëàãîäàðåí àêî íÿêîé ìè ïîìîãíå )


    Program Fact;
    var
    S:integer;
    I:integer;
    A:array[1..50] of integer;
    Begin
    A[1]:=1;
    S:=1;
    For I:=2 to 50 do
    Begin
    A[I]:=A[I-1]*I;
    S:=S+A[I];
    End;
    Writeln('Sumata ot factorielite e ',S)
    End.

  2. #2
    ɐ-əpoɔᴉu⋂ ɐí íəÔ anrieff's Avatar
    Join Date: Apr:2004
    Location: Sofia
    Posts: 8,448
    Åòî òàçè ïðîãðàìà ùå òè ñâúðøè ðàáîòà (êàêòî ñè çàäàë óñëîâèåòî):

    Code:
    BEGIN
        Writeln('31035053229546199656252032972759319953190362094566672920420940313');
    END.
    Ðàçáèðà ñå, àêî ñå èñêà ïðîãðàìàòà äåôàêòî äà ãè ñìÿòà, ùå òðÿáâà äà íàïèøåø "Äúëãà àðèòìåòèêà" - ò.å. äà ñè íàïèøåø ñàì ñúáèðàíå è óìíîæåíèå íà 100 öèôðåíè (äà ðå÷åì) ÷èñëà.
    Åòî òàêà ñå ïëîäÿò òå, êàçâàì ñè àç. Ïîä íîñà òè.
    "640K îught to be enough for anybody" - Bill Gates, 1981
    Òåñòîâå íà áàòåðèè::Machine specs::Fract::AGG::ÍåÑåÑúðäè×îâå÷å::Baileys::blog::YouTube channel

  3. #3
    Registered User
    Join Date: May:2006
    Location: Pir
    Posts: 2
    ÌÈ ÇÀ ÑÚÆÀËÅÍÈÅ ÑÅ ÈÑÊÀ ÏÐÎÃÐÀÌÀÒÀ ÄÀ ÃÈ ÑÌßÒÀ ÇÀ ñúæàëåíèå àç íå ìîãà äà ñå ñïðàâÿ ñ íàïèñâàíåòî è

  4. #4
    Ïàòëàäæàí! Rostislao's Avatar
    Join Date: Feb:2005
    Location: Bulgaria
    Posts: 822
    Èìà åäèí ïîäõîä, ïðè êîéòî ñå ïðåìàõâàò íóëèòå ñëåä ÷èñëîòî, êàòî ïðåç òîâà âðåìå ìîæåø äà ãè áðîèø è äà ãè èçïåøåø êàòî ñòðèíã. Íî ìèñëÿ, ÷å òîâà íÿìà äà òå ñïàñè ìíîãî...
    "Àå ìîæå ëè äîêàòî ñè ðàáîòèø åé òàêà è äà òè ñå íàïúëíè êîìïþòúðà ñ âèðóñè? Ùîòî àç ãëåäàì ñè íÿêàêâè ïîðíî ñàéòîâå è òîé ñàì ñå ïúëíè ..."

  5. #5
    Âåãàí íà ìåñíà äèåòà XaMaB's Avatar
    Join Date: Nov:2001
    Location: Ñîôèÿ
    Posts: 20,387
    1. èìàøå íÿêàêâî ïî-ãîëÿìî îò integer ÷èñëî â ïàñêàëà. Íÿêàêúâ long/longint èëè êâî òàì áåøå.
    2. òèÿ ãîëåìèòå ÷èñëà ñå çàïèñâàò êàòî íèçîâå. Àìà êàê òî÷íî áåøå àëãîðèòúìà çà ñìÿòàíå íà ôàêòîðèåë ñ íèçîâå íå ñå ñåùàì.
    Ïîñëåäíà ðåäàêöèÿ: èçâúðøåíà îò XaMaB; íà äíåøíà äàòà. 0.42 ñåêóíäè ñëåä ïóñêàíå íà ïîñòà

    In God we Trust (all others must submit a X.509 certificate). Àêî ñïîðèø ñ èäèîò, âåðîÿòíî è òîé ïðàâè ñúùîòî èëè ñè ïîïàäíàë íà ïàðòèåí (íåïúëåí) ÷ëåí

  6. #6
    Ïàòëàäæàí! Rostislao's Avatar
    Join Date: Feb:2005
    Location: Bulgaria
    Posts: 822
    Extend ìàé áåøå íàé-ãîëåìèÿ òèï. Âèæ â õåëïà è òàì èìà îò êàêâè äî êàêâè ñòîéíîñòè ìîæå äà èìà.
    "Àå ìîæå ëè äîêàòî ñè ðàáîòèø åé òàêà è äà òè ñå íàïúëíè êîìïþòúðà ñ âèðóñè? Ùîòî àç ãëåäàì ñè íÿêàêâè ïîðíî ñàéòîâå è òîé ñàì ñå ïúëíè ..."

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 Õàðäóåð ÁÃ. Âúçìîæíî å ñúäúðæàíèåòî íà òàçè ñòðàíèöà äà å îáåêò íà àâòîðñêè ïðàâà.
iskamPC.com | mobility.BG | Bloody's Techblog | Êðèïòîâàëóòè è ìàéíèíã | 3D Vision Blog | Ìàãàçèí çà åëåêòðîííè öèãàðè