Results 1 to 17 of 17

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User LinuX's Avatar
    Join Date: May:2006
    Location: Âðàöà
    Posts: 950

    Ïðîãðàìêà íà PASKAL

    Íå ñúì ìíîãî â ÷àñ ñ ïðîãðàìèðàíåòî. Èìàìå çà äîìàøíî ñëåäíàòà çàäà÷à, êîéòî ìîæå äà ïîìîãíå, ìîëÿ. Çíàì ÷å å ëåñíî, íî îïóñíàõ ìàòåðèàëà ñ Else è Then

    Code:
    ÄÑÏ êîÿòî ïî äàäåíî öÿëî x óäâîÿâà x àêî ñå äåëè íà 7.

  2. #2
    Mire-x
    Join Date: Apr:2005
    Location: Sofia
    Posts: 763
    Êàêâî å "ÄÑÏ"?

    Code:
    function doubleX(x: longint): longint;
    begin
     if (x mod 7) then result := x else result := x*2;
    end;
    Íå ìîãà äà ñè ñïîìíÿ äîáðå ïðè Ïàñêàë êàê áåøå âðúùàíåòî íà ðåçóëòàò îò ôóíêöèÿ. Ìîæå áè âìåñòî result áåøå return èëè íåùî òàêîâà? Àêî íå ñè äëúæåí äà èçïîëçâàø ôóíêöèÿ, ìîæå íàïðàâî ðåçóëòàòúò äà ñå çàïèñâà â ñàìàòà ïðîìåíëèâà:

    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)

  3. #3
    Íàãëà òâàð Exhumator's Avatar
    Join Date: Jan:2005
    Location: Sofia
    Posts: 14,687
    Quote Originally Posted by LinuX View Post
    Ïðîãðàìêà íà PASKAL
    Êàòî íà÷àëî, íå å çëå ïúðâî äà íàó÷èø êàê å èìåòî íà åçèêà... "PasCal" å, à íå "PasKal".

  4. #4
    Mire-x
    Join Date: Apr:2005
    Location: Sofia
    Posts: 763
    Åõ, íèòî ðàçáðàõ êàêâî å "ÄÑÏ", íèòî äàëè ñúì óñïÿë äà òè ïîìîãíà...

    Íÿêîé ìîæå ëè äà ìå ñâåòíå êàêâî å "ÄÑÏ"?
    (10b) || !(10b)

  5. #5
    philosophus duratea icaci's Avatar
    Join Date: Oct:2006
    Location: Aachen
    Posts: 2,698
    Êàòî èçêëþ÷èì, ÷å ñè ïèñàë íà íåùî ñðåäíî ìåæäó Pascal è C âÿðâàì, ÷å ñè ìó ïîìîãíàë
    Code:
    function doubleX(x: longint): longint;
    begin
     if (x mod 7) <> 0 then doubleX := x else doubleX := x*2;
    end;
     Ï(ð)àñêàë öåëî÷èñëåíèòå òèïîâå íå ñå ïðåîáðàçóâàò íåÿâíî â áóëåâè è îáðàòíî, òàêà ÷å è äâàòà òè âàðèàíòà íà if íÿìà äà ñå êîìïèëèðàò

    Ï.Ï. ÄÑÏ ?= Äÿâîëñêè Ñòðàííà Ïðîöåäóðà
    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

  6. #6
    Mire-x
    Join Date: Apr:2005
    Location: Sofia
    Posts: 763
    Ëåëèèéé...
    Äúëæà èçâèíåíèå íà LinuX. Íàèñòèíà, ÷å òàêà áåøå. È ÷å âðúùàíåòî íà ðåçóëòàò â Ïàñêàë å ÷ðåç èìåòî íà ôóíêöèÿòà...
    (10b) || !(10b)

  7. #7
    Registered User LinuX's Avatar
    Join Date: May:2006
    Location: Âðàöà
    Posts: 950
    íàìÿ ïðîáëåì, îïðàâèõ ñå.

  8. #8
    philosophus duratea icaci's Avatar
    Join Date: Oct:2006
    Location: Aachen
    Posts: 2,698
    @LinuX, òàêà è íå êàçà, êàêâî å ÄÑÏ, à òóê óìèðàìå îò ëþáîïèòñòâî
    Internet - it doesn't make you stupid, it just makes your stupidity more accessible to others

  9. #9
    Âåãàí íà ìåñíà äèåòà XaMaB's Avatar
    Join Date: Nov:2001
    Location: Ñîôèÿ
    Posts: 20,387
    "Äà ñå Ñúñòàâè Ïðîöåäóðà" èëè íåùî òàêîâà. Áàñè âàñ êâî ñà âè ó÷èëè â ó÷èëèùå?
    Ïîñëåäíà ðåäàêöèÿ: èçâúðøåíà îò XaMaB; íà äíåøíà äàòà. 0.42 ñåêóíäè ñëåä ïóñêàíå íà ïîñòà

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

  10. #10
    Registered User ñèìî's Avatar
    Join Date: Feb:2006
    Location: Âàðíà
    Posts: 653
    ÄÑÏÊ - Äà ñå Ñúñòàâè Ïðîãðàìà Êîÿòî ...

  11. #11
    Mire-x
    Join Date: Apr:2005
    Location: Sofia
    Posts: 763
     ìóçèêàëíîòî ó÷èëèùå èíôîðìàòèêà íå ñìå è ïîìèðèñâàëè ïî ó÷. ïðîãðàìà, òà çàòîâà íÿìà êàê äà ãè çíàì òåçè ðàáîòè. :P
    (10b) || !(10b)

  12. #12
    philosophus duratea icaci's Avatar
    Join Date: Oct:2006
    Location: Aachen
    Posts: 2,698
    Àõààààà. Å, íàñ â ó÷èëèùå íè êàðàõà äà ðèñóâàìå ïî äúñêàòà ëåíòàòà çà çàäà÷èòå íà Windows è òî÷íîòî ðàçïîëîæåíèå íà íÿêîè îò èêîíèòå ïî ðàáîòíàòà ïëîù... Ïúê íèå ïóñêàõìå åäíà ïðîãðàìêà, äåòî èçïðàùàøå TCP OOB ïàêåòè è 95-öèòå äàâàõà ñèí åêðàí
    Internet - it doesn't make you stupid, it just makes your stupidity more accessible to others

  13. #13
    Âåãàí íà ìåñíà äèåòà XaMaB's Avatar
    Join Date: Nov:2001
    Location: Ñîôèÿ
    Posts: 20,387
    Å ìåí ïîñëåäíèòå 2 ãîäèíè â ó÷èëèùå ìå ãîíåõà îò ÷àñ ÷å äà íå ïîäñêàçâàì íà èçïèòâàíèòå àìà ïàê ñúì ïèñàë çàäà÷è â ìåæäó÷àñèÿòà çà ñúó÷åíè÷êèòå
    Ïîñëåäíà ðåäàêöèÿ: èçâúðøåíà îò XaMaB; íà äíåøíà äàòà. 0.42 ñåêóíäè ñëåä ïóñêàíå íà ïîñòà

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

  14. #14
    ɐ-əpoɔᴉu⋂ ɐí íəÔ anrieff's Avatar
    Join Date: Apr:2004
    Location: Sofia
    Posts: 8,448
    Quote Originally Posted by XaMaB View Post
    Å ìåí ïîñëåäíèòå 2 ãîäèíè â ó÷èëèùå ìå ãîíåõà îò ÷àñ ÷å äà íå ïîäñêàçâàì íà èçïèòâàíèòå àìà ïàê ñúì ïèñàë çàäà÷è â ìåæäó÷àñèÿòà çà ñúó÷åíè÷êèòå
    off/ ìäà, 12òè êëàñ ïîìîãíàõ íà åäèí ïðèÿòåë äà "èçíóäè" åäíà îïúðíè÷àâà äåâîéêà äà ìó áúäå äàìà íà áàëà, êàòî é ïèñàõìå çàäà÷êàòà...
    Åòî òàêà ñå ïëîäÿò òå, êàçâàì ñè àç. Ïîä íîñà òè.
    "640K îught to be enough for anybody" - Bill Gates, 1981
    Òåñòîâå íà áàòåðèè::Machine specs::Fract::AGG::ÍåÑåÑúðäè×îâå÷å::Baileys::blog::YouTube channel

  15. #15
    philosophus duratea icaci's Avatar
    Join Date: Oct:2006
    Location: Aachen
    Posts: 2,698
    Îò ïèñàíå íà êóðñîâè ïðîåêòè â 11-òè êëàñ ñè áÿõìå äîêàðàëè 4 áóòèëêè êîíÿê "Íàïîëåîí", íÿêîëêî ïàêåòà êàøó, ëóêàíêè è äð. Âÿðíî, áÿõìå ñàìî 3 êëàñà, íî ïúê èìàõìå ïúëåí ìîíîïîë
    Internet - it doesn't make you stupid, it just makes your stupidity more accessible to others

  16. #16
    Mire-x
    Join Date: Apr:2005
    Location: Sofia
    Posts: 763
    Õåõå, ìàéñòåðè... à åäíî "ÄÑÏ" íå çíàåòå ê'âî å.
    Àìàòüîðè...
    (10b) || !(10b)

  17. #17
    philosophus duratea icaci's Avatar
    Join Date: Oct:2006
    Location: Aachen
    Posts: 2,698
    Å ïà êîé äà ÷åòå óñëîâèÿòà?
    Internet - it doesn't make you stupid, it just makes your stupidity more accessible to others

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 | Ìàãàçèí çà åëåêòðîííè öèãàðè