Programalama > PASCAL

Etiketler: kolay, procedure, menu, örnegi

Ort. 0
Puan ver:
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.


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.