• 24Haz

  Dosyalama işlemleri listeleme arama uygulaması

  Pascal uygulamaları

  Program dosyaya girilen ad soyadı kaydediyor ve dosyada arama ve listeleme yapıyor.
  

  dosyalama

  iÅŸlemleri

  uses crt;
  var
  isim,ad,soy:string;dosya:text;
  tus:char;
  procedure kayit;
  begin
  {$i-} append(dosya); {$i+}
  if ioresult<>0 then rewrite(dosya);
  repeat
  write(’AD giriniz:’);
  readln(ad);
  write(’SOYAD giriniz:’);
  readln(soy);
  writeln(dosya,ad);
  writeln(dosya,soy);
  writeln(’Başka kayit yapilsin mi:(E,H,ESC)’);
  repeat
  tus:=readkey;
  until tus in['H','h','E','e',#27];
  until tus in['H','h',#27];
  close(dosya);
  end;

  procedure listeleme;
  begin
  {$i-} reset(dosya); {$i+}
  if ioresult=0 then begin
  while not eof(dosya) do begin
  write(’AD:’); readln(dosya,ad); write(ad:10);
  write(’SOYAD:’); readln(dosya,soy); write(soy:10);
  writeln;
  end;
  close(dosya);
  end;

  end;

  procedure arama;
  begin
  {$i-}reset(dosya);{$i+}

  writeln(’Aranan isim:’); readln(isim);
  while not eof(dosya) do begin
  readln(dosya,ad);
  readln(dosya,soy);
  if isim=ad then begin
  write(’Adı:’,ad:15);
  write(’ Soyadi:’,soy:15);
  break;
  end;
  end;
  close(dosya);
  end;

  begin
  clrscr;
  assign(dosya,’d:deneme.txt’);
  repeat
  repeat
  writeln(’**—–MENÃœ—–**’);
  writeln(’1. Kayıt’);
  writeln(’2. Listeleme’);
  writeln(’3. Çıkış’);
  writeln(’4. Arama’);
  tus:=Readkey;
  Until tus in ['1','2','3','4',#27];
  clrscr;
  case (tus) of
  ‘1′:kayit;
  ‘2′:listeleme;
  ‘3′:halt;
  ‘4′:arama;
  end;
  until (tus=#27);

  readln;
  end.

  Dosyalama işlemleri listeleme arama uygulaması | dosyalama işlemleri | dosyalama işlemleri arama işlemi | dosyalama listeleme işlemi

  Yazar: admin @ 12:47

  Etiketler: dosyalama arama işlemi, Dosyalama işlemleri listeleme arama uygulaması, dosyalama listeleme işlemi

Yorum Yaz

?sim

Email (yay?nlanmayacak))

Website