Program Menghitung Bulan

Apr 15, 2009 No Comments by Sahabat

Contoh program menghitung bulan kiriman Sudirman

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
32
33
34
35
36
37
38
39
40
41
Program Menghitungbulan;
uses wincrt;
var matriks : array [1..2, 1..12] of integer;
A,B :integer;
Begin
  clrscr;
  matriks [1,1] := 1;
  matriks [1,2] := 2;
  matriks [1,3] := 3;
  matriks [1,4] := 4;
  matriks [1,5] := 5;
  matriks [1,6] := 6;
  matriks [1,7] := 7;
  matriks [1,8] := 8;
  matriks [1,9] := 9;
  matriks [1,10]:= 10;
  matriks [1,11]:= 11;
  matriks [1,12]:= 12;
  matriks [2,1] := 31;
  matriks [2,2] := 28;
  matriks [2,3] := 31;
  matriks [2,4] := 30;
  matriks [2,5] := 31;
  matriks [2,6] := 30;
  matriks [2,7] := 31;
  matriks [2,8] := 31;
  matriks [2,9] := 30;
  matriks [2,10]:= 31;
  matriks [2,11]:= 30;
  matriks [2,12]:= 31;
 
  for A:=1 to 2 do
  begin
    for B:=1 to 12 do
    begin
      write(matriks [A,B]);
      write('  ');
    end;
    readln;
  end;
end.

Sudirman
[email protected]

Pascal
Sahabat

Tentang Penulis

Penulis adalah sahabat-sahabat yg menyumbang tulisan di nusinau.com untuk dimuat dengan bijaksana. Silakan kirim tulisannya ke nusinau[at]gmail[dot]com atau ke admin[at]nusinau[dot]com. Butuh diskusi cepat? colek di twitter @nusinau
No Responses to “Program Menghitung Bulan”

Leave a Reply

You must be logged in to post a comment.