Pembelajaran ke 2 kali ini kita ajan mempelajari cara membuat program penghitung hari, setelah sebelumnya kita telah mempelajari teknik dasar bahasa pascal. Tanpa basa basi lagi kaka kita mulai nih codenya,, eh jangan lupa diedit biar kagak ketauan guru kalo codenya ngopy dari www.c557community.com
Program penghitung_hari;
Uses WinCrt;
Var
x:longint;
y:longint;
z:longint;
Begin
writeln('');
writeln('Selamat datang di program ini');
writeln('Program ini dibuat untuk mengetahui hari dari angka yang diberikan');
writeln('Progaram ini juga bisa menambah/mengurangi angka untuk mengetahui hari akhirnya');
write('Masukkan angka untuk mengetahui harinya ');readln(x);
if x mod 7 = 1 then
writeln('hari ke ',x,' adalah hari Senin')
else if x mod 7 = 2 then
writeln('hari ke ',x,' adalah hari Selasa')
else if x mod 7 = 3 then
writeln('hari ke ',x,' adalah hari Rabu')
else if x mod 7 = 4 then
writeln('hari ke ',x,' adalah hari Kamis')
else if x mod 7 = 5 then
writeln('hari ke ',x,' adalah hari Jumat')
else if x mod 7 = 6 then
writeln('hari ke ',x,' adalah hari Sabtu')
else if x mod 7 = 0 then
writeln('hari ke ',x,' adalah hari Minggu');
write('Silahkan, masukkan tambahan harinya ');readln(y);
z:=x+y;
if z mod 7 = 1 then
writeln('hasilnya setelah di jumlah= ',z,' itu adalah hari Senin')
else if z mod 7 = 2 then
writeln('hasilnya setelah di jumlah= ',z,' itu adalah hari Selasa')
else if z mod 7 = 3 then
writeln('hasilnya setelah di jumlah= ',z,' itu adalah hari Rabu')
else if z mod 7 = 4 then
writeln('hasilnya setelah di jumlah= ',z,' itu adalah hari Kamis')
else if z mod 7 = 5 then
writeln('hasilnya setelah di jumlah= ',z,' itu adalah hari Jumat')
else if z mod 7 = 6 then
writeln('hasilnya setelah di jumlah= ',z,' itu adalah hari Sabtu')
else if z mod 7 = 0 then
writeln('hasilnya setelah di jumlah= ',z,' itu adalah hari Minggu');
writeln('Terima kasih sudah menggunakan program ini');
writeln('Semoga bermanfaat');
End.Program penghitung_hari;
Uses WinCrt;
Var
x:longint;
y:longint;
z:longint;
Begin
writeln('Assalamualaikum');
writeln('Selamat datang di program ini');
writeln('Program ini dibuat untuk mengetahui hari dari angka yang diberikan');
writeln('Progaram ini juga bisa menambah/mengurangi angka untuk mengetahui hari akhirnya');
write('Masukkan angka untuk mengetahui harinya ');readln(x);
if x mod 7 = 1 then
writeln('hari ke ',x,' adalah hari Senin')
else if x mod 7 = 2 then
writeln('hari ke ',x,' adalah hari Selasa')
else if x mod 7 = 3 then
writeln('hari ke ',x,' adalah hari Rabu')
else if x mod 7 = 4 then
writeln('hari ke ',x,' adalah hari Kamis')
else if x mod 7 = 5 then
writeln('hari ke ',x,' adalah hari Jumat')
else if x mod 7 = 6 then
writeln('hari ke ',x,' adalah hari Sabtu')
else if x mod 7 = 0 then
writeln('hari ke ',x,' adalah hari Minggu');
write('Silahkan, masukkan tambahan harinya ');readln(y);
z:=x+y;
if z mod 7 = 1 then
writeln('hasilnya setelah di jumlah= ',z,' itu adalah hari Senin')
else if z mod 7 = 2 then
writeln('hasilnya setelah di jumlah= ',z,' itu adalah hari Selasa')
else if z mod 7 = 3 then
writeln('hasilnya setelah di jumlah= ',z,' itu adalah hari Rabu')
else if z mod 7 = 4 then
writeln('hasilnya setelah di jumlah= ',z,' itu adalah hari Kamis')
else if z mod 7 = 5 then
writeln('hasilnya setelah di jumlah= ',z,' itu adalah hari Jumat')
else if z mod 7 = 6 then
writeln('hasilnya setelah di jumlah= ',z,' itu adalah hari Sabtu')
else if z mod 7 = 0 then
writeln('hasilnya setelah di jumlah= ',z,' itu adalah hari Minggu');
writeln('Terima kasih sudah menggunakan program ini');
writeln('Semoga bermanfaat');
End.end
Kalo ada yang masih bingung soal code diatas bisa comment dibawah oke ^_^, coment anda adalah motivasi bagi saya supaya lebih teliti dan lebih semangat lagi