Senin, 12 Maret 2012

Menentukan Pembayaran Pulsa Listrik

program listrik;
uses crt;
const
  wat = 600;
var
  a,b : integer ;
begin
 clrscr;
 write('Pemakaian Pulsa Listrik =');read(a);
 b := wat * a;
 writeln('Total Yang Dibayar = ',b);
 readln;
end.


program listrik;
uses crt;
var
  a,b : longint;
begin
 clrscr;
 write('Pemakaian Pulsa Listrik =');readln(a);
 b :=a * 600;
 writeln('Total Yang Dibayar = ',b);
 readln;
end.









0 comments:

ACCESS INFORMATION



Buka Semua | Tutup Semua

Sedang Perbaikan
Sedang Perbaikan
Silakan kirim pesan dan saran Anda,

Ahmad Sachowi Amin

Selamat Datang di Blog Saya, cybermatika.net.
Hobi saya adalah Belajar dan Belajar, entah yang penting bermanfaat untuk orang lain.Sharing adalah jalan saya, sharing dengan siapa saja yang penting memberi manfaat bagi saya.Ilmu adalah Cara saya, cara saya untuk belajar dan sharing tentang banyak hal.