[pomoc]Pascal

[kazu22]

robie program ktory losuje mi pierwsza litere owocu a ja mam ją zgadnac. tylko jest 1 blad nie trafiles proboj dalej powtarza mi sie 3 razy ;/ prosze o pomoc ponizej jest kod

 

uses crt;
const

il_owoce = 10;
owoce: array [0..il_owoce-1] of String = ('j','g','c','b','m','k','p','a','l','o');

var

wylosowany_owoc:string;
owoc:char;

begin

CLRSCR;

Randomize;

wylosowany_owoc := owoce[Random(il_owoce)];
writeln(wylosowany_owoc);

repeat

read(owoc);

if owoc <> wylosowany_owoc then writeln('Nie trafiles proboj dalej');
if owoc = wylosowany_owoc then writeln('Brawo udalo ci sie trafic, masz ',sp,' pkt.');

until owoc = wylosowany_owoc;

readkey;


end.

[Monkey92]

Dawno nie pisałem w Pascalu i nie mam za bardzo jak tego sprawdzić,

ale może problemem jest porównywanie zmiennych różnych typów w if'ach.

 

Próbujesz porównać char ze stringiem, a string to przecież łańcuch znaków, nawet jeżeli jego długość to 1.