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.