Toplam 1 adet sonuctan sayfa basi 1 ile 1 arasi kadar sonuc gösteriliyor
-
11.Aralık.2014, 07:54 #1
Pascal- Kolay Bir Bakkal Programı
Kod:
(* Basit Bir Bakkal Programı Yapalım *)
(* Müşterilerin Adını,Soyadını,TelefonNumarası,ve Borcunu Yazıdıralım *)
Uses crt;
Type
Bilgi=record
tel:integer;
borc:integer;
ad:string[40] (* 40 karekterde sınırladık *)
soyad:string[40]
end;
Var
ch:char;
deg:bilgi;
dosya:file of bilgi;
Begin
assign(dosya',bakkal.dat');
rewrite(dosya); (* Dosyamızı Açıyoruz bakkal.dat'ı *)
ch:='e';
while ch<>'h' do
Begin
writeln;
writeln('Müşteri Tel : ');readln(deg.tel);
writeln('Müşteri Borcu :');readln(deg.borc);
writeln('Müşteri İsmi :');readln(deg.ad);
writeln('Müşteri Soyisim :');readln(deg.soyad);
seek(dosya,deg.no);
write(dosya.deg);
writeln('Diğer Kayıtlara Bakmak İstermisiniz : ');
readln(ch);
end;
writeln;
close(dosya); (* yukarda actıgımız dosyayı kapatıyoruz *)
end.
Konu Bilgileri
Bu Konuya Gözatan Kullanıcılar
Şu anda 1 kullanıcı bu konuyu görüntülüyor. (0 kayıtlı ve 1 misafir)
Benzer Konular
-
ugg satın almak çok kolay
Konu Sahibi osman75 Forum Site EkleCevap: 0Son Mesaj : 26.Aralık.2014, 16:48 -
Pascal / Alan Hesaplama Programı (Readln Yapısı)
Konu Sahibi optimusprime Forum Görsel Proğramlama DilleriCevap: 0Son Mesaj : 11.Aralık.2014, 08:03 -
Sonocial'ı kullanmak çok KOLAY ve EĞLENCELİ
Konu Sahibi deniz Forum Apple Destek ForumuCevap: 0Son Mesaj : 01.Ekim.2014, 20:46 -
Linkedin ile Kolay ve Etkili Seo
Konu Sahibi WeBMasteR Forum LinkedinCevap: 1Son Mesaj : 17.Temmuz.2014, 14:42 -
Kolay ve işlevsel slider : Fotorama!
Konu Sahibi WeBMasteR Forum Webmaster DünyasıCevap: 0Son Mesaj : 21.Mayıs.2014, 22:20
Shopsocks5.com - Service Socks5...
03.Mayıs.2024, 05:31 in Güncel Proxy Adresleri