Ότι μαθαίνω στο σχολείο το γράφω!
http://freepascal.weebly.com
Συντονιστής: the_eye
program vathmologia;
uses crt;
var
student : String;
vathmos : LongInt;
begin
write('Δώσε το όνομα του μαθητή: ');
readln(student);
write('Δώσε την τελική βαθμολογία του μαθητή: ');
readln(vathmos);
if vathmos<10
then begin
writeln('Είσαι κάτω από την βάση!');
if vathmos<9
then begin
writeln('Μάλλον κόβεσαι!');
end
else if vathmos>=9
then begin
writeln('Μάλλον περνάς με τον μέσο όρο!');
end;
end
[b]else if 10<vathmos<15[/b]
then begin
writeln('Καλά τα πήγες αλλά προσπάθησε περισσότερο!');
end
else if vathmos>=15
then begin
writeln('Μπράβο!!!');
end;
end.
saviolidis έγραψε:Παιδιά βοήθεια!!!
Φτιάχνω ένα μικρό πρόγραμμα για το σχολείο αύριο και έχω κολλήσει!
Εδώ είναι ο κώδικας:
- Κώδικας: Επιλογή όλων
program vathmologia;
uses crt;
var
student : String;
vathmos : LongInt;
begin
write('Δώσε το όνομα του μαθητή: ');
readln(student);
write('Δώσε την τελική βαθμολογία του μαθητή: ');
readln(vathmos);
if vathmos<10
then begin
writeln('Είσαι κάτω από την βάση!');
if vathmos<9
then begin
writeln('Μάλλον κόβεσαι!');
end
else if vathmos>=9
then begin
writeln('Μάλλον περνάς με τον μέσο όρο!');
end;
end
[b]else if 10<vathmos<15[/b]
then begin
writeln('Καλά τα πήγες αλλά προσπάθησε περισσότερο!');
end
else if vathmos>=15
then begin
writeln('Μπράβο!!!');
end;
end.
Λοιπόν εκεί που έχω κάνει την έντονη γραφή, όταν το κάνω Compile το πρόγραμμα μου βγάζει λάθος...Τι να γράψω για να πω ότι αν ο βαθμός είναι μεγαλύτερος από 10 και μικρότερος από 15 και μπλα μπλα μπλα;...
...
else if (vathmos > 10) AND (vathmos < 15) then
...