burak25

uses crt;
var
sec,sec2,ts:char;
arpl,arre,ari,armo,arma:array[1..20]of string;
x,i:longint;
aranan,silinen,duz:string;
k,l,e,h,s:real;
begin textcolor(black); textbackground(red);
repeat
clrscr;
gotoxy(36,7);writeln('MENš');
gotoxy(30,8);writeln('_________________');
gotoxy(30,10);writeln('[1]Ara‡ kaydi girisi');
gotoxy(30,12);writeln('[2]Ara‡ kaydi listesi');
gotoxy(30,14);writeln('[3]Ara‡ kaydi arama');
gotoxy(30,16);writeln('[4]Ara‡ kaydi silme');
gotoxy(30,18);writeln('[5]Ara‡ kaydi d�zeltme');
gotoxy(30,20);writeln('[ESC]€ikis');
x:=3;
repeat
sec:=readkey;
until sec in['1'..'5',#27];
if sec='4' then
begin
clrscr;
repeat

write('Silmek istediginiz Aracin Sahibinin ismini girin:');readln(silinen);
readln;
for i:=1 to 15 do
begin
if silinen=ari[i] then
begin
clrscr;
gotoxy(1,8);write('Arac Sahibi');
gotoxy(16,8);write('Arac markasi');
gotoxy(31,8);write('Arac modeli');
gotoxy(46,8);write('Arac rengi');
gotoxy(61,8);write('Arac Plakasi');
gotoxy(1,9);writeln('-----------------------------------------------------------------------------');
gotoxy(1,10);write(ari[i],'-');
gotoxy(16,10);write(arma[i],'-');
gotoxy(31,10);write(armo[i],'-');
gotoxy(46,10);write(arre[i],'-');
gotoxy(61,10);writeln(arpl[i],'-');
readln;
clrscr;
ari[i]:=' ';
arma[i]:=' ';
armo[i]:=' ';
arre[i]:=' ';
arpl[i]:=' ';
k:=1;
end;
end;

if k=0 then writeln('Aranan Kayit bulunamadi.');
write('Baska Kayit Silecekmisiz E/H');
ts:=readkey;
clrscr;
until ts='h';
end;

if sec='5' then
begin
clrscr;
repeat

write('D�zeltmek istediginiz Aracin Sahibinin ismini girin:');readln(duz);
readln;
if duz<>'' then begin
for i:=1 to 15 do
begin
if duz=ari[i] then
begin
gotoxy(1,8);write('Arac Sahibi');
gotoxy(16,8);write('Arac markasi');
gotoxy(31,8);write('Arac modeli');
gotoxy(46,8);write('Arac rengi');
gotoxy(61,8);write('Arac Plakasi');
gotoxy(1,9);writeln('-----------------------------------------------------------------------------');
gotoxy(1,10);write(ari[i],'-');
gotoxy(16,10);write(arma[i],'-');
gotoxy(31,10);write(armo[i],'-');
gotoxy(46,10);write(arre[i],'-');
gotoxy(61,10);writeln(arpl[i],'-');
ari[i]:=' '; write('yeni ara‡ sahibinin ismi:'); readln(ari[i]);
arma[i]:=' '; write('yeni ara‡ markasi:'); readln(arma[i]);
armo[i]:=' '; write('yeni ara‡ Modeli:'); readln(armo[i]);
arre[i]:=' '; write('yeni ara‡ Rengi:'); readln(arre[i]);
arpl[i]:=' '; write('yeni ara‡ Plakasi:'); readln(arpl[i]);
k:=1;
end;
end;

end;
if k=0 then writeln('Aranan Kayit bulunamadi.');
readln;
write('Baska Kayit D�zeltecekmisiniz E/H');
ts:=readkey;

until ts='h';
end;


if sec='1' then
begin
clrscr;
repeat
i:=i+1;
x:=0;
write('Ara‡ Sahibinin ismini girin:');readln(ari[i]);
write('Ara‡ Markasi girin:');readln(arma[i]);
write('Ara‡ Modeli girin:');readln(armo[i]);
write('Ara‡ Rengi girin:');readln(arre[i]);
write('Aracin Plakasini girin:');readln(arpl[i]);
write('Baska Kayit Girilecekmi E/H');ts:=readkey;
if ts='e' then
x:=1;
if ts='h' then
x:=0;
until x=0;

end;




if sec='2' then
begin
clrscr;
gotoxy(1,8);write('Arac Sahibi');
gotoxy(16,8);write('Arac markasi');
gotoxy(31,8);write('Arac modeli');
gotoxy(46,8);write('Arac rengi');
gotoxy(61,8);write('Arac Plakasi');
gotoxy(1,9);write('-----------------------------------------------------------------------------');
for i:=1 to 15 do
begin
gotoxy(1,10+i);write(ari[i],'-');
gotoxy(16,10+i);write(arma[i],'-');
gotoxy(31,10+i);write(armo[i],'-');
gotoxy(46,10+i);write(arre[i],'-');
gotoxy(61,10+i);write(arpl[i],'-');
end;
readln;
end;


if sec='3' then
begin
clrscr;
k:=0;
repeat
aranan:=' ';
gotoxy(32,7);writeln('ARAMA MENšSš');
gotoxy(30,8);writeln('_________________');
gotoxy(30,10);writeln('[1]isme G”re Arama');
gotoxy(30,12);writeln('[2]Plakaya G”re Arama');
writeln('-----------------------------------------------------------------------------');
ts:=readkey;
if ts='1' then
begin
write('Aramak istediginiz Kisinin ismini girin:');readln(aranan);
for i:=1 to 15 do
begin
if aranan=ari[i] then
begin
clrscr;
gotoxy(1,8);write('Arac Sahibi');
gotoxy(16,8);write('Arac markasi');
gotoxy(31,8);write('Arac modeli');
gotoxy(46,8);write('Arac rengi');
gotoxy(61,8);write('Arac Plakasi');
gotoxy(1,9);writeln('-----------------------------------------------------------------------------');

gotoxy(1,10+i);write(ari[i],'-');
gotoxy(16,10+i);write(arma[i],'-');
gotoxy(31,10+i);write(armo[i],'-');
gotoxy(46,10+i);write(arre[i],'-');
gotoxy(61,10+i);writeln(arpl[i],'-');
k:=1;
end;
end;
if k=0 then writeln('Aranan kayit bulunamadi.');
readln;
clrscr;
end;
if ts='2' then
begin
write('Aramak istediginiz Aracin Plakasini girin:');readln(aranan);
for i:=1 to 15 do
begin
if aranan=arpl[i] then
begin
clrscr;
gotoxy(1,8);write('Arac Sahibi');
gotoxy(16,8);write('Arac markasi');
gotoxy(31,8);write('Arac modeli');
gotoxy(46,8);write('Arac rengi');
gotoxy(61,8);write('Arac Plakasi');
gotoxy(1,9);writeln('-----------------------------------------------------------------------------');
gotoxy(1,10+i);write(ari[i],'-');
gotoxy(16,10+i);write(arma[i],'-');
gotoxy(31,10+i);write(armo[i],'-');
gotoxy(46,10+i);write(arre[i],'-');
gotoxy(61,10+i);writeln(arpl[i],'-');
k:=1;
end;

end;
if k=0 then writeln('Aranan kayit bulunamadi.');
readln;
clrscr;
end;

write('Baska arama yapacakmisiniz E/H');
ts:=readkey;
clrscr;
until ts='h';
sec:=readkey;

end;
until sec in [#27];
end.