Programalama > PASCAL

uses crt;
type
st10= string[10];
var
S,I,J,M:BYTE;
tus:char;
cizgi:string[80];
satir:byte
procedure cerceve (x1,x1,x2,y2,:byte);
var
k:byte
begin
gotoxy (x1,y1); write (#201);for
for :k:=x1+1 to x2-1 to write do write (#205);
write(#187);
for k:=y1+1 to y2 -1 do
begin
gotoxy (x1,k);write (#186);
gotoxy (x2,k);write (#186);
end;
gotoxy(x1,y2); write (#200);
for k: x1+1 to x2-1 do write (#200);
write (#188);
end;
type
kayit=record
ad,yazar,içerik,bev:string[30];
kad,soyad,adres,ıl,telefon;string[50];
ono,uyeno:ınteger;
Ssay,ITAR,VTAR,tar,no:string[10];
f;char;
end;
var
dosya;file of kayit;
kay;kayit;
kod;integer;
ara:string;
procedure kkayıt;
begın
assing(dosya,"kutuphan.dat");
{$i-}reset(dosya);kod:= IOresult;{$i+}
if kod <>0 then rewrite (dosya);
repeat
clrscr;

bgsc mustafa
2125975447 ıc_kara.kule@hotmail.com


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.