Results 1 to 14 of 14
Thread: Ìàëêî ïîìîù çà PASCAL
Hybrid View
-
6th May 2006 18:03 #1Registered 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.
-
6th May 2006 18:17 #2
Åòî òàçè ïðîãðàìà ùå òè ñâúðøè ðàáîòà (êàêòî ñè çàäàë óñëîâèåòî):
Ðàçáèðà ñå, àêî ñå èñêà ïðîãðàìàòà äåôàêòî äà ãè ñìÿòà, ùå òðÿáâà äà íàïèøåø "Äúëãà àðèòìåòèêà" - ò.å. äà ñè íàïèøåø ñàì ñúáèðàíå è óìíîæåíèå íà 100 öèôðåíè (äà ðå÷åì) ÷èñëà.Code:BEGIN Writeln('31035053229546199656252032972759319953190362094566672920420940313'); END.Åòî òàêà ñå ïëîäÿò òå, êàçâàì ñè àç. Ïîä íîñà òè.
"640K îught to be enough for anybody" - Bill Gates, 1981
Òåñòîâå íà áàòåðèè::Machine specs::Fract::AGG::ÍåÑåÑúðäè×îâå÷å::Baileys::blog::YouTube channel
-
6th May 2006 19:11 #3Registered User
Join Date: May:2006
Location: Pir
Posts: 2
ÌÈ ÇÀ ÑÚÆÀËÅÍÈÅ ÑÅ ÈÑÊÀ ÏÐÎÃÐÀÌÀÒÀ ÄÀ ÃÈ ÑÌßÒÀ
ÇÀ ñúæàëåíèå àç íå ìîãà äà ñå ñïðàâÿ ñ íàïèñâàíåòî è
-
6th May 2006 19:20 #4
Èìà åäèí ïîäõîä, ïðè êîéòî ñå ïðåìàõâàò íóëèòå ñëåä ÷èñëîòî, êàòî ïðåç òîâà âðåìå ìîæåø äà ãè áðîèø è äà ãè èçïåøåø êàòî ñòðèíã. Íî ìèñëÿ, ÷å òîâà íÿìà äà òå ñïàñè ìíîãî...
"Àå ìîæå ëè äîêàòî ñè ðàáîòèø åé òàêà è äà òè ñå íàïúëíè êîìïþòúðà ñ âèðóñè? Ùîòî àç ãëåäàì ñè íÿêàêâè ïîðíî ñàéòîâå è òîé ñàì ñå ïúëíè ..."
-
8th May 2006 12:02 #5
1. èìàøå íÿêàêâî ïî-ãîëÿìî îò integer ÷èñëî â ïàñêàëà. Íÿêàêúâ long/longint èëè êâî òàì áåøå.
2. òèÿ ãîëåìèòå ÷èñëà ñå çàïèñâàò êàòî íèçîâå. Àìà êàê òî÷íî áåøå àëãîðèòúìà çà ñìÿòàíå íà ôàêòîðèåë ñ íèçîâå íå ñå ñåùàì.Ïîñëåäíà ðåäàêöèÿ: èçâúðøåíà îò XaMaB; íà äíåøíà äàòà. 0.42 ñåêóíäè ñëåä ïóñêàíå íà ïîñòà
In God we Trust (all others must submit a X.509 certificate). Àêî ñïîðèø ñ èäèîò, âåðîÿòíî è òîé ïðàâè ñúùîòî èëè ñè ïîïàäíàë íà ïàðòèåí (íåïúëåí) ÷ëåí
-
8th May 2006 13:02 #6
Extend ìàé áåøå íàé-ãîëåìèÿ òèï. Âèæ â õåëïà è òàì èìà îò êàêâè äî êàêâè ñòîéíîñòè ìîæå äà èìà.
"Àå ìîæå ëè äîêàòî ñè ðàáîòèø åé òàêà è äà òè ñå íàïúëíè êîìïþòúðà ñ âèðóñè? Ùîòî àç ãëåäàì ñè íÿêàêâè ïîðíî ñàéòîâå è òîé ñàì ñå ïúëíè ..."




Reply With Quote
Lenovo ThinkPad 15 èëè IdeaPad 15
5th May 2023, 22:16 in Ìîáèëíè êîìïþòðè