TurboPascal-sprawdzenie kodu

[viamrimar]

Bardzo proszę o poprawę tego kodu. Ma to być tak jakby" wygaszacz" działający na hasło. Błąd jest tylko przy znacznikach begin-end. Dopiero zaczynam naukę pascala i za bardzo nie wiem w czym problem. Dziękuję.

 

 

To jest ukryta treść, proszę

• Zaloguj się
• lub
• Zarejestruj się

 

 

Błąd jaki występuje:

 

Edytowane 5 Listopada 2011 przez viamrimar

[encik95]

 

program nowyy;

uses crt;

var

i,a,b : integer;

haslo,haslo2 : string;

znak:char;

 

BEGIN

clrscr;

haslo:='pascal';

haslo2:='';

Writeln('Podaj haslo');

repeat

znak:=readkey;

if znak<>#13 then

begin

haslo2:=haslo2+znak;

write('*');

end;

until znak=#13;

writeln;

if haslo=haslo2 then

begin

textcolor(green);

clrscr;

repeat

Randomize;

a:=random(79)+1;

b:=random(49)+1;

gotoxy(a,B;

writeln('x');

until keypressed;

readln;

Writeln('Haslo poprawne');

end

else;

begin

textcolor(red);

writeln('Zle haslo');

readkey;

end;

 

end.

 

 

pozdro w 5min to zrobilem, powinno teraz dzialac

Jak pomoglem daj minusa

Edytowane 9 Listopada 2011 przez encik95