Program Contoh81;
uses crt;
type Hari1pekan=(Ahad,Senin,Selasa,Rabu,Kamis,Jumat,Sabtu);
type haribulan=1..31;
type nbulan = (Januari,februari,Maret,April,Mei,Juni,Juli,Agustus,September,Oktober,November,Desember);
var i,awalbulan:hari1pekan;
j,tglmaks:haribulan;
x,y,k,lebar:integer;
e : nbulan;
begin
clrscr;
write('Hari pertama awal bulan: '); readln(awalbulan);
write('Jumlah hari bulan ini: '); readln(tglmaks);writeln;
lebar:=7;
y := 4;
x:=ord(awalbulan);
for e := Januari to Desember do
begin
gotoxy(17,y); writeln(e);
y := y+3;
for i:=Ahad to sabtu do write(i:lebar);
//write ('x = ', x);
for j:=1 to tglmaks do
begin
if x=7 then
begin
x:=0;
y:=y+1;
end;
gotoxy(lebar*x+1,y);write(j:3);
x:=x+1;
end;
y := y+2;
//y := y+3; write ('y sekarang = ', y);
end;
end.
program ideone;
begin
(* your code goes here *)
end.
UHJvZ3JhbSBDb250b2g4MTsKdXNlcyBjcnQ7CnR5cGUgICAgSGFyaTFwZWthbj0oQWhhZCxTZW5pbixTZWxhc2EsUmFidSxLYW1pcyxKdW1hdCxTYWJ0dSk7CnR5cGUgICAgaGFyaWJ1bGFuPTEuLjMxOwp0eXBlICAgIG5idWxhbiA9IChKYW51YXJpLGZlYnJ1YXJpLE1hcmV0LEFwcmlsLE1laSxKdW5pLEp1bGksQWd1c3R1cyxTZXB0ZW1iZXIsT2t0b2JlcixOb3ZlbWJlcixEZXNlbWJlcik7Cgp2YXIgaSxhd2FsYnVsYW46aGFyaTFwZWthbjsKICAgIGosdGdsbWFrczpoYXJpYnVsYW47CiAgICB4LHksayxsZWJhcjppbnRlZ2VyOwogICAgZSA6IG5idWxhbjsKCmJlZ2luCiAgICBjbHJzY3I7CiAgICB3cml0ZSgnSGFyaSBwZXJ0YW1hIGF3YWwgYnVsYW46ICcpOyByZWFkbG4oYXdhbGJ1bGFuKTsKICAgIHdyaXRlKCdKdW1sYWggaGFyaSBidWxhbiBpbmk6ICcpOyByZWFkbG4odGdsbWFrcyk7d3JpdGVsbjsKCiAgICBsZWJhcjo9NzsKICAgIHkgOj0gNDsKICAgIHg6PW9yZChhd2FsYnVsYW4pOwogICAgCiAgICBmb3IgZSA6PSBKYW51YXJpIHRvIERlc2VtYmVyIGRvCiAgICBiZWdpbgogICAgICAgIGdvdG94eSgxNyx5KTsgd3JpdGVsbihlKTsKICAgICAgICB5IDo9IHkrMzsKICAgICAgICBmb3IgaTo9QWhhZCB0byBzYWJ0dSBkbyB3cml0ZShpOmxlYmFyKTsKICAgICAgICAvL3dyaXRlICgneCA9ICcsIHgpOwogICAgICAgIGZvciBqOj0xIHRvIHRnbG1ha3MgZG8KICAgICAgICBiZWdpbgogICAgICAgICAgICBpZiB4PTcgdGhlbgogICAgICAgICAgICBiZWdpbgogICAgICAgICAgICAgICAgeDo9MDsKICAgICAgICAgICAgICAgIHk6PXkrMTsKICAgICAgICAgICAgZW5kOwogICAgICAgICAgICBnb3RveHkobGViYXIqeCsxLHkpO3dyaXRlKGo6Myk7CiAgICAgICAgICAgIHg6PXgrMTsKICAgICAgICBlbmQ7CiAgICAgICAgeSA6PSB5KzI7CiAgICAgICAgLy95IDo9IHkrMzsgd3JpdGUgKCd5IHNla2FyYW5nID0gJywgeSk7CiAgICBlbmQ7CmVuZC4KcHJvZ3JhbSBpZGVvbmU7CmJlZ2luCgkoKiB5b3VyIGNvZGUgZ29lcyBoZXJlICopCmVuZC4=