Menentukan Hari yang Lalu

DiINPUT jumlah berapa hari yang lalu, kemudian ditentukan nama harinya. Tulis program untuk menentukan nama hari dari sekian hari yang lalu dan nomor hari ini yang diINPUT.

Contoh Masukan dan Keluaran:

N hari yang lalu	Hari ini	Nama Hari
0	1	Senin
3	3	Minggu
5	4	Sabtu

Jawab:

uses crt;

var

        hlalu, hini, namahari: integer;

begin

clrscr;

        writeln('Masukkan hari keberapa sekarang: ');

        readln(hini);

        writeln('Masukkan berapa hari yang lalu: ');

        readln(hlalu);

        if (hini > hlalu) then

                namahari := hini - hlalu

        else

                namahari := 7 - (hlalu - hini);

                readln;

            case (namahari) of

            1:writeln('Hari yang lalu adalah Senin');

2:writeln('Hari yang lalu adalah Selasa');

            3:writeln('Hari yang lalu adalah Rabu');

            4:writeln('Hari yang lalu adalah Kamis');

            5:writeln('Hari yang lalu adalah Jumat');

            6:writeln('Hari yang lalu adalah Sabtu');

            7:writeln('Hari yang lalu adalah Minggu');

end;

            readln;

end.