Uses wincrt;
var
T:integer;
Begin
Writeln(‘#————————————————#’);
writeln(‘# Program Menentukan Hari Berdasarkan Kode Input #’);
writeln(‘#————————————————#’);
write(‘Masukan kode hari = ‘);readln(T);
begin
if (T=0 )or(T >7) then
writeln(‘Kode Hari yang anda input salah’);
if (T=1 ) then
writeln(‘Senin’);
if (T=2 ) then
writeln(‘Selasa’);
if (T=3 ) then
writeln(‘Rabu’);
if (T=4 ) then
writeln(‘Kamis’);
if (T=5 ) then
writeln(‘Jumat’);
if (T=6 ) then
writeln(‘Sabtu’);
if (T=7 ) then
writeln(‘Minggu’);
if (T=1 )or(T=2)or(T=3)or(T=4)or(T=5) then
writeln(‘Hari Kerja’);
if (T=6 )or(T=7) then
writeln(‘Weekend’);
Writeln(‘ www.m-r1zq.co.nr@copyright2007 ‘);
Writeln(‘o0————–o0o————–0o’);
end;
end.
- Follow us on Twitter, or subscribe to the rizqtech RSS Feed for more daily web development and articles.
Enjoy this Post!
