Acilll

[gbalaban]

ya arkadaşlar benim ödev teslim etmem gerekiyo internetten arastırıyorum ama hiç vaktim yok konusu pascal:rastgele erişim dosyaları herkese teşekkürlerr

[burhanmt]

Aslında ödevlerde böyle kolaya gidip hemen foruma soruyu sormayın. Önce forumda bir aratın, araştırın. Bulamaz veya yeterli bilgi alamadığınız takdirde soruyu sorun.

Soruna gelecek olursak.
Pascal'da 3 tip dosya yapısı vardır. Bunlar:

1.si Text tipi dosyalar
2.si Rasgele erişimli tipli dosyalar *
3.sü Rasgele erişimli tipsiz dosyalar (blockread-blockwrite)

* Pascalda Rasgele erişimli tipli dosyalarda var bloğunda değişken tanımlama esnasında "file" reserved word kelimesinden yararlanırız. "File" ifadesinden sonra dosya tipini belirtmeliyiz. Meselâ: "file of string;" , "file of integer;", "file of kayit;" gibi...

Örnek verecek olursam:

PHP Kodu:

Uses crt,dos;

Var
Dosya: File of String;  { string tipinde rasgele erişimli bir dosya tanımı 
sayac:integer;
Bilgi   :String;
yapıyorum}
Begin
Assign(dosya,'deneme.dat');
{$i-}reset(dosya);{$i+}
if ioresult<>0 then rewrite(dosya);
seek(dosya,0);  { 0. indekse konumlan }
write(dosya,'indeks 0');

seek(dosya,1);  { 1. indekse konumlan }
write(dosya,'indeks 1');


seek(dosya,2);  { 2. indekse konumlan }
write(dosya,'indeks 2');

Close(dosya);

Assign(dosya,'deneme.dat');
{$i-}reset(dosya);{$i+}
if ioresult<>0 then exit;

for sayac:=0 to filesize(dosya)-1 do
begin
seek(dosya,sayac);
read(dosya,bilgi);
writeln(bilgi);
end;
Close(dosya);
End. 


Yukarıdaki ince espiri "seek" komutu ile istediğin indeks alanına konumlanarak oradaki bilgiyi okumandır. Dosyada kaçtane indeks olduğunu da filesize komutuyla öğrenebilirsin. Yani rasgele bir indeksi direk okuyarak ekrana yazdırabilirsin. Text tipi dosyalarda bu olay yoktur. Baştan başlayarak sırayla o kayıta kadar okuma yapması lazımdır. Bu da yavaşlık demektir. Bu yüzden rasgele erişimli dosyalar text tipi dosyalara nazaran çok daha hızlıdırlar. Günümüz veritabanlarını rasgele erişimli dosyalara örnek verebiliriz.

Belli bilgi kayıtlarını tek kayıt altında tutmak için record tiplerinden yararlanarak daha karmaşık uygulamalar için de:

PHP Kodu:

Uses crt,dos;

Type
Kayit = Record
isim: string;
memleket:string;
end;

Var
Dosya: File of Kayit;  { kayit tipinde rasgele erişimli bir dosya tanımı 
sayac:integer;
Kay:Kayit;
yapıyorum}
Begin
Assign(dosya,'deneme.dat');
{$i-}reset(dosya);{$i+}
if ioresult<>0 then rewrite(dosya);


kay.isim:='burhan';
kay.memleket:='Maraş';
seek(dosya,0);  { 0. indekse konumlan }
write(dosya,kay);

kay.isim:='Murat Evren';
kay.memleket:='Adana';
seek(dosya,1);  { 1. indekse konumlan }
write(dosya,kay);


kay.isim:='Bülent';
kay.memleket:='Kırşehir';
seek(dosya,2);  { 2. indekse konumlan }
write(dosya,kay);

Close(dosya);

Assign(dosya,'deneme.dat');
{$i-}reset(dosya);{$i+}
if ioresult<>0 then exit;

for sayac:=0 to filesize(dosya)-1 do
begin
seek(dosya,sayac);
read(dosya,kay);
writeln(kay.isim);
writeln(kay.memleket);
writeln('-------');
end;
Close(dosya);
End. 


Saygılar...

[gbalaban]

tesekkurler