03:46    Unknown

---

Contoh program menggunakan perulangan (looping)

                Uses crt;

            Var

                        nama: string[25];

                        golongan: string[2];

                        lg : char;

                        UPL,totalgaji,gaji: longint;

                        lembur, UL: integer;

begin

            lg:=’Y’;

            while upcase(lg=’Y’) do

            begin

                        write(‘Nama Karyawan:’);readln(nama);

                        write(‘Golongan [a,b,c]:’);readln(golongan);

                        write(‘Jam Lembur:’);readln(lembur);

            if golongan=’a’ then

            begin

            gaji:=5000000

            UL:=2500;

            End

            Else if golongan=’b’ then

            gaji:=7500000

            UL:=3500;

            End

            Else if golongan=’c’ then

            gaji:=8500000

            UL:=5000;

            End;

UPL:=UL*lembur;

Totalgaji:=gaji+UPL;

Writeln(‘Gaji                           :’,gaji);

Writeln(‘Uang Lembur/jam     :’,UL);

Writeln(‘Upah Lembur Rp.     :’,UPL);

Writeln(‘Total Gaji                  :’,totalgaji);

Writeln(‘Menghitung lagi [Y/T]          :’,)readln(lagi);

Readln;

End.