Ujian Pemrograman1 Pascal Soal Genap

Soal Genap :

Soal Genap :
PLN menghitung biaya langganan perbulan bagi para pelanggan. Pelanggan dibagi 3 golongan, dengan kondisi sebagai berikut :
Gol=1 untuk pelanggan rumah biasa abodemen 25.000 biaya per kwh 1000,
Gol=2 untuk pelanggan rumah mewah abodemen 50.000 biaya per kwh 1500,
Gol=3 untuk pelanggan bisnis abodemen 100.000 biaya per kwh 200,

perhitungan total tagihan :
Total tagihan=jmlh pemakaian 9kwh)xbiaya perkwh+abodemen

output :
Nama Pelanggan = (input)
Golongan = (input)
pemakaian = (input)

abodemen =(program)
Biaya pemakaian=(program)
total tagihan (program)


coding program pascalnya adalah :

Program Pelanggan_Listrik_PLN;
uses crt;

var
nama :string;
total_tagihan,gol,pemakaian,biaya,abodemen: real;
const
abodemen1=25000;
abodemen2=50000;
abodemen3=100000;
biaya_kwh1=1000;
biaya_kwh2=1500;
biaya_kwh3=2000;

begin
clrscr;
writeln('--- DAFTAR BIAYA PELANGGAN PLN ----');
writeln('___________________________________');
write ('Nama Pelanggan : ');readln(nama);
write ('Golongan [1,2,3] : ');readln(gol);
write ('Jumlah Pemakaian : ');readln(pemakaian);
writeln('___________________________________');

if (gol=1) then
total_tagihan:=pemakaian*biaya_kwh1+abodemen1 else
if (gol=2) then
total_tagihan:=pemakaian*biaya_kwh2+abodemen2 else
total_tagihan:=pemakaian*biaya_kwh3+abodemen3;

if (gol=1) then
biaya:=pemakaian*biaya_kwh1 else
if (gol=2) then
biaya:=pemakaian*biaya_kwh2 else
biaya:=pemakaian*biaya_kwh3;

writeln('Abodemen Anda adalah ','Rp= ',abodemen:10:0);
writeln('Biaya Pemakaian =',biaya:10:0);
writeln('Total Tagihan =',Total_tagihan:10:0);
readln;
end.