Provlima Kodika se Pascal

[ladhm]

</font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">code:</font><hr /><pre style="font-size:x-small; font-family: monospace;">Var

O: array[1..9] of char;

Begin

For i:=1 to 9 do

Begin

writeln ('Dose onoma ma8imatos... ');

readln (O);

End;

For j:=1 to 2 do

For i:=1 to 9 do

Begin

writeln ('Dose va8mo tou ma8imatos ',O,' tou ',j,'ou tetraminou ');

readln (T[i,j]);

End;

End.[/code]</blockquote><font size="2" face="Verdana, Helvetica, sans-serif">Ston kodika afto 8elo na fenete to onoma tou ka8e ma8imatos pou exoume isagagi apo prin eno fenete mono to proto grama tou ka8e ma8imatos.

Ti kano la8os?

Thnx

 

<small>[ 11-06-2002, 15:32: Το μήνυμα επεξεργάστηκε από: ladhm ]</small>

[apoc]

Φιλε δεν ειμαι Pascal -ιστας παρολα αυτα εχει ενα φανερο λαθος!

1.Το Q ειναι ενα char array

Κανε ενα νοητο debug στο μυαλο σου και δες οτι με το που αρχιζει για πρωτη φορα η loop το ι= 0 ok?

Ωραια printa-ρει το (δωσε το ονομα του μαθηματος) και αμεσως μετα για ι=0 του λες οτι το πρωτο στοιχειο του πινακα Q δηλαδη ο χαρακτηρας Q[0] ΘΑ ΕΙΝΑΙ ΑΥΤΟΣ ΠΟΥ ΘΑ γραψει ο χρηστης...Μπορει ο χρηστης να γραφει ολοκληρη την λεξη αλλα εσυ αποθηκευεις μονο τον πρωτο χαρακτηρα...το ιδιο γινεται για ολα τα μαθηματα....

 

Κατι σε String δεν υπαρχει στην Pascal?

απο μια μικρη ερευνα βρηκα

TYPE STRING = PACKED ARRAY [1..8] OF CHAR;

κτλ κτλ

 

δοκιμασαι

 

Q: ΑRRAY[1..9] OF STRING

 

ελπιζω να βοηθησα...

 

<small>[ 11-06-2002, 16:31: Το μήνυμα επεξεργάστηκε από: apoc ]</small>

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

exm... ta xeis mpleksei ligo...

 

1on. dineis O: array[1..9] of char;

to onoma tou ma8hmatos de mporei na einai enas xarakthras... to swsto einai O: array[1..9] of string; (afou ena xarakthra tou dineis... enan sou epistrefei..)

 

2on. sou leipoun apo to var oi dhlwseis twn i,j: integer kai tou pinaka T.

[ladhm]

</font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">quote:</font><hr /><font size="2" face="Verdana, Helvetica, sans-serif">Originally posted by NiKant:

<strong>2on. sou leipoun apo to var oi dhlwseis twn i,j: integer kai tou pinaka T.</strong></font><hr /></blockquote><font size="2" face="Verdana, Helvetica, sans-serif">Ta exo vali afta apla dino to simio pou exi to provlima.

Thx exis dikio gia to proto i8ele string mperdeftika!