Program Menghitung Bulan
Apr 15, 2009 No Comments
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]