portakal

Gönderen Konu: pascal' da dogrudan erişimli dosya  (Okunma sayısı 5216 defa)  Share 

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı nyks

  • İlk Adım
  • *
  • İleti: 6
  • Toplam: 0
pascal' da dogrudan erişimli dosya
« : 23 Nisan 2007, 22:23:02 »
arkadaslar bana acilen yardım gerekli!!! pascal'da runtime da dogrudan erişimli dosya oluşturmam gerekiyor .Kullanıcı runtime da dosyanın sahalarını giricek ama bu sahaları ben runtime da type da nasıl tanımlıycam?? bu sistemi veri tabanı oluşturmak için kullanacağım,şimdiden tesekkür ederim...

Çevrimdışı <MEHMET>

  • By DeHsEt
  • Genel Yönetici
  • Usta
  • *****
  • İleti: 1118
  • Toplam: 87
  • Bilişim Rüzgarı
Ynt: pascal' da dogrudan erişimli dosya
« Yanıtla #1 : 17 Mayıs 2007, 14:51:59 »
Elimde doğrudan erişimli dosya oluşturmak için şöyle bir örnek var. Umarım işine yarar.
Bu örnekte adı, soyadı girilen öğrencinin vize1,vize2 ve final notları dosyaya yazdırılıyor.
Programdan çıkmak için adının sorulduğu ekranda boşken enter'a basınız.
Kod: You are not allowed to view links. Register or Login
uses crt;
type
kutuk=record
ad,soy,v1,v2,f:string[15];
end;

label
son;
var
dosya:file of kutuk;
kayit:kutuk;

begin
clrscr;
assign(dosya,'notlar.txt');
rewrite(dosya);
repeat
write('Ad      : ');readln(kayit.ad);
if kayit.ad='' then goto son;
write('Soyad   : ');readln(kayit.Soy);
write('Vize 1  : ');readln(kayit.v1);
write('Vize 2  : ');readln(kayit.v2);
write('Final   : ');readln(kayit.f);
write(dosya,kayit);
until false;
son:
close(dosya);
gotoxy(40,30);
writeln('BY MK');
writeln;
write('Cikmak icin Enter"a basiniz...');
readln;
end.
« Son Düzenleme: 17 Mayıs 2007, 14:53:55 Gönderen: DeHsEt »
İlim ilim bilmektir, ilim kendini bilmektir...
Yunus EMRE

Çevrimdışı PAINKILLER

  • İlk Adım
  • *
  • İleti: 2
  • Toplam: 2
Ynt: pascal' da dogrudan erişimli dosya
« Yanıtla #2 : 24 Mayıs 2007, 16:27:01 »
http://byjeepower.googlepages.com/PROJE.rar

bibak belki lazım olur

Bilişim Forum

Ynt: pascal' da dogrudan erişimli dosya
« Yanıtla #2 : 24 Mayıs 2007, 16:27:01 »

 

İstediğiniz Sorudan Başlayabilirsiniz | Doktor a Sor