Pemrograman Pascal Menentukan Harga Cuci Mobil Motor (IF BERSARANG/NESTED)
Pemrograman Pascal Menentukan Harga Cuci Mobil Motor (IF BERSARANG/NESTED)
Buatlah program Dengan Output Dibawah ini (menggunakan IF BERSARANG/NESTED):
* Jika Memilih kendaraan mt( motor ) dan memilih Paket 1 maka harga 100000.
* Jika Memilih kendaraan mt( motor ) dan memilih Paket 2 maka harga 80000.
* Jika Memilih kendaraan mt( motor ) dan memilih Paket 3 maka harga 50000.
* Jika Memilih kendaraan mb( mobil ) dan memilih Paket 1 maka harga 450000.
* Jika Memilih kendaraan mb( mobil ) dan memilih Paket 2 maka harga 350000.
* Jika Memilih kendaraan mb( mobil ) dan memilih Paket 3 maka harga 150000.
Contoh Program :
Program soal3uts;
uses crt;
var
kendaraan,pilih: string;
harga: longint;
begin
clrscr;
writeln('Nama : Farhan Misbahul Hayat');
writeln('Npm : 202143502440');
writeln('============================');
writeln('>>> CUCI STEAM BERSIH <<<');
writeln('Paket1 =>> Wax,Cuci,Poles');
writeln('Paket2 =>> Wax,Cuci');
writeln('Paket3 =>> Cuci Bersih');
writeln('======================================================');
write('Apa Jenis Kendaraan anda (mt(motor) atau mb(mobil)) : ');
readln(kendaraan);
write('Pilih Paket : ');
readln(pilih);
writeln('======================================================');
if (pilih='paket1') then
if (kendaraan='mt') then
begin
harga:=100000;
write('Harga : ',harga);
end
else
if (kendaraan='mb') then
begin
harga:=450000;
write('Harga : ',harga);
end
else
begin
write('Format yang anda masukkan salah');
readln();
end
else
if (pilih='paket2') then
if (kendaraan='mt') then
begin
harga:=80000;
write('Harga : ',harga);
end
else
if (kendaraan='mb') then
begin
harga:=350000;
write('Harga : ',harga);
end
else
begin
write('Format yang anda masukkan salah');
readln();
end
else
if (pilih='paket3') then
if (kendaraan='mt') then
begin
harga:=50000;
write('Harga : ',harga);
end
else
if (kendaraan='mb') then
begin
harga:=150000;
write('Harga : ',harga);
end
else
begin
write('Format yang anda masukkan salah');
readln();
end;
readln;
end.
Hasil Outputnya :
Komentar
Posting Komentar