Subscribe:

Labels

Rabu, 21 Desember 2011

Membuat Program Pembayaran Sederhana Mengungakan Pascal

Sekarang saya akan membuat program pembayaran sederhana menggunakan Turbo pascal.
Mungkin teman-teman yang membutuhkan script pascal tentang program pemayaran , naah saya ada script nya walau sederhana semoga bisa membantu.
oh iya ini menggunakan TPW(turbo pascal for windows) jika menggunakan Turbo pascal 7...uses wincrt gan ti menjadi uses crt.



ok, langsung ke TKP.



uses wincrt;
var
b:string;
h,y,u,by,yoe:real;
lagi:char;
begin
writeln('---------------------');
writeln('Toko " Dayaks People"');
Writeln('---------------------');
yoe:=0;
Lagi:='Y';
while lagi='Y' do
begin
write('Barang:');readln(b);
write('Harga:Rp.');readln(h);
write('Unit:');readln(u);
by:=H*u;
writeln('Bayar: Rp.',by:0:0);
writeln('Coba Lagi(Y/T);');readln(Lagi);
writeln;
writeln;
yoe:=yoe+by;
end;
writeln('total bayar: Rp.',yoe:0:0);
end.




Semoga bisa membantu teman-teman 

Tidak ada komentar:

Poskan Komentar