Problima me thn Pascal! s o s!

Συζητήσεις σχετικές με την Delphi και την πρόγονη της Pascal

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
Άβαταρ μέλους
mihalisp
Δημοσιεύσεις: 123
Εγγραφή: 04 Ιουν 2002 03:00
Επικοινωνία:

Problima me thn Pascal! s o s!

Δημοσίευση από mihalisp » 11 Νοέμ 2004 02:06

Re paidia moyxei spasei ta neyra ena programmataki sthn pascal aplo alla moy bgazei ena error o compiler me ta erwthmatika kai to ELSE.

Deite to ligo ton kwdika kai peite moy:


var tyxaios,skor,xristis,i:integer;


begin

randomize;

i:= 1;
skor:=0;

while i<=10 do

begin

writeln('dwste arithmo');
readln(xristis);

tyxaios:= random(8);

if xristis=tyxaios then

writeln('kerdisate ena ponto');
skor:=skor+1;
i:=i+1;

else writeln('ksanaprospathiste');

i:=i+1;

end;

writeln('to skor sas einai : ',skor);


end.





kai moy bgazeiu to eksis lathos:

Syntax error, ; expected but ELSE found.


Ti ftaiei bre paidia?

Dokimasa na bgalw to erwthmatiko prin to ELSE alla tipota.

As to dokimasei kapoios kai se diko toy compiler na moy pei.

Exw to free pascal apo to antisoixo site.

Eyxaristw ek twn proterwn.

pronoi
Δημοσιεύσεις: 15
Εγγραφή: 08 Νοέμ 2004 23:46

Problima me thn Pascal! s o s!

Δημοσίευση από pronoi » 13 Νοέμ 2004 22:58

katarxas den exeis ksekinhsei swsta to programma.pes moy ti 8es na soy emfanizei sthn mayrh o8onh kai tha soy steilw to program akribws opws to 8es.apanta moy syntoma sto mail. pronoi_spanea@hotmail.com :)

pronoi
Δημοσιεύσεις: 15
Εγγραφή: 08 Νοέμ 2004 23:46

Problima me thn Pascal! s o s!

Δημοσίευση από pronoi » 13 Νοέμ 2004 23:21

dieykrinise moy an to 'i" einai noumero

Άβαταρ μέλους
christos312
Δημοσιεύσεις: 126
Εγγραφή: 13 Νοέμ 2005 22:13
Επικοινωνία:

Problima me thn Pascal! s o s!

Δημοσίευση από christos312 » 05 Ιουν 2006 19:58

re prin to else fige to erwtimatiko ma desn sas ta matha sto sxoleio???? :kaloe:
Εικόνα
"All This Has Happened Before And It Will Happen Again.."
Battlestar Galactica RULEZZ

Άβαταρ μέλους
dva_dev
Script Master
Δημοσιεύσεις: 3790
Εγγραφή: 16 Σεπ 2005 01:32
Επικοινωνία:

Problima me thn Pascal! s o s!

Δημοσίευση από dva_dev » 06 Ιουν 2006 00:54

Η σύνταξη του if είναι η εξής:

IF συνθήκη THEN εντολή ELSE εντολή

Οταν λέει εντολή εννοεί μία και μόνο μία εντολή (απλή η σύνθετη ->begin/end).

Εσύ έχεις 3 και όχι 1, άρα για να φαίνονται σαν μία πρέπει ότι έχεις στο then μέχρι το else να μπεί μέσα σε begin/end (χωρίς ; στο end).
Γενικά είναι χρήσιμο να χρησιμοποιείς πάντα και χωρίς καμία εξαίρεση το begin end είτε το χρειάζεσαι άμεσα είτε όχι. Θα σε γλυτώσει από πολλά προβλήματα, τα συντακτικά λάθη είναι τα απλούστερα.

Άβαταρ μέλους
cpulse
Script Master
Δημοσιεύσεις: 1527
Εγγραφή: 21 Μαρ 2006 19:30
Τοποθεσία: Αθήνα village
Επικοινωνία:

Problima me thn Pascal! s o s!

Δημοσίευση από cpulse » 08 Ιουν 2006 13:29

Κώδικας: Επιλογή όλων

if xristis=tyxaios then

  writeln&#40;'kerdisate ena ponto'&#41;;
  skor&#58;=skor+1;
  i&#58;=i+1;

else writeln&#40;'ksanaprospathiste'&#41;; 
μάλλον θα πρέπει να γίνει.. ( ; )

Κώδικας: Επιλογή όλων

if xristis=tyxaios then
begin
  writeln&#40;'kerdisate ena ponto'&#41;;
  skor&#58;=skor+1;
  i&#58;=i+1;
end
else writeln&#40;'ksanaprospathiste'&#41;; 

Απάντηση

Επιστροφή στο “Delphi, Pascal”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες