Results 1 to 17 of 17
Thread: Ïðîãðàìêà íà PASKAL
Hybrid View
-
15th February 2007 12:26 #1
Ïðîãðàìêà íà PASKAL
Íå ñúì ìíîãî â ÷àñ ñ ïðîãðàìèðàíåòî. Èìàìå çà äîìàøíî ñëåäíàòà çàäà÷à, êîéòî ìîæå äà ïîìîãíå, ìîëÿ. Çíàì ÷å å ëåñíî, íî îïóñíàõ ìàòåðèàëà ñ Else è Then
Code:ÄÑÏ êîÿòî ïî äàäåíî öÿëî x óäâîÿâà x àêî ñå äåëè íà 7.
-
15th February 2007 13:20 #2Mire-x
Join Date: Apr:2005
Location: Sofia
Posts: 763
Êàêâî å "ÄÑÏ"?
Íå ìîãà äà ñè ñïîìíÿ äîáðå ïðè Ïàñêàë êàê áåøå âðúùàíåòî íà ðåçóëòàò îò ôóíêöèÿ. Ìîæå áè âìåñòî result áåøå return èëè íåùî òàêîâà? Àêî íå ñè äëúæåí äà èçïîëçâàø ôóíêöèÿ, ìîæå íàïðàâî ðåçóëòàòúò äà ñå çàïèñâà â ñàìàòà ïðîìåíëèâà:Code:function doubleX(x: longint): longint; begin if (x mod 7) then result := x else result := x*2; end;
Àìà òè çà âñåêè ñëó÷àé êîìïèëèðàé íåùî ñ ãîðíèòå ôóíêöèè, ïðåäè äà ãî íîñèø, ÷å îòäàâíà íå ñúì ïèïâàë Ïàñêàë÷åòî.Code:procedure doubleX(var x: longint); begin if not (x mod 7) then x := x*2; end;
Àêî èìà íåùî - ïèøè ïàê, ùå ñè ïðèïîìíÿ êîå êàê.
Last edited by Tarvin; 15th February 2007 at 13:22. Reason: Entering the source in CODE tags
(10b) || !(10b)
-
15th February 2007 13:49 #3
-
16th February 2007 22:07 #4Mire-x
Join Date: Apr:2005
Location: Sofia
Posts: 763
Åõ, íèòî ðàçáðàõ êàêâî å "ÄÑÏ", íèòî äàëè ñúì óñïÿë äà òè ïîìîãíà...
Íÿêîé ìîæå ëè äà ìå ñâåòíå êàêâî å "ÄÑÏ"?
(10b) || !(10b)
-
16th February 2007 23:31 #5
Êàòî èçêëþ÷èì, ÷å ñè ïèñàë íà íåùî ñðåäíî ìåæäó Pascal è C âÿðâàì, ÷å ñè ìó ïîìîãíàë

 Ï(ð)àñêàë öåëî÷èñëåíèòå òèïîâå íå ñå ïðåîáðàçóâàò íåÿâíî â áóëåâè è îáðàòíî, òàêà ÷å è äâàòà òè âàðèàíòà íà if íÿìà äà ñå êîìïèëèðàòCode:function doubleX(x: longint): longint; begin if (x mod 7) <> 0 then doubleX := x else doubleX := x*2; end;

Ï.Ï. ÄÑÏ ?= Äÿâîëñêè Ñòðàííà Ïðîöåäóðà
Last edited by icaci; 17th February 2007 at 03:56.
Internet - it doesn't make you stupid, it just makes your stupidity more accessible to others
-
17th February 2007 07:28 #6Mire-x
Join Date: Apr:2005
Location: Sofia
Posts: 763
Ëåëèèéé...

Äúëæà èçâèíåíèå íà LinuX. Íàèñòèíà, ÷å òàêà áåøå. È ÷å âðúùàíåòî íà ðåçóëòàò â Ïàñêàë å ÷ðåç èìåòî íà ôóíêöèÿòà...(10b) || !(10b)
-
19th February 2007 13:17 #7
-
20th February 2007 13:40 #8
@LinuX, òàêà è íå êàçà, êàêâî å ÄÑÏ, à òóê óìèðàìå îò ëþáîïèòñòâî
Internet - it doesn't make you stupid, it just makes your stupidity more accessible to others
-
20th February 2007 14:04 #9
"Äà ñå Ñúñòàâè Ïðîöåäóðà" èëè íåùî òàêîâà. Áàñè âàñ êâî ñà âè ó÷èëè â ó÷èëèùå?
Ïîñëåäíà ðåäàêöèÿ: èçâúðøåíà îò XaMaB; íà äíåøíà äàòà. 0.42 ñåêóíäè ñëåä ïóñêàíå íà ïîñòà
In God we Trust (all others must submit a X.509 certificate). Àêî ñïîðèø ñ èäèîò, âåðîÿòíî è òîé ïðàâè ñúùîòî èëè ñè ïîïàäíàë íà ïàðòèåí (íåïúëåí) ÷ëåí
-
20th February 2007 21:53 #10
ÄÑÏÊ - Äà ñå Ñúñòàâè Ïðîãðàìà Êîÿòî ...
-
20th February 2007 21:53 #11Mire-x
Join Date: Apr:2005
Location: Sofia
Posts: 763
 ìóçèêàëíîòî ó÷èëèùå èíôîðìàòèêà íå ñìå è ïîìèðèñâàëè ïî ó÷. ïðîãðàìà, òà çàòîâà íÿìà êàê äà ãè çíàì òåçè ðàáîòè. :P
(10b) || !(10b)
-
20th February 2007 23:58 #12
Àõààààà. Å, íàñ â ó÷èëèùå íè êàðàõà äà ðèñóâàìå ïî äúñêàòà ëåíòàòà çà çàäà÷èòå íà Windows è òî÷íîòî ðàçïîëîæåíèå íà íÿêîè îò èêîíèòå ïî ðàáîòíàòà ïëîù... Ïúê íèå ïóñêàõìå åäíà ïðîãðàìêà, äåòî èçïðàùàøå TCP OOB ïàêåòè è 95-öèòå äàâàõà ñèí åêðàí
Internet - it doesn't make you stupid, it just makes your stupidity more accessible to others
-
21st February 2007 10:05 #13
Å ìåí ïîñëåäíèòå 2 ãîäèíè â ó÷èëèùå ìå ãîíåõà îò ÷àñ ÷å äà íå ïîäñêàçâàì íà èçïèòâàíèòå àìà ïàê ñúì ïèñàë çàäà÷è â ìåæäó÷àñèÿòà çà ñúó÷åíè÷êèòå
Ïîñëåäíà ðåäàêöèÿ: èçâúðøåíà îò XaMaB; íà äíåøíà äàòà. 0.42 ñåêóíäè ñëåä ïóñêàíå íà ïîñòà
In God we Trust (all others must submit a X.509 certificate). Àêî ñïîðèø ñ èäèîò, âåðîÿòíî è òîé ïðàâè ñúùîòî èëè ñè ïîïàäíàë íà ïàðòèåí (íåïúëåí) ÷ëåí
-
21st February 2007 13:19 #14Åòî òàêà ñå ïëîäÿò òå, êàçâàì ñè àç. Ïîä íîñà òè.
"640K îught to be enough for anybody" - Bill Gates, 1981
Òåñòîâå íà áàòåðèè::Machine specs::Fract::AGG::ÍåÑåÑúðäè×îâå÷å::Baileys::blog::YouTube channel
-
21st February 2007 21:31 #15
Îò ïèñàíå íà êóðñîâè ïðîåêòè â 11-òè êëàñ ñè áÿõìå äîêàðàëè 4 áóòèëêè êîíÿê "Íàïîëåîí", íÿêîëêî ïàêåòà êàøó, ëóêàíêè è äð. Âÿðíî, áÿõìå ñàìî 3 êëàñà, íî ïúê èìàõìå ïúëåí ìîíîïîë
Internet - it doesn't make you stupid, it just makes your stupidity more accessible to others
-
22nd February 2007 01:45 #16Mire-x
Join Date: Apr:2005
Location: Sofia
Posts: 763
Õåõå, ìàéñòåðè... à åäíî "ÄÑÏ" íå çíàåòå ê'âî å.

Àìàòüîðè...
(10b) || !(10b)
-
22nd February 2007 02:15 #17
Å ïà êîé äà ÷åòå óñëîâèÿòà?
Internet - it doesn't make you stupid, it just makes your stupidity more accessible to others




Reply With Quote

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