Δημοσιεύτηκε: 05 Νοέμ 2010, 05:08
Απ'ότι βλέπω έχεις αρκετά λάθη...
1)Στο BEGIN δεν βάζουμε ";". Και καλό θα ήταν, το πρώτο BEGIN και το τελευταίο END. να τα γράφουμε με κεφαλαία γράμματα.
2)Στην 9η σειρά βλέπω ένα "end". Γιατί υπάρχει;
3)Πριν το else δεν βάζουμε ";" ΠΟΤΕ!
4)Και αν μπορείς να γράφεις με στοίχιση θα σε διευκολύνει.
ΠΧ:
1)Στο BEGIN δεν βάζουμε ";". Και καλό θα ήταν, το πρώτο BEGIN και το τελευταίο END. να τα γράφουμε με κεφαλαία γράμματα.
2)Στην 9η σειρά βλέπω ένα "end". Γιατί υπάρχει;
3)Πριν το else δεν βάζουμε ";" ΠΟΤΕ!
4)Και αν μπορείς να γράφεις με στοίχιση θα σε διευκολύνει.
ΠΧ:
- Κώδικας: Επιλογή όλων
program p1;
uses crt;
var a:integer;
BEGIN
readln(a);
if a=0 then
writeln('miden') //paratirise to oti den exei ";" giati akolou8ei to else
else if a>0 then //meta to else mhn ksexnas to if
writeln('thetikos')
else
writeln('arnitikos');
END.