Program Bulan

Apr 15, 2009 No Comments by Sahabat

Program bulan di pascal kiriman Yogi Priyo Prayogo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
program bulan;
 
uses Wincrt;
 
conts Bulan : array[1..12] of string = ('Januari','Februari','Maret','April','Mei','Juni','Juli','Agustus','September','Oktober','November','Desember');
 
var
     noBulan :integer;
 
begin
     write('Masukkan nomor bulan : '); readln(noBulan);
     write('Nama bulan ke-', noBulan, 'adalah',Bulan[noBulan]);
     readln;
end.

Yogi Priyo Prayogo
yogipriyo@ymail.com

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 Bulan”

Leave a Reply

You must be logged in to post a comment.