Πρόβλημα σε pascal

[xania4ever]

Ηι παιδιά μπορείται να μου πείτε τι έχω κάνει λάθος στο παρακάτω πρόγραμμα και μ βγάζει λάθος εκεί που το έχω μαρκάρει μ λεεί ότι δεν έχω βάλει ερωτηματικό στο απο πάνω ενώ το έχω κάνει...

Ευχαριστώ....

 

>program penteselekatonoxto;
var
arithmos_mathiton,bathmos,metria,kala,polikala,arista,synolo :integer;
begin
Writeln('Parakalo eisagete arithmo mathitwn');
read(arithmos_mathiton);
repeat
Writeln('Paraklo eisagete bathmo');
read(bathmos);
begin
if  (bathmos>9) and (bathmos<=12)
then
writeln('metria');
metria:=metria+1 ;
[color="Red"][size="4"]else[/size][/color]
if  (bathmos>12) and (bathmos<=15) ;
then
writeln('kala');
kala=kala+1;
else
if (bathmos>15) and (bathmos<=18) ;
then
writeln('polikala');
polikala:=polikala+1;
else
writeln('arista') ;
arista=arista+1;
end;
synolo:=kala+metria+polikala+arista;
until synolo=arithmos_mathiton;
Writeln('Arithmos_mathitwn',arithmos_mathitwn);
Writeln('Oi mathites me arista htan',arista);
Writeln('Oi mathites me polykala htan',polikala);
Writeln('Oi mathites me kala htan'kala);
Writeln('Oi mathites me metria htan',metria);
end.

[Praetorian]

Πριν το else μια εντολή ή ένα end δε θέλει ερωτηματικό.

Επίσης αν σε ένα if clause ή else clause έχεις παραπάνω από μια εντολες τότε σύμφωνα με το παρακάτω, χρειάζεσαι ένα εσωτερικό begin .... end .

 

Αναφορά: If then else σύνταξη στην Pascal

[random]

με πρόλαβες

 

 

>
program penteselekatonoxto;
var arithmos_mathiton,bathmos,metria,kala,polikala,arista,synolo :integer;

begin
 Writeln('Parakalo eisagete arithmo mathitwn');
 read(arithmos_mathiton);
 repeat
  Writeln('Paraklo eisagete bathmo');
  read(bathmos);
  begin

  if (bathmos>9) and (bathmos<=12) then
   begin
	   writeln('metria');
	   metria:=metria+1;
   end
  else if  (bathmos>12) and (bathmos<=15) then
	  begin
		  writeln('kala');
		  kala:=kala+1;
	  end
  else if (bathmos>15) and (bathmos<=18) then
	  begin
		  writeln('polikala');
		  polikala:=polikala+1;
	  end
  else
	  begin
		  writeln('arista');
		  arista:=arista+1;
	  end

 end;

 synolo:=kala+metria+polikala+arista;
 until synolo=arithmos_mathiton;
 Writeln('Arithmos_mathitwn',arithmos_mathiton);
 Writeln('Oi mathites me arista htan',arista);
 Writeln('Oi mathites me polykala htan',polikala);
 Writeln('Oi mathites me kala htan',kala);
 Writeln('Oi mathites me metria htan',metria);
end.

[xania4ever]

Α έτσι ήθελε?Εγώ νόμιζα ένα begin και end.Ευχαριστώ πολύ παιδιά..