Programalama > PASCAL

uses crt;
var
tus:char;
soyad,tck,isim:string;

    procedure anamenu;
      begin
    clrscr;
    textcolor(red);
    gotoxy(30,20); write('[  1  ]  ISIM GIRISI');
    gotoxy(30,22); write('[  2  ]  SOYAD GIRISI');
    gotoxy(30,24); write('[  3  ]  TC KIMLIK NO');
    gotoxy(30,26); write('[ ESC ]  €IKIS');
    gotoxy(16,34); write('pascal hakkinda sorulariniz varsa msn de yim.');
    gotoxy(23,36); write('gencturk55@messengeruser.com');
    tus:=readkey;
      end;

    procedure sisim;
      begin
    CLRSCR;
    gotoxy(30,25); write('ismi giriniz..:');
    gotoxy(45,25); readln(isim);
      end;


    procedure soyads;
      begin
    CLRSCR;
    gotoxy(30,25); write('soyad giriniz..:');
    gotoxy(46,25); readln(soyad);
      end;


    procedure tcno;
      begin
    CLRSCR;
    gotoxy(30,25); write('tc kimlik no giriniz..:');
    gotoxy(53,25); readln(tck);
      end;

begin  {ANA MENU}
repeat
anamenu;
if tus='1' then begin sisim; end;
if tus='2' then begin soyads; end;
if tus='3' then begin tcno; end;
until tus=#27;
end.