Pascal'da Basit Bir bakkal programı

KlavyeSende.CoM

Kasım 23, 2008, 02:09:53 ÖS

Merhaba, Ziyaretçi. Lütfen giriş yapın veya üye olun.

KlavyeSende.Com | Artık Klavye Sende !

KlavyeSende.CoM > • BilgisayaR • > Web Programlama ve Programlama > PascaL > Pascal'da Basit Bir bakkal programı

Sayfa: [1]

« önceki sonraki »

Yazdır

	Gönderen	Konu: Pascal'da Basit Bir bakkal programı (Okunma Sayısı 35 defa)
0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Şubat 16, 2008, 11:43:25 ÖÖ

Bloq
BanneD

Üye Bilgileri Üye ID: 5521

Mesaj Sayısı: 803

Nerden: ~~ß€§îKTâ§~~ ℓı ¦~° Pî§KøpÂT °~¦

Rep : 10

Durumum:

Pascal'da Basit Bir bakkal programı

Uses crt;

Type

Bilgi=record
tel:integer;
borc:integer;
ad:string[40];
soyad:string[40];
end;

Var
ch:char;
deg:bilgi;
dosya:file of bilgi;

Begin
assign(dosya',bakkal.dat');
rewrite(dosya);
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);
end.

İNŞALLAH İŞİNİZE YARAR.


	Logged

Sayfa: [1]

Yazdır

Pascal'da Basit Bir bakkal programı

« önceki sonraki »

Gitmek istediğiniz yer: