Müzakirə:Paskal (proqramlaşdırma dili)
Vikipediya, açıq ensiklopediya - ویکیپدیا ، آچیق انسایکلوپدیا
Paskal Proqramlaşdırma dilinə aid nümunə: Parolun yoxlanılmasina aid məsələ.
Program Parol_Test;
label 1,2;
var x:string;
k:integer;
begin
k:=0;
1:writeln ('Parolu daxil edin!');
readln (x)
if x='sizin parol' then
writeln ('Parol dogrudur!')
else
begin
k:=k+1;
if k>2 then o to 2;
writeln ('Parol sehvdir,yeniden sina!');
goto 1;
2:end;
end.
