Contoh Program Turbo Pascal tentang If Else

kali ini saya akan memposting contoh program turbo pascal tentang If Else

Apa itu If Else?

 pernyataan if else sendiri mempunyai makna "jika /if  pernyataan pertama bernilai benar maka pernyataan pertama akan dijalankan,jika pernyataan pertama bernilai salah (else) maka akan dijalankan pernyataan kedua

struktur kondisi if else :

if(pernyataan)

perintah;

else

perintah2;

berikut ini adalah contoh program turbo pascal tentang penggajian karyawan berdasarkan golongan :

program upah1;

uses crt;

var gol, jjk : integer;

upah,uj,ul : longint;

begin

clrscr;

write('masukkan golongan anda : ');

readln(gol);

write('masukkan jumlah jam kerja : ');

readln(jjk);

if gol =1 then uj := 2000 else

if gol =2 then uj := 2500 else

if gol =3 then uj := 3000 else

if gol =4 then uj := 5000 else

uj := 7000;

if gol =1 then ul := 3000 else

if gol =2 then ul := 4000 else

if gol =3 then ul := 5000 else

if gol =4 then ul := 7000 else

ul :=9000;

if jjk<= 40 then upah := (uj *jjk) else

upah := (uj * 40)+(ul*(jjk-40));

writeln('upah yang anda terima: ',upah);

readln;

end.

output dari contoh program diatas :

program penggajian karyawan

 nah demikian contoh program turbo pascal tentang if else sampai jumpa di contoh program lainnya