Program Contoh Bulan

Contoh program bulan di pascal kiriman Dianita Wahyu Kurniasih

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

Program Contoh_Bulan;
 
uses wincrt;
 
const
Bulan :array[1..12] of string =
('Januari','Februari','Maret','April','Mei','Juni','Juli',
'Agustus','September','Oktober','November','Desember');
 
var
NoBulan:integer;
 
begin
  clrScr;
  write ('Masukkan nomor bulan: ' ); readln (NoBulan);
  write ('Nama bulan ke- ' ,NoBulan , ' adalah ',
  Bulan [NoBulan]);
  readln;
end.

Dianita Wahyu Kurniasih
Dhean_girl1@yahoo.com

Kata Kunci

contoh pemrograman pascal, array dalam raptor, cotoh raptor untuk menghitung rata-rata, membuat tanggal di pascal, rumus stack pada pascal, contoh rumus pascal, contoh pembuatan tanggal di pascal, rumus bilangan ganjil pada pascal, cara membuat tanggal diprogram pascal, contoh program c mencari tanggal dalam bulan.

Related posts:

1. Program Bulan
2. Program Data Mahasiswa
3. Program Menghitung Bulan
4. Contoh Program Record
5. Program Penilaian Mahasiswa
6. Program Input Nilai Mahasiswa
7. Dirman Record
8. Contoh Array
9. Intan Array
10. Hendra Array & Record