Problima me thn Pascal! s o s!

[delphi]

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(;

 

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.

[final]

Den to testara alla prpei na einai sosto .

 

-----------------------

var tyxaios,skor,xristis,i:integer;

 

 

begin

 

randomize;

 

i:= 1;

skor:=0;

 

while i<=10 do

 

begin{1}

 

writeln('dwste arithmo');

readln(xristis);

 

tyxaios:= random(;

 

if xristis=tyxaios then begin {2}

writeln('kerdisate ena ponto');

skor:=skor+1;

i:=i+1;

end {2}

else writeln('ksanaprospathiste');

 

i:=i+1;

 

end; {1}

 

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

 

 

end.

[final]

tyxaios:= random(;

 

Dior9ose kai auto !

 

tyxaios:= random( x ); { Opou X enas Integer }

[delphi]

se eyxaristw.trexei apla den kserw giati den kanei 10 loops kai moy kanei mono 8.

 

kai kati allo.

 

molis kanei kai ton teleytaio loop den prolabainw na dw sthn othoni th frash "to skor sas einai:" ,alla kleinei amesws to parathyro toy dos poy trexei to programmataki moy.

 

ti mporei na paizei edw kserete???

[random]

VAle teleytaia entolh sto programma ena Readln gia na perimenei na pathseis enter prin termatisei

an kai programmata consolas protimw na ta trexw apo thn concola kai oxi me diplo klik, akribws gi ayto to logo

[delphi]

eyxaristw paidia.