Lama Bekerja

Lama Bekerja

Tulis program untuk menentukan lama bekerja seorang pegawai, jika jam masuk dan jam pulang diINPUT. Catatan: jam berupa angka 1-12, dan seorang pegawai bekerja kurang dari 12 jam.

Contoh Masukan dan keluaran:

Jam masuk	Jam keluar	Keluaran/tampilan
10	11	Lama bekerja 1 jam
10	2	Lama bekerja 4 jam
10	7	Lama bekerja 9 jam

Jawab:

uses crt;

VAR

        imasuk, ikeluar, ilama: Integer;

BEGIN

clrscr;

REPEAT

        writeln('Masukkan Jam Masuk: ');

        readln(imasuk);

        writeln('Masukkan Jam Keluar: ');

        readln(ikeluar);

IF (imasuk > 12) OR (ikeluar > 12) THEN writeln('Data yang anda masukkan lebih dari 12, silahkan masukkan lebih kecil')

ELSE

        IF (imasuk <= ikeluar) THEN

        writeln ('Lama nya Bekerja: ', ikeluar - imasuk)

ELSE

        writeln('Lama nya Bekerja: ', (12 - imasuk) + ikeluar);

        readln;

UNTIL imasuk < 12;

end.Algoritma:

END