Programalama > PASCAL

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&#8225; sahibinin ismi:'); readln(ari[i]);
    arma[i]:=' '; write('yeni ara&#8225; markasi:'); readln(arma[i]);
    armo[i]:=' '; write('yeni ara&#8225; Modeli:'); readln(armo[i]);
    arre[i]:=' '; write('yeni ara&#8225; Rengi:'); readln(arre[i]);
    arpl[i]:=' '; write('yeni ara&#8225; Plakasi:'); readln(arpl[i]);
     k:=1;
    end;
  end;

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

    until   ts='h';
   end;


if sec='1' then
begin
clrscr;
repeat
 i:=i+1;
 x:=0;
write('Ara&#8225; Sahibinin ismini girin:');readln(ari[i]);
write('Ara&#8225; Markasi girin:');readln(arma[i]);
write('Ara&#8225; Modeli girin:');readln(armo[i]);
write('Ara&#8225; 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&#353;S&#353;');
gotoxy(30,8);writeln('_________________');
gotoxy(30,10);writeln('[1]isme G&#8221;re Arama');
gotoxy(30,12);writeln('[2]Plakaya G&#8221;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.