Programalama > PASCAL

Etiketler: kütüphane, programi

Ort. 0
Puan ver:
uses crt;
type
kayit=record
isim:string[30];
kitapno:string[30];
kitapadi:string[30];
kitapyazari:string[30];
kitapturu:string[30];
kitapaltarih:string[10];
kitapgettarih:string[10];
telefon:string[15];
ililce:string[30];
f:char;end;
var
dosya:file of kayit;
kay:kayit;
tus,t:char;
I,kod:integer;
procedure kayityap;
begin
assign(dosya,'KUTUP.DAT');
{$I-}Reset(dosya);
kod:=IOResult;{$I+}
if kod <>0 then rewrite(dosya);
repeat clrscr;
gotoxy(15,2);
write('K&#732;TABI ALANIN ADI............:');readln(kay.isim);
if kay.isim="then
begin
close(dosya);exit;end;
gotoxy(15,4);
write('K&#732;TAP NO.....................:');readln(kay.kitapno);
gotoxy(15,6);
write('K&#732;TABIN ADI..................:');readln(kay.kitapadi);
gotoxy(15,8);
write('K&#732;TABIN YAZARI...............:');readln(kay.kitapyazari);
gotoxy(15,10);
write('K&#732;TABI ALANIN TELEFONU.......:');readln(kay.telefon);
gotoxy(15,12);
write('K&#732;TABI ALANIN &#732;L&#732; &#732;L&#8364;ES&#732;....:');readln(kay.ililce);
gotoxy(15,14);
write('K&#732;TABIN T&#353;R&#353;.................:');readln(kay.kitapturu);
gotoxy(15,16);
write('K&#732;TABIN ALINDI¦I TAR&#732;H.......:');readln(kay.kitapaltarih);
gotoxy(15,18);
write('K&#732;TABIN GET&#732;R&#732;LECE¦&#732; TAR&#732;H...:');readln(kay.kitapgettarih);
gotoxy(25,20);
write('B&#732;LG&#732; DOSYAYA KAYDED&#732;LS&#732;N M&#732;? [E/H]');
repeat
tus:=upcase(readkey);
until tus in['E','H'];
writeln(tus);
if tus='E'then begin
kay.f:='*';
seek(dosya, filesize(dosya));
write(dosya,kay);end;
until 1=2;end;
procedure listeleme;
var
s:integer;
begin
assign(dosya,'KUTUP.DAT');
{$I-}reset(dosya);I:=IOresult;{$I+}
if I <> 0 then begin
gotoxy(20,22);
writeln('DOSYA YOK...');
tus:=readkey;
halt;
end;clrscr;
writeln('&#732;S&#732;M K&#732;TAP NO K&#732;TABIN ADI K&#732;TABIN YAZARI K&#732;&#382;&#732;N&#732;N TELEFONU');
writeln('-------------------------------------------------------------------------------');
s:=3;
for i:=0 to filesize(dosya)-1 do
begin
seek(dosya,i);
read(dosya,kay);
if kay.f='*'then
begin
s:=s+1;
gotoxy(1,s);write(kay.isim);
gotoxy(13,s);write(kay.kitapno);
gotoxy(26,s);write(kay.kitapadi);
gotoxy(44,s);write(kay.kitapyazari);
gotoxy(64,s);write(kay.telefon);
end;
if s>18 then begin
gotoxy(20,21);
write('D&#732;¦ER SAYFAYA GE&#8364;MEK &#732;&#8364;&#732;N');
write('B&#732;R TU&#382;A BASINIZ...');
tus:=readkey;
s:=0;
clrscr;end;end;
gotoxy(20,21);
write('L&#732;STELENECEK KAYIT B&#732;TT&#732;...');
tus:=readkey;
window(1,1,80,25);
close(dosya);end;
procedure lis;
var
s:integer;
begin
assign(dosya,'KUTUP.DAT');
{$I-}reset(dosya);I:=IOresult;{$I+}
if I <> 0 then begin
gotoxy(20,22);
writeln('DOSYA YOK...');
tus:=readkey;
halt;
end;clrscr;
writeln('K&#732;TABIN T&#353;R&#353; K&#732;TABI ALDI¦I TAR&#732;H K&#732;TABI GET&#732;RECE¦&#732; TAR&#732;H K&#732;&#382;&#732;N&#732;N &#732;L&#732; &#732;L&#8364;ES&#732;');
writeln('------------------------------------------------------------------------------------');
s:=3;
for i:=0 to filesize(dosya)-1 do
begin
seek(dosya,i);
read(dosya,kay);
if kay.f='*'then
begin
s:=s+1;
gotoxy(1,s);write(kay.kitapturu);
gotoxy(16,s);write(kay.kitapaltarih);
gotoxy(38,s);write(kay.kitapgettarih);
gotoxy(63,s);write(kay.ililce);
end;
if s>18 then begin
gotoxy(20,21);
write('D&#732;¦ER SAYFAYA GE&#8364;MEK &#732;&#8364;&#732;N');
write('B&#732;R TU&#382;A BASINIZ...');
tus:=readkey;
s:=0;
clrscr;end;end;
gotoxy(20,21);
write('L&#732;STELENECEK KAYIT B&#732;TT&#732;...');
tus:=readkey;
window(1,1,80,25);
close(dosya);end;
procedure yigit;
var
sec:integer;
begin
clrscr;
gotoxy(30,12);writeln(' 1-K&#732;TABIN &#8482;ZELL&#732;KLER&#732;');
gotoxy(30,14);writeln(' 2-TAR&#732;H,T&#353;R,ADRES B&#732;LG&#732;S&#732;');
gotoxy(35,16);writeln('SE&#8364;&#732;M&#732;N&#732;Z...:');readln(sec);
if sec=1 then begin listeleme;end;
if sec=2 then begin lis;end;
end;
procedure bul;
var
ara:string[30];begin
assign(dosya,'KUTUP.DAT');
{$I-}Reset (dosya);
kod:=IOresult;{$I+}
if kod<>0 then begin
gotoxy(20,22);
write('DOSYA YOK...');
tus:=readkey;
exit;end;
repeat
clrscr;
gotoxy(22,1);
write('ARADI¦INIZ K&#732;TAP NO.......:');readln(ara);
if ara="then begin
close(dosya);
exit;end;
for i:=0 to filesize(dosya)-1 do
begin
seek(dosya,i);
read(dosya,kay);
if(kay.f='*')and (kay.kitapno=ara)then
begin clrscr;
gotoxy(15,2);
write('K&#732;TABI ALANIN &#732;SM&#732;...........:',kay.isim);
gotoxy(15,4);
write('K&#732;TAP NO.....................:',kay.kitapno);
gotoxy(15,6);
write('K&#732;TABIN ADI..................:',kay.kitapadi);
gotoxy(15,8);
write('K&#732;TABIN YAZARI...............:',kay.kitapyazari);
gotoxy(15,10);
write('K&#732;TABI ALANIN TELEFONU.......:',kay.telefon);
gotoxy(15,12);
write('K&#732;TABI ALANIN &#732;L&#732; &#732;L&#8364;ES&#732;.....:',kay.ililce);
gotoxy(15,14);
write('K&#732;TABIN T&#353;R&#353;.................:',kay.kitapturu);
gotoxy(15,16);
write('K&#732;TABIN ALINDI¦I TAR&#732;H.......:',kay.kitapaltarih);
gotoxy(15,18);
write('K&#732;TABIN GET&#732;R&#732;LECE¦&#732; TAR&#732;H...:',kay.kitapgettarih);
gotoxy(15,20);
write('ARADI¦INIZ KAYIT BU MU? [E/H]');
repeat
tus:=upcase(readkey);
until tus in['E','H'];
if tus='E'then
begin
close(dosya);
exit;end;end;end;
writeln;
gotoxy(15,22);
write('ARADI¦INIZ KAYIT YOK...');
write('DEVAM ETMEK &#732;&#8364;&#732;N B&#732;R TU&#382;A BASINIZ...');
tus:=readkey;
until 1=2;end;
procedure arama;
var
ara:string[30];
begin
assign(dosya,'KUTUP.DAT');
{$I-}reset(dosya);kod:=IOresult;{$I+};
if kod<>0 then begin
gotoxy(20,22);
write('DOSYA YOK...');
write('DEVAM ETMEK &#732;&#8364;&#732;N B&#732;R TU&#382;A BASINIZ...');
tus:=readkey;
exit;end;
repeat;
clrscr;
gotoxy(22,1);
write('ARADI¦INIZ &#732;S&#732;M.......:');readln(ara);
if ara="then begin
close(dosya);
exit;end;
for i:=0 to filesize(dosya)-1 do
begin
seek(dosya,i);
read(dosya,kay);
if(kay.f='*')and(kay.isim=ara)then
begin clrscr;
gotoxy(15,2);
write('K&#732;TABI ALANIN &#732;SM&#732;...........:',kay.isim);
gotoxy(15,4);
write('K&#732;TAP NO.....................:',kay.kitapno);
gotoxy(15,6);
write('K&#732;TABIN ADI..................:',kay.kitapadi);
gotoxy(15,8);
write('K&#732;TABIN YAZARI...............:',kay.kitapyazari);
gotoxy(15,10);
write('K&#732;TABI ALANIN TELEFONU.......:',kay.telefon);
gotoxy(15,12);
write('K&#732;TABI ALANIN &#732;L&#732; &#732;L&#8364;ES&#732;.....:',kay.ililce);
gotoxy(15,14);
write('K&#732;TABIN T&#353;R&#353;.................:',kay.kitapturu);
gotoxy(15,16);
write('K&#732;TABIN ALINDI¦I TAR&#732;H.......:',kay.kitapaltarih);
gotoxy(15,18);
write('K&#732;TABIN GET&#732;R&#732;LECE¦&#732; TAR&#732;H...:',kay.kitapgettarih);
gotoxy(15,20);
write('ARADI¦INIZ KAYIT BU MU? [E/H]');
repeat
tus:=upcase(readkey);
until tus in['E','H'];
if tus='E' then begin
close(dosya);
exit;end;end;end;
writeln;
gotoxy(15,22);
write('ARADI¦INIZ KAYIT YOK...');
write('DEVAM ETMEK &#732;&#8364;&#732;N B&#732;R TU&#382;A BASINIZ...');
tus:=readkey;
until 1=2;end;
procedure serkan;
var
ara:string[30];
begin
assign(dosya,'KUTUP.DAT');
{$I-}reset(dosya);kod:=IOresult;{$I+};
if kod<>0 then begin
gotoxy(20,22);
write('DOSYA YOK...');
tus:=readkey;
exit;end;
repeat;
clrscr;
gotoxy(22,1);
write('ARADI¦INIZ YAZARIN ADI......:');readln(ara);
if ara="then begin
close(dosya);
exit;end;
for i:=0 to filesize(dosya)-1 do
begin
seek(dosya,i);
read(dosya,kay);
if(kay.f='*')and(kay.kitapyazari=ara)then
begin clrscr;
gotoxy(15,2);
write('K&#732;TABI ALANIN &#732;SM&#732;...........:',kay.isim);
gotoxy(15,4);
write('K&#732;TAP NO.....................:',kay.kitapno);
gotoxy(15,6);
write('K&#732;TABIN ADI..................:',kay.kitapadi);
gotoxy(15,8);
write('K&#732;TABIN YAZARI...............:',kay.kitapyazari);
gotoxy(15,10);
write('K&#732;TABI ALANIN TELEFONU.......:',kay.telefon);
gotoxy(15,12);
write('K&#732;TABI ALANIN &#732;L&#732; &#732;L&#8364;ES&#732;.....:',kay.ililce);
gotoxy(15,14);
write('K&#732;TABIN T&#353;R&#353;.................:',kay.kitapturu);
gotoxy(15,16);
write('K&#732;TABIN ALINDI¦I TAR&#732;H.......:',kay.kitapaltarih);
gotoxy(15,18);
write('K&#732;TABIN GET&#732;R&#732;LECE¦&#732; TAR&#732;H...:',kay.kitapgettarih);
gotoxy(15,20);
write('ARADI¦INIZ KAYIT BU MU? [E/H]');
repeat
tus:=upcase(readkey);
until tus in['E','H'];
if tus='E' then begin
close(dosya);
exit;end;end;end;
writeln;
gotoxy(15,22);
write('ARADI¦INIZ KAYIT YOK...');
write('DEVAM ETMEK &#732;&#8364;&#732;N B&#732;R TU&#382;A BASINIZ...');
tus:=readkey;
until 1=2;end;
procedure duzeltme;
var
ara:string[30];
begin
assign(dosya,'KUTUP.DAT');
{$I-}reset(dosya);kod:=IOresult;{$I+};
if kod<>0 then begin
gotoxy(20,22);
write('DOSYA YOK...');
tus:=readkey;exit;end;
clrscr;
gotoxy(22,1);
write('D&#353;ZELT&#732;LECEK &#732;S&#732;M.......:');readln(ara);
for I:=0 to filesize(dosya)-1 do
begin
seek(dosya,i);
read(dosya,kay);
if(ara=kay.isim)and(kay.f='*')then
begin clrscr;
gotoxy(15,2);
writeln('K&#732;TABI ALANIN &#732;SM&#732;...........:',kay.isim);
gotoxy(15,4);
writeln('K&#732;TAP NO.....................:',kay.kitapno);
gotoxy(15,6);
writeln('K&#732;TABIN ADI..................:',kay.kitapadi);
gotoxy(15,8);
writeln('K&#732;TABIN YAZARI...............:',kay.kitapyazari);
gotoxy(15,10);
writeln('K&#732;TABI ALANIN TELEFONU.......:',kay.telefon);
gotoxy(15,12);
writeln('K&#732;TABI ALANIN &#732;L&#732; &#732;L&#8364;ES&#732;.......:',kay.ililce);
gotoxy(15,14);
writeln('K&#732;TABIN T&#353;R&#353;.................:',kay.kitapturu);
gotoxy(15,16);
writeln('K&#732;TABIN ALINDI¦I TAR&#732;H.......:',kay.kitapaltarih);
gotoxy(15,18);
writeln('K&#732;TABIN GET&#732;R&#732;LECE¦&#732; TAR&#732;H...:',kay.kitapgettarih);
gotoxy(15,20);
write('D&#353;ZELT&#732;LECEK KAYIT BU MU? [E/H]');
repeat
tus:=upcase(readkey);
until tus in['E','H'];
if tus='E'then
repeat clrscr;
gotoxy(15,2);
writeln('A-K&#732;TABI ALANIN &#732;SM&#732;...........:',kay.isim);
gotoxy(15,4);
writeln('B-K&#732;TAP NO.....................:',kay.kitapno);
gotoxy(15,6);
writeln('C-K&#732;TABIN ADI..................:',kay.kitapadi);
gotoxy(15,8);
writeln('D-K&#732;TABIN YAZARI...............:',kay.kitapyazari);
gotoxy(15,10);
writeln('E-K&#732;TABI ALANIN TELEFONU.......:',kay.telefon);
gotoxy(15,12);
writeln('F-K&#732;TABI ALANIN &#732;L&#732; &#732;L&#8364;ES&#732;.....:',kay.ililce);
gotoxy(15,14);
writeln('G-K&#732;TABIN T&#353;R&#353;.................:',kay.kitapturu);
gotoxy(15,16);
writeln('H-K&#732;TABIN ALINDI¦I TAR&#732;H.......:',kay.kitapaltarih);
gotoxy(15,18);
writeln('I-K&#732;TABIN GET&#732;R&#732;LECE¦&#732; TAR&#732;H...:',kay.kitapgettarih);
gotoxy(15,20);
writeln('J-&#732;&#382;LEM SONU...');
gotoxy(2,22);
write('SE&#8364;&#732;M&#732;N&#732;Z (A...J)(ESC=&#732;PTAL) ');
repeat
tus:=readkey;
until tus in['A'..'J',#27];
case tus of
'A':begin
gotoxy(10,27);
write('K&#732;TABI ALANIN &#732;SM&#732;......:');readln(kay.isim);end;
'B':begin
gotoxy(10,27);
write('K&#732;TAP NO.....................:');readln(kay.kitapno);end;
'C':begin;
gotoxy(10,27);
write('K&#732;TABIN ADI..................:');readln(kay.kitapadi);end;
'D':begin;
gotoxy(10,27);
write('K&#732;TABIN YAZARI...............:');readln(kay.kitapyazari);end;
'E':begin;
gotoxy(10,27);
write('K&#732;TABI ALANIN TELEFONU.......:');readln(kay.telefon);end;
'F':begin;
gotoxy(10,27);
write('K&#732;TABI ALANIN &#732;L&#732; &#732;L&#8364;ES&#732;.....:');readln(kay.ililce);end;
'G':begin;
gotoxy(10,27);
write('K&#732;TABIN T&#353;R&#353;.................:');readln(kay.kitapturu);end;
'H':begin;
gotoxy(10,27);
write('K&#732;TABIN ALINDI¦I TAR&#732;H.......:');readln(kay.kitapaltarih);end;
'I':begin;
gotoxy(10,27);
write('K&#732;TABIN GET&#732;R&#732;LECE¦&#732; TAR&#732;H...:');readln(kay.kitapgettarih);end;
'J':begin;
seek(dosya,I);
write(dosya,kay);
gotoxy(20,29);
write('&#732;&#382;LEM TAMAMLANDI...');
close(dosya);
tus:=readkey;
exit;end;
#27:exit;end;
until 1=2;end;end;
gotoxy(15,25);
write('B&#8482;YLE B&#732;R KAYIT YOK...');
close(dosya);
tus:=readkey;end;
procedure silme;
var
ara:string[30];
begin
assign(dosya,'KUTUP.DAT');
{$I-}reset(dosya);
kod:=IOresult;{$I+};
if kod<>0 then begin
gotoxy(20,22);
write('DOSYA YOK...');
tus:=readkey;exit;end;
clrscr;
gotoxy(15,1);a
write('S&#732;L&#732;NECEK &#732;S&#732;M.........:');readln(ara);
for i:=0 to filesize(dosya)-1 do begin
seek(dosya,i);
read(dosya,kay);
if(ara=kay.isim)and(kay.f='*')then
begin clrscr;
gotoxy(15,2);
writeln('K&#732;TABI ALANIN &#732;SM&#732;...........:',kay.isim);
gotoxy(15,4);
writeln('K&#732;TAP NO.....................:',kay.kitapno);
gotoxy(15,6);
writeln('K&#732;TABIN ADI..................:',kay.kitapadi);
gotoxy(15,8);
writeln('K&#732;TABIN YAZARI...............:',kay.kitapyazari);
gotoxy(15,10);
writeln('K&#732;TABI ALANIN TELEFONU.......:',kay.telefon);
gotoxy(15,12);
writeln('K&#732;TABI ALANIN &#732;L&#732; &#732;L&#8364;ES&#732;.....:',kay.ililce);
gotoxy(15,14);
writeln('K&#732;TABIN T&#353;R&#353;.................:',kay.kitapturu);
gotoxy(15,16);
writeln('K&#732;TABIN ALINDI¦I TAR&#732;H.......:',kay.kitapaltarih);
gotoxy(15,18);
writeln('K&#732;TABIN GET&#732;R&#732;LECE¦&#732; TAR&#732;H...:',kay.kitapgettarih);
gotoxy(15,20);
write('S&#732;L&#732;NECEK KAYIT BU MU? [E/H]>');
repeat
tus:=upcase(readkey);
until tus in['E','H'];
if tus='E' then begin
kay.f:='s';
seek(dosya,i);
write(dosya,kay);
gotoxy(20,22);
write('KAYIT S&#732;L&#732;ND&#732;...');
close(dosya);
tus:=readkey;
exit;end;end;end;
gotoxy(15,22);
write('KAYIT YOK...');
write('DEVAM ETMEK &#732;&#8364;&#732;N B&#732;R TU&#382;A BASINIZ');
close(dosya);
tus:=readkey;end;
procedure bak;
var
sec:integer;
begin clrscr;
gotoxy(27,8);writeln('+++ARAMA+++');
gotoxy(26,9);writeln('=============');
gotoxy(24,11);writeln('1-) ADA G&#8482;RE ARAMA');
gotoxy(24,13);writeln('2-) K&#732;TAP NOSUNA G&#8482;RE ARAMA');
gotoxy(24,15);writeln('3-) YAZAR ADINA G&#8482;RE ARAMA');
gotoxy(24,17);writeln('SE&#8364;&#732;M&#732;N&#732;Z...:');readln(sec);
if sec=1 then begin
arama;end;
if sec=2 then begin
bul;end;
if sec=3 then begin
serkan;end;end;
procedure ekran;
begin clrscr;
gotoxy(22,4);
highvideo;
write('***TURGUT AYDEMİR***');
gotoxy(25,6);
writeln('K&#353;T&#353;PHANE PROGRAMI');
lowvideo;
end;
begin
repeat
ekran;
gotoxy(25,10);write('1- B&#732;LG&#732; G&#732;R&#732;&#382;&#732;');
gotoxy(25,12);write('2- B&#732;LG&#732; L&#732;STES&#732;');
gotoxy(25,14);write('3- B&#732;LG&#732; ARAMA');
gotoxy(25,16);write('4- B&#732;LG&#732; D&#353;ZELTME');
gotoxy(25,18);write('5- B&#732;LG&#732; S&#732;LME');
gotoxy(30,20);write('SE&#8364;&#732;M&#732;N&#732;Z..(ESC=&#8364;IKI&#382;)...:');
repeat
gotoxy(56,20);
write(' ');
gotoxy(56,20);
t:=readkey;
if t<>#27 then writeln(t);
case t of
'1':kayityap;
'2':yigit;
'3':bak;
'4':duzeltme;
'5':silme;
end;
until t in['1'..'5',#27];
until t=#27;
clrscr;
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 - 2019 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.