membuat program penghitung hari menggunakan turbo pascal

Senin, 17 September 2012


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.



0 komentar:

Posting Komentar