Tugas Pascal

Semoga bermanfaat dan tolong kalau mau copy-paste di-edit dulu ya supaya ga sama :D



Ini untuk yang ga pake variable String.



Program Penghitung_hari;
Uses WinCrt;
Var
  angka:integer;
  tambahan:integer;
  x:integer;
Begin
  writeln('Assalamualaikum');
  writeln('Program ini dibuat untuk menghitung hari');
  writeln('Selamat menghitung :)');
  write('Masukkan angkanya ');readln(angka);
  if angka = 1 then
     writeln(angka,' adalah hari Senin')
  else if angka = 2 then
          writeln(angka,' adalah hari Selasa')
       else if angka = 3 then
               writeln(angka,' adalah hari Rabu')
            else if angka = 4 then
                    writeln(angka,' adalah hari Kamis')
                 else if angka = 5 then
                          writeln(angka,' adalah hari Jumat')
                      else if angka = 6 then
                              writeln(angka,' adalah hari Sabtu')
                           else if angka = 7 then
                                   writeln(angka,' adalah hari Minggu');
  if angka mod 7 = 1 then
     writeln(angka,' adalah hari Senin')
  else if angka mod 7 = 2 then
          writeln(angka,' adalah hari Selasa')
       else if angka mod 7 = 3 then
               writeln(angka,' adalah hari Rabu')
            else if angka mod 7 = 4 then
                    writeln(angka,' adalah hari Kamis')
                 else if angka mod 7 = 5 then
                          writeln(angka,' adalah hari Jumat')
                      else if angka mod 7 = 6 then
                              writeln(angka,' adalah hari Sabtu')
                           else if angka mod 7 = 0 then
                                   writeln(angka,' adalah hari Minggu');
  write('Sekarang, masukkan tambahan harinya ');readln(tambahan);
  x:=angka+tambahan;
  if x = 1 then
     writeln(tambahan,' hari setelahnya yaitu hari Senin')
  else if x = 2 then
          writeln(tambahan,' hari setelahnya yaitu hari Selasa')
       else if x = 3 then
               writeln(tambahan,' hari setelahnya yaitu hari Rabu')
            else if x = 4 then
                    writeln(tambahan,' hari setelahnya yaitu hari Kamis')
                 else if x = 5 then
                          writeln(tambahan,' hari setelahnya yaitu hari Jumat')
                      else if x = 6 then
                              writeln(tambahan,' hari setelahnya yaitu hari Sabtu')
                           else if x = 7 then
                                   writeln(tambahan,' hari setelahnya yaitu hari Minggu');
  if x mod 7 = 1 then
     writeln(tambahan,' hari setelahnya yaitu hari Senin')
  else if x mod 7 = 2 then
          writeln(tambahan,' hari setelahnya yaitu hari Selasa')
       else if x mod 7 = 3 then
               writeln(tambahan,' hari setelahnya yaitu hari Rabu')
            else if x mod 7 = 4 then
                    writeln(tambahan,' hari setelahnya yaitu hari Kamis')
                 else if x mod 7 = 5 then
                          writeln(tambahan,' hari setelahnya yaitu hari Jumat')
                      else if x mod 7 = 6 then
                              writeln(tambahan,' hari setelahnya yaitu hari Sabtu')
                           else if x mod 7 = 0 then
                                   writeln(tambahan,' hari setelahnya yaitu hari Minggu');
End.


Ini untuk yang pake variable String.




Program Penghitung_hari;
Uses WinCrt;
Var
  b:string;
  angka:integer;
  tambahan:integer;
  x:integer;
Begin
  writeln('Assalamualaikum');
  writeln('Program ini dibuat untuk menghitung hari');
  writeln('Selamat menghitung :)');
  write('Ketikkan harinya ');readln(b);
  if b = 'senin' then
     angka := 1
  else if b = 'selasa' then
           angka := 2
       else if b = 'rabu' then
                 angka := 3
            else if b = 'kamis' then
                     angka := 4
                 else if b = 'jumat' then
                             angka := 5
                      else if b = 'sabtu' then
                               angka := 6
                           else if b = 'minggu' then
                                     angka := 7;
  write('Sekarang, masukkan tambahan harinya ');readln(tambahan);
  x:=angka+tambahan;
  if x = 1 then
     writeln(tambahan,' hari setelah ',b,' yaitu hari Senin')
  else if x = 2 then
          writeln(tambahan,' hari setelah ',b,' yaitu hari Selasa')
       else if x = 3 then
               writeln(tambahan,' hari setelah ',b,' yaitu hari Rabu')
            else if x = 4 then
                    writeln(tambahan,' hari setelah ',b,' yaitu hari Kamis')
                 else if x = 5 then
                          writeln(tambahan,' hari setelah ',b,' yaitu hari Jumat')
                      else if x = 6 then
                              writeln(tambahan,' hari setelah ',b,' yaitu hari Sabtu')
                           else if x = 7 then
                                   writeln(tambahan,' hari setelah ',b,' yaitu hari Minggu')
                                else if x mod 7 = 1 then
                                        writeln(tambahan,' hari setelah ',b,' yaitu hari Senin')
                                     else if x mod 7 = 2 then
                                             writeln(tambahan,' hari setelah ',b,' yaitu hari Selasa')
                                          else if x mod 7 = 3 then
                                                  writeln(tambahan,' hari setelah ',b,' yaitu hari Rabu')
                                               else if x mod 7 = 4 then
                                                       writeln(tambahan,' hari setelah ',b,' yaitu hari Kamis')
                                                    else if x mod 7 = 5 then
                                                            writeln(tambahan,' hari setelah ',b,' yaitu hari Jumat')
                                                         else if x mod 7 = 6 then
                                                                 writeln(tambahan,' hari setelah ',b,' yaitu hari Sabtu')
                                                              else if x mod 7 = 0 then
                                                                      writeln(tambahan,' hari setelah ',b,' yaitu hari Minggu')
                                                                   end.
                                                              end.
                                                         end.
                                                    end.
                                               end.
                                          end.
                                     end.
                                end.
                           end.
                      end.
                 end.
            end.
       end.
  end.
End.