Program memeriksa hari dengan delphi atau pascal

Assalamualaikum Wr. Wb.
Yaa sesuai dengan judul diatas, silahkan teman-teman lihat langsung syntax programnya dibawah ini:
Pada postingan ini saya ingin berbagi tentang pemrograman khususnya bahasa pemrograman delphi atau pascal, bedanya terletak pada usesnya... kalau pascal menggunakan uses crt; dan atau clrscr;  sedangkan untuk bahasa pemrograman delphi menggunakan uses SysUtils; pada console application dan tidak butuh clrscr; seperti pada pascal.
Oke langsung saja;

program pemeriksaan_hari;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  tgl : integer;

begin
  writeln ('Program memeriksa hari dalam bulan Februari 2007');
  write ('tanggal ');
  readln (tgl);
  case tgl of
        5,12,19,26  : writeln ('Hari Senin');
        6,13,20,27  : writeln ('Hari Selasa');
        7,14,21,28  : writeln ('Hari Rabu');
        1, 8,15,22  : writeln ('Hari Kamis');
        2, 9,16,23  : writeln ('Hari Jumat');
        3,10,17,24  : writeln ('Hari Sabtu');
  else
    begin
      writeln ('Hari Minggu');
    end;
  end;
readln;
  { TODO -oUser -cConsole Main : Insert code here}
end.
 

HaveFun
Sumber: Supriyono dan Farikhah Indriani. 2007. Modul Praktikum Algoritma Pemrograman. Yogyakarta: Universitas Islam Indonesia

Related Posts:

Tweet