Pa to ti bas tako nece proci.
1. Izbegavaj da u for petlji menjas vrednost i (to tako ne bi smelo da se radi)
2. s ti predstavlja samo nivo tezine do kojeg se bira broj a ti moras da uvedes novu promenljivu r naprimer koja ce da generise broj izmedju tog intervala.
3. taj niz u koji smestas prethosne odgovore nije potreban
Evo ja sam prepravio nesto pa mozda ce da radi, samo sto je pokusaj integer (a ne niz) i uvedene su varijable r: integer, nadjen: boolean koje treba da dopises.
Znaci samo glavni program:
Code:
begin
kraj:=false;
repeat
Odabir_tezine;
writeln('Pogadjaj brojeve izmedju 0 - !', S);
nadjen := false;
r := random(S)+1;
i := 0;
while(i<3) and not nadjen do
begin
inc(i);
readln(Pokusaj);
if Pokusaj<r then writeln('Veci je')
else if Pokusaj>r then writeln('Manji je')
else nadjen := true;
end;
if nadjen then writeln('Bravo') else writeln('Ne ne ne. Gotov si.');
writeln('Zelite li jos jednu partiju?');
readln(odgovor);
until (odgovor =2);
readln;
end.
[Ovu poruku je menjao Toyo dana 06.07.2005. u 03:28 GMT+1]