Foto copy sekarang merupakan hal yang sederhana untuk memperbanyak suatu data dalam bentuk cetakan. Namun jika anda seorang pengusaha jasa foto copy dan pada saat yang sama anda mendapatkan pelanggan yang memfoto copy banyak file atau data, tentu anda pasti bingung menjumlahkan biaya hasil foto copy. Nah untuk memudahkan proses tersebut, kali ini gratisan69 akan membagikan langkah-langkah membuat program Foto Copy pada Pascal. Penasaran!!! Mari kita lihat penampakannya.
Berikut Codingnya:
Program Foto_Copy;
uses crt;
var
a : integer;
b, c : integer;
begin
clrscr;
write('Masukkan Lembar : '); readln(a);
b:=a*70;
c:=a*100;
writeln;
if a>=100
then writeln('Total Biaya Fotocopy = Rp',b);
if ((a>=1) and (a<=99))
then writeln('Total Biaya Fotocopy = Rp',c);
readln;
end.
uses crt;
var
a : integer;
b, c : integer;
begin
clrscr;
write('Masukkan Lembar : '); readln(a);
b:=a*70;
c:=a*100;
writeln;
if a>=100
then writeln('Total Biaya Fotocopy = Rp',b);
if ((a>=1) and (a<=99))
then writeln('Total Biaya Fotocopy = Rp',c);
readln;
end.
Bagi untuk yang tidak mau repot2 menulis, bisa download DISINI
Anda sedang membaca artikel tentang Membuat Program Foto Copy Dengan Pascal dan Anda bisa menemukan artikel Membuat Program Foto Copy Dengan Pascal ini dengan url http://gratisan69.blogspot.com/2012/02/membuat-program-foto-copy-dengan-pascal.html. Anda boleh menyebarluaskan atau mengcopy artikel Membuat Program Foto Copy Dengan Pascal ini jika memang bermanfaat bagi Anda atau teman-teman Anda, namun jangan lupa untuk mencantumkan link sumbernya.
Tidak ada komentar:
Posting Komentar