Pages

Senin, 06 Mei 2013

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

0 komentar:

Posting Komentar

lagu

 

lagu

KLIK KANAN

KLIK KANAN