Page 81 - Modul Daskom 2020

Modul 3 – Array, Record dan Pemrograman Modular 2020

Contoh Pseudecode Transfer By Location :
Program TransferLocation2
{program akan melakukan perhitungan total pembayaran perawatan serta menapilkan keterangan
harga perawatan yang baru}

Deklarasi
jumlah,harga:real

Procedure Total(jumlah:real; var d:real)
total:real
Mulai
Tulis(jumlah)
Tulis(harga)
Totaljumlah x harga
Tulis(total)
Baca(d)
Selesai

Mulai
Baca(jumlah)
Baca(harga)
Tulis(jumlah x harga)
total(jumlah,harga)
Tulis(harga)
Tulis(jumlah x harga)
Selesai

Contoh Source code Transfer By Location :
Program TransferLocation2;
Uses crt;
Var
jumlah,harga:real;

Procedure Total(jumlah:real; var d:real);
Var
total:real;
Begin
clrscr;
writeln('Jumlah orang :',jumlah:0:0);
writeln('Jumlah Perawatan :',harga:0:0);
total:=jumlah*harga;
writeln('Total biaya Perawatan:',total:0:0);
write('Harga perawatan yang baru:');readln(d);
writeln;
End ;

Begin
clrscr;
writeln('Menghitung Total Pembayaran Perawatan');
write('Jumlah Orang :');readln(jumlah);
write('Harga dari perawatan yang dilakukan:');readln(harga);
writeln('Total biaya perawatan :',(jumlah*harga):0:0);
readln;
total(jumlah,harga);
clrscr;
writeln('Harga Perawatan yang baru adalah ',harga:0:0);
writeln('Total yang perlu dibayar adalah ',(jumlah*harga):0:0);
readln;

Praktikum Dasar Komputer & Pemrograman 2020 III-79