Tugas fungsi IF

Buatlah program diatas dengan ketentuan

tipe mobil hanya A,B,C,D SWELAIN ITU TIDAK ADA

JIKA Tipe mobil A maka APV dan harga sewa 2000000

JIKA Tipe mobil B maka XENIA dan harga sewa 3000000

JIKA Tipe mobil C maka AVANZA dan harga sewa 4000000

JIKA Tipe mobil D maka CRV dan harga sewa 5000000

  jumlah_bayar := lama_sewa * harga_Sewa;

Lama sewa  jika lebih dari sama dengan 10 HARI  diskon 10 % Dari Jumlah bayar]

Lama sewa  jika 5- 9 HARI  diskon 5 % Dari Jumlah bayar

selain itu 0

  pajak := 0.01 * jumlah_bayar;

sopir ada cuma y dan n

jika y maka 0.01 *jumlah bayar

jika n maka  0 

 total_bayar := jumlah_bayar - diskon + pajak + tarif_sopir;

TUGAS

Berikut ini beberapa contoh program pascal if then, if then else, nested if
Temukan dan perbaiki kesalahan yang ada sehingga programnya menjadi benar.
Kemudian tampilkan hasilnya, kirim ke email dwisaputra.achmad@gmail.com kirim dalam bentuk word tolong ikutinn prosedur terima kasih


Program If Then
PROGRAM IF THEN;
USER CRT;
VAR
NILAI:INTEGER;
BEGIN
WRITE (MASUKKAN NILAI ; ): READLN(NIL)
IF NIL >100 THEN
WRITE (NILAI YANG ANDA MASUKKAN LEBIH BESAR DARI 50)
END



Contoh Program If Then Else
PROGRAM IF THEN ELSE;
VAR
NILAI: INT;
BEGIN
WRITE (‘ MASUKKAN NILAI)’; READLN(NIL);
IF NILAI>50 THEN
WRITE (‘NILAI YANG ANDA MASUKKAN LEBIH BESAR DARI 50’)
ELSE
WRITE (NILAI YANG ANDA MASUKKAN KURANG DARI 50)
END.




Contoh Program Nested If
PROGRAM NESTED IF;
USES CRT;
VAR
JA: BYTE; {JA=JUMLAH ANAK}
GAPOK: LONGINT; {GAPOK = JAJI POKOK}
NAMA, NIK: STRING; {GOL=GOLONGAN}
TOTALGAJI, TANAK, TKELUARGA: REAL;
GOL, STATUS: CHAR;
BEGIN
CLRSCR;
{INPUT DATA}
WRITE('NO. INDUK KARYAWAN :');READLN(..);
WRITE('NAMA KARYAWAN :');READLN(...);
WRITE('GOLONGAN [1,2,3,4] :');READLN(...);
WRITE('STATUS [K/B] :');READLN(...);
WRITE('JUMLAH ANAK :');READLN(...);
{MENCARI GAJI POKOK BERDASARKAN GOLONGAN}
IF (GOL=1) THEN GAPOK:=500000
ELSE IF (GOL=2) THEN GAPOK:=600000
ELSE IF (GOL=3) THEN GAPOK:=700000
ELSE GAPOK:=1000000;
{MENGHITUNG TUNJANGAN KEL;UARGA}
IF UPCASE(...)='K' THEN TKELUARGA:=10/100*GAPOK
ELSE KELUARGA:=0;
{MENGHITUNG TUNJANGAN ANAK}
IF JA>2 THEN ANAK:=2 * GAPOK * 2/100
ELSE ANAK:= JA * GAPOK * 2%;
TOTALGAJI:=GAPOK+KELUARGA+ANAK;
{CETAK OUTPUT}
CLRSCR;
WRITELN('NIK KARYAWAN :', ...);
WRITELN('NAMA KARYAWAN:', ...);
WRITELN('GOLONGAN :', ...);
WRITELN('STATUS KAWIN :', ...);
WRITELN('JUMLAH ANAK :', ...);
WRITELN('GAJI POKOK : RP. ', ...);
WRITELN('TUNJANGAN KEL. : RP. ', ...);
WRITELN('TUNJANGAN ANAK : RP. ', ...);
WRITELN('TOTAL GAJI : RP. ', ...);
END
END

NB:
Usahakan kerjakan dengan sendiri-sendiri. Yakinlah diri anda bahwa anda mampu menemukan kesalahan yang ada dalam program ini. Jangan cepat menyerah, hasil yang anda peroleh dengan sendirinya akan memberikan kepuasan tersendiri

Modul pascal

klik disini untuk mendownload