boitheia arxarios

[georgefa]

Pali ego paidia.Sas eyxaristo poly gia tis apantiseis sas. gia na po tin alithia akoma eimai mperdemenos, telos panton apofasisa na asxolitho me tin q basic kai meta blepoyme Bebaia tora ayto poy tha rotiso tha sas fainetai asteio alla eimai stin arxi kai amesos kolisa. Prospathisa loipon na kano mia lista poy na exei tin ilikia imerominia genisis kai to onoma alla to mono poy katafera einai na emfaniso tin proti eggrafi profanos den blepei to telos arxeioy. aytes einai oi entoles poy edosa<BR>100 REM LISTA<BR>110 REM<BR>120 REM AYTO TO PROGRAMMA DEIXNEI THN HLIKIA<BR>130 REM THN HMEROMHNIA GENNHSHS<BR>140 REM TO ONOMATEPONYMO<BR>150 REM<BR>160 REM ONOMATA METABLITON:<BR>170 REM A HLIKIA<BR>180 REM T$ HMEROMHNIA GENNHSHS<BR>190 REM N$ ONOMATEPONYMO<BR>200 REM<BR>210 REM ***** DEDOMENA PROS EPEJERGASIA*****<BR>220 REM<BR>230 DATA 15, "2 MAIOY", "FANARAS"<BR>240 DATA 16, "3 MAIOY", "BOYKIAS"<BR>250 DATA 18, "8 MAIOY", "FANAR ""<BR>260 DATA 99,99, "TELOS ARXEIOY"<BR>270 REM ***** EPEJERGASIA *****<BR>280 READ A, T$, N$<BR>290 REM<BR>300 IF N$ = "TELOS ARXEIOY" THEN 350<BR>310 PRINT A, T$, N$<BR>320 READ A, T$, N$<BR>330 GOTO 300<BR>340 REM<BR>350 PRINT " "<BR>360 PRINT "TELOS LISTAS"<BR>370 END<P>An kapoios exei xrono as apantisei eyxaristo

[Γηρυόνης]

Τι εννοείς όταν λες ότι κατάφερες να εμφανίσεις μόνο την πρώτη εγγραφή; Μήπως εννοείς <P><BLOCKQUOTE><font size="1" face="Verdana, Helvetica, sans-serif">code:</font><HR><pre><BR>15 2 MAIOY FANARAS<BR></pre><HR></BLOCKQUOTE><P> Αν ναι περίεργο γιατί μόλις έτρεξα ένα παρόμοιο πρόγραμμα και δουλεύει κανονικά. Μου εμφανίζιε όλες τι εγγραφές.. Αν όχι για εξήγησε λίγο περισσότερο.<P> Το πρόγραμμά μου είναι το παρακάτω.<P><BLOCKQUOTE><font size="1" face="Verdana, Helvetica, sans-serif">code:</font><HR><pre><BR>5 CLS<BR>10 DATA 15, "2 maioy", "fanaras"<BR>20 DATA 16, "3 maiuoy", "boykias"<BR>30 DATA 18, "8 maioy", "fanar"<BR>40 data 99, 99, "telos arxeioy"<BR>50 READ A, T$, N$<BR>60 IF N$ = "telos arxeioy" THEN 90<BR>70 PRINT A, T$, N$<BR>80 GOTO 50<BR>90 PRINT ""<BR>100 PRINT "TELOS PROGRAMMATOS"<BR>110 END<BR></pre><HR></BLOCKQUOTE><P> και το αποτέλεσμα είναι<P><BLOCKQUOTE><font size="1" face="Verdana, Helvetica, sans-serif">code:</font><HR><pre><BR> 15 2 maioy fanaras<BR> 16 3 maiuoy boykias<BR> 18 8 maioy fanar<P>TELOS PROGRAMMATOS<BR></pre><HR></BLOCKQUOTE><P> Αν θέλεις καταχώρησε και το αποτέλεσμα του προγράμματός σου.

[georgefa]

file moy eyxaristo poy apantises, otan terxo to programma moy bgazei syntax error 320, an allakso tin 320 kai doso 320 rem ,tote moy typonei tin proti eisagogi (15 2 maioy fanaras) synexeia kai kollaei to programa, episis prospathisa na trekso to diko soy kai pali moy ebgaze syntax error. xrisimopoio to q basic 7.1 an ayto paizei kanena rolo. ta leme

[Γηρυόνης]

Λοιπόν φίλε georgefa καλώς ήρθες στο μαγικό κόσμο του προγραμματισμού... Ένα από τα πιο συνηθισμένα προβλήματα των γλωσσών/υπολογιστών. Κάτι που τρέχει σε μία προηγούμενη έκδοση δεν τρέχει σε κάποια άλλη.. Όντως πολύ ενοχλητικό και πολύ κουραστικό. Μόλις δοκίμασα να τρέξω το πρόγραμμά σου σε QBsic 7.1 και έχω ακριβώς το ίδιο πρόβλημα. Όσο για τη λύση... δεν ξέρω. Ειλικρινά δεν ξέρω τι συμβαίνει και δε μου πάει το μυαλό κάπου. Ίσως κάποιος άλλος που ξέρει καλύτερα να μπορεί να σε βοηθήσει. Πάντως δοκίμασα διάφορα άλλα προγράμματα και δουλεύουνε! Το παρακάτω δουλεύει κανονικά σε QBAsic 7.1<P><BLOCKQUOTE><font size="1" face="Verdana, Helvetica, sans-serif">code:</font><HR><pre><BR>10 CLS<BR>20 DATA 15, "1 maioy", "fanaras"<BR>25 DATA 16, "3 maioy", "boukias"<BR>26 DATA 18, "8 maioy", "fanar"<BR>27 DATA 99, 99, "telos arxeioy"<BR>30 READ A, T$, N$<BR>40 IF N$ = "telos arxeioy" THEN 90<BR>50 PRINT A, T$, N$<BR>70 READ A, T$, N$<BR>71 GOTO 40<BR>80 PRINT A, T$, N$<BR>90 PRINT "Telos Listas"<BR>100 END<BR></pre><HR></BLOCKQUOTE><P>Αποτέλεσμα:<P><BLOCKQUOTE><font size="1" face="Verdana, Helvetica, sans-serif">code:</font><HR><pre><BR> 15 1 maioy fanaras<BR> 16 3 maioy boukias<BR> 18 8 maioy fanar<BR>Telos Listas<BR></pre><HR></BLOCKQUOTE><P><BR>Βρήκα και ένα tutorial αν σε ενδιαφέρει: <A HREF="http://www.pmfst.hr/~stankov/uvod_u_r_WWW/Dio_7/QBasic_Tutorial/QBasic_Tutor1/index.html" TARGET=_blank>http://www.pmfst.hr/~stankov/uvod_u_r_WWW/Dio_7/QBasic_Tutorial/QBasic_Tutor1/index.html</A>

[georgefa]

eyxaristo poly file moy gia tin apantisi soy <BR>Den jero ti tha katafero na kano kai an xreiazetai na pao se kapoia sxoli i mporo me diafora biblia na bgalo kapoia akri pantos oli i diadikasia einai synarpastiki. elpizo na min sas koyrazo giati ayta poy grafo einai poly apla gia sas ta leme

[Επισκέπτης]

Loipon meta apo meleth tou kwdika parathrw pws 8eleis me to goto na epanalamvaneis to diavasma twn dedomenwn pou exeis sto DATA me READ. Mexri edw katanohto. <BR>Omws yparxoun 2 provlhmata ston kwdika pou exeis grapsei. As analysw prwta vhma vhma ti kanei o kwdikas pou exeis dhmiourghsei gia na katalaveis ti ekteleitai kai pote...<BR>Prospernontas ta REM ftanoume sthn entolh 230. Oi entoles DATA mporoun na yparxoun kai na mpoun se opoiodhpote meros tou programmatos, opote swsta einai ekei pou einai. De mas enoxloun. <BR>Prepei apla na dior8wsoume ena la8aki sth grammh 250 pou meta to FANAR yparxoun 2 eisagwgika enw xreiazetai mono ena gia na kleisei to alfarh8mitiko pou grafoume.<BR>Pame parakatw. Sth grammh 280 zhtame na diavazei ta prwta dedomena. Symfwna me thn entolh READ perimenoune na diavasoume prwta enan ari8mo kai meta dyo alfari8mitika. Edw yparxei ena provlhma. H DATA pou yparxei sth grammh 260 den ypakouei se afth th morfh giati einai 2 akeraioi kai ena alfari8mitiko. Afto shmainei pws otan to programma paei na diavasei afth th grammh sth defterh 8esh perimenei alfari8mhtiko kai vriskei akeraio kai fysika stamataei vgazontas syntax error. Etsi dior8wnontas to<P>260 DATA 99,99,"TELOS ARXEIOY"<BR>se<BR>260 DATA 99,"99","TELOS ARXEIOY"<BR>8a stamathsei na mas vgazei afto to la8os.<P>Proxwrontas ston kwdika pame sth gramh 300. Ekei vlepoume mia syn8hkh IF pou psaxnei na vrei sto 3o alfarh8mitiko to "TELOS ARXEIOY" pou exoume valei sth grammh 260.<BR>Sth grammh 310 ektypwnei tis times pou exei diavasei sth grammh 280. Sth grammh 320 kanei akrivws oti kai sth grammh 280. Etsi sth grammh 330 pou leme goto 300 8a mporousame na thn alla3oume kai na thn kanoume GOTO 280 kai na svhsoume entelws thn 320. <BR>Me aftes tis allages pistevw to programma na doulepsei opws prepei. Akoma 8elw na tonisw pws den einai anagkh na vazoume ta dedomena se diaforetika DATA. 8a mporousame dhladh na grapsoume <BR>240 DATA 15, "2 MAIOY", "FANARAS", 16, "3 MAIOY", "BOYKIAS",18, "8 MAIOY", "FANAR ", 99,"99", "TELOS ARXEIOY"<BR>To programma 8a symperiferotan me akrivws ton idio tropo.<BR>Afta gia twra kai kalo debugging <P>Filika<BR>Dionisos

[Γηρυόνης]

<BLOCKQUOTE><font size="1" face="Verdana, Helvetica, sans-serif">quote:</font><HR>Originally posted by Dionisos:<BR><STRONG>Etsi dior8wnontas to<P>260 DATA 99,99,"TELOS ARXEIOY"<BR>se<BR>260 DATA 99,"99","TELOS ARXEIOY"<BR>8a stamathsei na mas vgazei afto to la8os.<BR></STRONG><HR></BLOCKQUOTE><P> Δεν είναι εκεί το λάθος. Το σκέφτηκα και εγώ αυτό αλλά δε δούλεψε όταν το δοκίμασα. Κάτι άλλο πρέπει να φταίει γιατί αν δεις τον κώδικά μου και εγώ το 99 το έχω έτσι και όμως δουλεύει.

[georgefa]

ευχαριστω πολυ φιλε μου για την απαντηση σου, ειχες δικιο εγω δεν ειχα καταλαβει την διαφορα των (Α Τ$ και Ν$) επισης δεν εχω καταλαβει ποιος ο ρολος του goto αν μπορεισ εξηγησε μου ευχαριστω.

[placid]

Η εντολη goto σε πηγαινει σε ενα αλλο σημειο του κωδικα. Δηλαδη σταματαει τη ροη του προγραμματος και σε πηγαινει παραπανω, παρακατω κλπ. Αν καταλαβα καλα γιατι δε γνωριζω τη συγκεκριμενη γλωσσα, στο 300 αν ισχυει η συνθηκη if οδηγειται το προγραμμα στην 350. Αν ομως δεν ισχυει συνεχιζεται η ροη του προγραμματος, ωστε στην 330 γινεται επαναληψη της συνθηκης. Δηλαδη λεει στο pc να σταματησει το προγραμμα και να ανεβει στο 300. Εκει συνανταει τη συνθηκη. Αν και παλι το N$ δεν ειναι ισο με το "TELOS ARXEIOY συνεχιζει το προγραμμα για να ξαναγυρισει με το goto στο 300. Οταν εντοπιστει οτι το N$ ειναι ισο με το "TELOS ARXEIOU" συνεχιζει το προγραμμα κανονικα (παει στο 350)