fork download
copy 
  1. Program Contoh81;
  2. uses crt;
  3. type    Hari1pekan=(Ahad,Senin,Selasa,Rabu,Kamis,Jumat,Sabtu);
  4. type    haribulan=1..31;
  5. type    nbulan = (Januari,februari,Maret,April,Mei,Juni,Juli,Agustus,September,Oktober,November,Desember);
  6.  
  7. var i,awalbulan:hari1pekan;
  8.     j,tglmaks:haribulan;
  9.     x,y,k,lebar:integer;
  10.     e : nbulan;
  11.  
  12. begin
  13.     clrscr;
  14.     write('Hari pertama awal bulan: '); readln(awalbulan);
  15.     write('Jumlah hari bulan ini: '); readln(tglmaks);writeln;
  16.  
  17.     lebar:=7;
  18.     y := 4;
  19.     x:=ord(awalbulan);
  20.  
  21.     for e := Januari to Desember do
  22.     begin
  23.         gotoxy(17,y); writeln(e);
  24.         y := y+3;
  25.         for i:=Ahad to sabtu do write(i:lebar);
  26.         //write ('x = ', x);
  27.         for j:=1 to tglmaks do
  28.         begin
  29.             if x=7 then
  30.             begin
  31.                 x:=0;
  32.                 y:=y+1;
  33.             end;
  34.             gotoxy(lebar*x+1,y);write(j:3);
  35.             x:=x+1;
  36.         end;
  37.         y := y+2;
  38.         //y := y+3; write ('y sekarang = ', y);
  39.     end;
  40. end.
  41. program ideone;
  42. begin
  43. 	(* your code goes here *)
  44. end.
Success #stdin #stdout 0.01s 5316KB
comments (?)
stdin
copy 
senin
31
stdout
copy 
Hari pertama awal bulan: Jumlah hari bulan ini: 
Januari
Ahad   Senin  Selasa Rabu   Kamis  Jumat  Sabtu    1  2  3  4  5  6
  7  8  9 10 11 12 13
 14 15 16 17 18 19 20
 21 22 23 24 25 26 27
 28 29 30 31februari
Ahad   Senin  Selasa Rabu   Kamis  Jumat  Sabtu    1  2  3
  4  5  6  7  8  9 10
 11 12 13 14 15 16 17
 18 19 20 21 22 23 24
 25 26 27 28 29 30 31Maret
Ahad   Senin  Selasa Rabu   Kamis  Jumat  Sabtu    1  2  3  4  5  6  7  8  9 10 
11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31April
Ahad   Senin  Selasa Rabu   Kamis  Jumat  Sabtu    1  2  3  4  5  6  7  8  9 10 

11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31Mei

Ahad   Senin  Selasa Rabu   Kamis  Jumat  Sabtu    1  2  3  4  5  6  7  8  9 10 

11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31Juni

Ahad   Senin  Selasa Rabu   Kamis  Jumat  Sabtu    1  2  3  4  5  6  7  8  9 10 

11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31Juli

Ahad   Senin  Selasa Rabu   Kamis  Jumat  Sabtu    1  2  3  4  5  6  7  8  9 10 

11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31Agustus

Ahad   Senin  Selasa Rabu   Kamis  Jumat  Sabtu    1  2  3  4  5  6  7  8  9 10 

11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31September

Ahad   Senin  Selasa Rabu   Kamis  Jumat  Sabtu    1  2  3  4  5  6  7  8  9 10 

11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31Oktober

Ahad   Senin  Selasa Rabu   Kamis  Jumat  Sabtu    1  2  3  4  5  6  7  8  9 10 

11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31November

Ahad   Senin  Selasa Rabu   Kamis  Jumat  Sabtu    1  2  3  4  5  6  7  8  9 10 

11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31Desember

Ahad   Senin  Selasa Rabu   Kamis  Jumat  Sabtu    1  2  3  4  5  6  7  8  9 10 

11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
https://ideone.com/HY3zBQ
language:
Pascal (fpc 3.0.4)
created:
9 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!