Results 1 to 19 of 19

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User
    Join Date: May:2010
    Location: Plovdiv
    Posts: 50

    Ïðîãðàìà íà Ïàñêàë íàñîêà

    Çäðàâåéòå! Èìàì çà äîìàøíà äà íàïðàâÿ ïðîãðàìà íà Ïàñêàë çà ðåøàâàíå íà êâàäðàòíî óðàâíåíèå ñ åäíî íåèçâåñòíî. Íàïðàâèõ ÿ íî êîìïèëàòîðúò ìè äàâà ãðåøêà,êîÿòî íå ìîãà äà îòêðèÿ. Ìîæå ëè äà ìè êàæåòå êúäå åâåíòóàëíî ìîæå äà å òÿ? Áëàãîäàðÿ ïðåäâàðèòåëíî!

  2. #2
    åíòóñèàçèðàí õàðäóåð System.gc()'s Avatar
    Join Date: Apr:2007
    Location: back in time
    Posts: 1,075
    Êàêâà èìåííî ãðåøêà òè äàâà?
    UD3R|Q9550+1283|4x2 G.Skill@1066|MX500+1002FAEX+640AAKS+ST31 60|RX580-8GB|1841BLT|SS-760XP|Define7|z24i|Edifier S350DB
    geniusloci: ÀÌÄ ñå êóïóâà à) àêî ñè áåäåí; á) àêî ñà òå èçëúãàëè; â) àêî ñè áîëåí ôåí? nope|r.i.p.

  3. #3
    Registered User
    Join Date: May:2010
    Location: Plovdiv
    Posts: 50

  4. #4
    hmm BornToDrink's Avatar
    Join Date: Aug:2005
    Location: Â. Òúðíîâî
    Posts: 11,573
    Ìîæå áè X1:= òðÿáâà äà å x1:= ... àêî òîâà å ïðîáëåìà, òî X2 ñúùî ùå òè ãðúìíå ïîñëå.
    Ïî-íàäîëó ïàê ñè ãè ïîëçâàë ñ ãëàâíî "õ".
    Hey, mother, I come bearing a gift. I'll give you a hint. It's in my diaper and it's not a toaster.
    Ïëàíèíà.áã

  5. #5
    Áèðîíàâò Tormentor's Avatar
    Join Date: Dec:2008
    Location: Ñòàðà Çàãîðà
    Posts: 258
    Íà 19-òè ðåä:
    "x1 = -c/b;" òðÿáâà äà ñòàíå "x1:= -c/b" - ò.å. ïðîïóñíàë ñè åäíî äâîåòî÷èå.
    Ìîæå äà äîáàâàø åäíà èíèöèàëèçàöèÿ íà x1 â íà÷àëîòî, çà äà òè ñå ìàõíå ïðåäóïðåæäàíèåòî.
    Äàëè èìà îùå áèðà?

  6. #6
    åíòóñèàçèðàí õàðäóåð System.gc()'s Avatar
    Join Date: Apr:2007
    Location: back in time
    Posts: 1,075
    Ìåí ìè ñå âèäè ñèíòàêòè÷íà ãðåøêà - íà ðåäà
    Code:
    x1 = -c/b
    ñå îïèòâàø äà ñðàâíÿâàø x1 ñ äðóãî ÷èñëî, íî x1 íÿìà ñòîéíîñò âñå îùå

    edit: Õàõà, êîëåãè, ìàøèíè ñòå!
    UD3R|Q9550+1283|4x2 G.Skill@1066|MX500+1002FAEX+640AAKS+ST31 60|RX580-8GB|1841BLT|SS-760XP|Define7|z24i|Edifier S350DB
    geniusloci: ÀÌÄ ñå êóïóâà à) àêî ñè áåäåí; á) àêî ñà òå èçëúãàëè; â) àêî ñè áîëåí ôåí? nope|r.i.p.

  7. #7
    hmm BornToDrink's Avatar
    Join Date: Aug:2005
    Location: Â. Òúðíîâî
    Posts: 11,573
    Ìäà, àç ñúì ãëåäàë óîðíèíãà, âúïðåêè, ÷å ìàé íå å êåéñ ñåíñèòèâ?
    Hey, mother, I come bearing a gift. I'll give you a hint. It's in my diaper and it's not a toaster.
    Ïëàíèíà.áã

  8. #8
    åíòóñèàçèðàí õàðäóåð System.gc()'s Avatar
    Join Date: Apr:2007
    Location: back in time
    Posts: 1,075
    <îôòîïèê>

    Ïàñêàë÷î íàâðåìåòî íå áåøå case sensitive (â Borland flavour), ïðåäïîëàãàì è Free Pascal å òàêà

    </îôòîïèê>


    À â ïúðâèÿ ïîñò ïî òåìàòà ñå ïîëçâà ïðîìåíëèâà "x", êîÿòî èçîáùî íå å äåêëàðèðàíà. Äàëè íÿêîé íå ïðåïèñâà...
    UD3R|Q9550+1283|4x2 G.Skill@1066|MX500+1002FAEX+640AAKS+ST31 60|RX580-8GB|1841BLT|SS-760XP|Define7|z24i|Edifier S350DB
    geniusloci: ÀÌÄ ñå êóïóâà à) àêî ñè áåäåí; á) àêî ñà òå èçëúãàëè; â) àêî ñè áîëåí ôåí? nope|r.i.p.

  9. #9
    Registered User
    Join Date: May:2010
    Location: Plovdiv
    Posts: 50
    Ìåðñè ìíîãî ïè÷îâå! Íàïðàâèõ êàêòî êàçà Tormentor è âñè÷êè ãðåøêè èç÷åçíàõà. Ñàìî äà ïîïèòàì, êîãàòî ñå ïîëó÷è òàê ÷å Ä<0 ïðîãðàìàòà áúðçî èçïèñâà, ÷å íÿìà êîðåíè è ñå èçêëþ÷âà. Êàê ìîãà äà ãî íàïðàâÿ äà íå ñå èçêëþ÷âà ñàìà?

  10. #10
    Registered User
    Join Date: Oct:2003
    Location: Ñîôèÿ
    Posts: 4,317
    Òî âå÷å å íàïðàâåíî â ïðîãðàìàòà, íî íà äðóãî ìÿñòî. Ñåãà îñòàâà äà îòêðèåø êúäå è äà ãî äîáàâèø è íà òîâà ìÿñòî.

    À íå òå ëè ñìóùàâà, ÷å ðåçóëòàòèòå îò ïðîãðàìàòà íå ñà âåðíè?

  11. #11
    ɐ-əpoɔᴉu⋂ ɐí íəÔ anrieff's Avatar
    Join Date: Apr:2004
    Location: Sofia
    Posts: 8,448
    Ñëîæè åäíî readln; ñëåä èçïèñâàíåòî, ÷å íÿìà êîðåíè.
    Åòî òàêà ñå ïëîäÿò òå, êàçâàì ñè àç. Ïîä íîñà òè.
    "640K îught to be enough for anybody" - Bill Gates, 1981
    Òåñòîâå íà áàòåðèè::Machine specs::Fract::AGG::ÍåÑåÑúðäè×îâå÷å::Baileys::blog::YouTube channel

  12. #12
    Registered User
    Join Date: May:2010
    Location: Plovdiv
    Posts: 50
    àìè òÿ ñàìî ñå èçêëþ÷âà è íå ìîãà äà ðàçáåðà çàùî, çàòîâà íå ìîãà äà âèäÿ äàëè ñà âåðíè ðåçóëòàòèòå. Êúäå òðÿáâà äà ñå ïîïðàâè, çà äà ñà âåðíè

  13. #13
    Registered User
    Join Date: Aug:2006
    Location: Ïëîâäèâ
    Posts: 4,052
    Ìåí ìè ñå ùå, ÷å ïàê ïîìàãàìå íà ÷îâåê êîéòî ñè íÿìà èäåÿ ?

  14. #14
    Ëîø àäìèí! vbTheKing's Avatar
    Join Date: Sep:2003
    Location: Ñîôèÿ
    Posts: 4,138
    Àìà ïîíå å õèòúð è å òðóäíî äîêàçóåìî.
    Ëþáèìî ïèòèå çàïî÷âàùî ñ áóêâàòà 'Ê'? * Êàñà áèðà *
    Àêî ìîæåø äà ëåæèø íà ïîäà áåç äà òè ñå íàëàãà äà ñå äúðæèø - âñå îùå ÍÅ ñè ïèÿí!
    Äàâàéòå ñëåäâàùàòà Êàñà...

  15. #15
    Registered User martos1's Avatar
    Join Date: Nov:2010
    Location: Sofiq
    Posts: 95

    Smile

    Quote Originally Posted by vbTheKing View Post
    Àìà ïîíå å õèòúð è å òðóäíî äîêàçóåìî.
    Aáå íå å ìíîãî õèòúð àç äåò íå ñúì ïîëçâàë ïàñêàë êàòî âèäÿõ ïðîãðàìàòà êîÿòî å ïîêàçàë è âúïðîñèòå òî å ëîãè÷íî êàê äà ñè ãè ðåøè âêëþ÷ëèòåëíî è òîâà äà íå ñå çàòâàðÿ ïðîãðàìàòà ñëåä èñïèñâàíåòî ÷å íÿìà ðåàëíè êîðåíè.
    À àêî ñå áåøå îïèòàë äà ñå çàìèñëè îò 2-ðè èëè 3-òèÿ ïúò ùåøå äà ðàçáåðå íà êîè ðåä òî÷íî äà ñëîæè readln;
    Ï.Ï. Êàçâàì ãî áåç íèêàêâè ëîøè ÷óñòâà

  16. #16
    Registered User
    Join Date: May:2010
    Location: Plovdiv
    Posts: 50
    Ðåøèõ ïðîáëåìà ñúñ çàòâàðÿíåòî, íî âñå îùå íå ìîãà äà ñè îáÿñíÿ çàùî äàâà ãðåøíè ðåçóëòàòè êàòî ôîðìóëèòå ñà ñè âåðíè

  17. #17
    Registered User
    Join Date: Oct:2003
    Location: Ñîôèÿ
    Posts: 4,317
    Ìîæå áè çàùîòî ôîðìóëèòå íå ñà âåðíè? Ïðèìåðíî çàùîòî â åçèöèòå çà ïðîãðàìèðàíå ôîðìóëèòå ñå ïèøàò íà åäèí ðåä, çà ðàçëèêà îò ëèñòà õàðòèÿ, êúäåòî ìîæåì äà ñå ðàçïðîñòðåì íà íÿêîëêî.

  18. #18
    åíòóñèàçèðàí õàðäóåð System.gc()'s Avatar
    Join Date: Apr:2007
    Location: back in time
    Posts: 1,075
    Àìè, çíà÷è ïðîáâàé äà ñè ãî îáÿñíèø ñàì, çàùîòî ôîðìóëàòà (çà ðåøàâàíå íà êâàäðàòíî óðàâíåíèå) å åëåìåíòàðíà.
    UD3R|Q9550+1283|4x2 G.Skill@1066|MX500+1002FAEX+640AAKS+ST31 60|RX580-8GB|1841BLT|SS-760XP|Define7|z24i|Edifier S350DB
    geniusloci: ÀÌÄ ñå êóïóâà à) àêî ñè áåäåí; á) àêî ñà òå èçëúãàëè; â) àêî ñè áîëåí ôåí? nope|r.i.p.

  19. #19
    Registered User
    Join Date: Aug:2006
    Location: Ïëîâäèâ
    Posts: 4,052
    Code:
    solveQuadraticForA: a B: b C: c
    	| d |
    	d := (b raisedTo: 2) - (4 * a * c).
    	d = 0
    		ifTrue: [ ^ b / (2 * a) * -1 ]
    		ifFalse: [ 
    			d > 0
    				ifFalse: [ ^ nil ]
    				ifTrue: [ 
    					^ {((d sqrtFloor - b) / (2 * a)).
    					((d sqrtFloor + b) * -1 / (2 * a))} ] ]
    呈֏

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