membuat program penghitung hari
menggunakan turbo pascal (TPW 1.5)
Heloo.. sekarang gue mau share script buat
bikin program penghitung hari pake turbo pascal (TPW 1.5), emang bukan script
asli bikinan gue sih tapi ini pembaruan dari script asal yang gue dapet dari
sini, nah script yang gue kembangin ini emang
ga beda jauh dari yang asli tapi script yang gue bakal share ini lebih simple
dan lebih jelas, yang mau copy-paste buat tugasnya bisa di modif dulu lah biar
ga sama persis, supaya imajinasinya jalan buat mikirin apa yang bakal di modif
wkwk
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.
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.
0 komentar:
Posting Komentar