Operator if

if ... then.. else
digunakan untuk memilih kondisi dan memberikan nilai pada kondisi tersebut bila benar dan bila salah.
bentuk sintaksnya:
IF (kondisi) THEN nilai_jika_benar;
ELSE nilai_jika_salah;

Kondisi berisi 3 komponen --> sesuatu yang dibandingkan OPERATOR nilai pembanding
OPERATOR : dapat berupa tanda =, >, <, <>, >=, <=, and, not, or

1.program penilaian;
uses crt;
var nilai:integer;
begin
write('masukkan nilai anda :'); readln(nilai);
if nilai >=85 then writeln('nilai A')
else if nilai>=75 then writeln('nilai B')
else if nilai>=65 then writeln('nilai C')
else writeln('nilai D');
readln;
end.



2. program Gaji;

uses crt;

var gajip,gajib,pajk,jamsostek,tunjangansm,tunjangana,tunjanganjbtn:real;

nip,np,beristri,stats,jbtn,sm,bm:string;

jumlaha,pilihan1,pilihan:integer;

begin

clrscr;

write(' Masukkan Data !!!');

writeln;

writeln;

write(' Nomor Induk pekerja=');

readln(nip);

write(' Nama pekerja=');

readln(np);

writeln(' status :');

writeln('1.sudah menikah');

writeln('2.belum menikah');

write('status anda :');readln(pilihan);

if pilihan=1 then

begin writeln(' status= sudah menikah',sm);



write(' Jumlah Anak=');

readln(jumlaha);

write(' Jabatan=');

readln(jbtn);

write(' Gaji Pokok=');

read(gajip);



if sm='sudah menikah' then begin

tunjangansm:=0.1*gajip;

end

else begin

tunjangansm:=0.1*gajip;

end;

if jumlaha<=0 then begin

tunjangana:=0.05*gajip*jumlaha;

end

else begin

tunjangana:=0.05*gajip*jumlaha;

end;

if jbtn='direktur' then begin

tunjanganjbtn:=2000000;

end

else

if jbtn='manager' then begin

tunjanganjbtn:=1500000;

end

else

if jbtn='karyawan' then begin

tunjanganjbtn:=1000000;

end

else begin

tunjanganjbtn:=0;

end;

pajk:=0.025*gajip;

jamsostek:=0.01*gajip;

writeln;

gajib:=(gajip+tunjangansm+tunjangana+tunjanganjbtn)-(pajk+jamsostek);

writeln(' "Jadi Tunjangan Anda"');

writeln;

writeln('*Tunjangan sudah menikah=',tunjangansm:3:2);

writeln('*Tunjangan Anak=', tunjangana:3:2);

writeln('*Tunjangan Jabatan=', tunjanganjbtn:3:2);

Writeln('*Pajak=', pajk:3:2);

writeln('*Jamsostek=', jamsostek:3:2);

writeln('*Gaji Bersih=', gajib:3:2);

writeln;

writeln(' SELESAI');

end;

if pilihan=2 then

begin writeln(' status =belum menikah',bm);



write(' Jabatan=');

readln(jbtn);

write(' Gaji Pokok=');

read(gajip);

writeln;



if jbtn='direktur' then begin

tunjanganjbtn:=2000000;

end

else

if jbtn='manager' then begin

tunjanganjbtn:=1500000;

end

else

if jbtn='karyawan' then begin

tunjanganjbtn:=1000000;

end

else begin

tunjanganjbtn:=0;

end;

pajk:=0.025*gajip;

jamsostek:=0.01*gajip;

gajib:=(gajip+tunjanganjbtn)-(pajk+jamsostek);

writeln(' "Jadi Tunjangan Anda"');

writeln;

writeln('*Tunjangan Jabatan=', tunjanganjbtn:3:2);

Writeln('*Pajak=', pajk:3:2);

writeln('*Jamsostek=', jamsostek:3:2);

writeln('*Gaji Bersih=', gajib:3:2);

writeln;

writeln(' SELESAI');



end;



end.



1. Uses Crt;

Var

Nil1, Nil2 : Integer;

NilRata : Real;

Begin

ClrScr;

Write('Masukan Nilai 1 : ');

ReadLn(Nil1);

Write('Masukan Nilai 2 : ');

ReadLn(Nil2);

NilRata := (Nil1 + Nil2)/2;

WriteLn('Nilai Rata-Rata = ', NilRata:5:2);

IF NilRata >= 60 THEN

WriteLn('Hasilnya = Lulus')

ELSE

WriteLn('Hasilnya = Gagal');

ReadLn;

End.



4. Uses crt;
Var
P, l : integer;
Luas : real;
Begin
Write(‘masukkan panjang =’);
Readln(p);
Write(‘masukkan lebar =’);
Readln(l);
If p > 0 then
Begin
Luas := p * l;
End
Else luas := 0;

Writeln(‘Luasnya adalah :’,luas:4:0);
Readln;
End.

5. IF bertingkat
bila ada 3 kemungkinan, jumlah IF = 2, then=2, else=1
bila ada 4 kemungkinan, maka jumlah if = 3, then 3 dan else = 1, bisa juga dibuat kombinasi yang lain. ^_^
Contoh:
Bila Gender wanita maka mendapat hadiah kerudung
Bila Gender pria maka mendapat hadiah sarung
Bila Gender waria, laki-laki, jejaka maka mendapat hadiah daster
Kecuali wanita dan pria maka mendapat hadiah daster

Uses crt;
Var
Gender : string;
Begin
Clrscr;
Write(‘masukkan gender Anda :’);
Readln(gender);

If gender =‘wanita’ then writeln(‘hadiah kerudung’)
Else
if Gender = ‘pria’ then writeln(‘hadiah sarung’)
Else writeln(‘hadiah daster’);

Readln;
End.