Rabu, 27 Oktober 2010

Program Data Statistik dengan Array pada Pascal

karena ada temen yang request, akhirnya kode program ini saya share. tapi sebenarnya saya ga yakin kalo program ini udah bener. jadi gimana yach?? ya download aja dulu, siapa tau bener. tapi kalo salah jangan salahkan saya yach coz temen-temen sudah saya kasih tau kalo program ini belum tentu bener. ywd, nich kodingnya tinggal kopi paste aja.

program dataStatistik;

uses wincrt;

{deklarasi variabel}

type

kalender = array[1..15] of string;

data = array[1..7,1..12] of integer;

var

hr:kalender;

bl:kalender;

input:data;

i,j,max,max1,jml,imax,jmax:integer;

c:char;

{Membuat prosedur bernama statistik}

procedure statistik;

begin

{inisialisasi jml sebagai variabel untuk menghitung jumlah seluruh array}

jml:=0;

{memasukkan daftar hari kedalam array hr[]}

hr[1]:='sen'; hr[2]:='sel';hr[3]:='Rab';hr[4]:='Kam';hr[5]:='Jum';hr[6]:='Sab';hr[7]:='Min';

{memasukkan daftar bulan kedalam array bl[]}

bl[1]:='Jan'; bl[2]:='Feb';bl[3]:='Mar';bl[4]:='Apr';bl[5]:='Mei';bl[6]:='Jun';bl[7]:='Jul';

bl[8]:='Agt';bl[9]:='Sep';bl[10]:='Okt';bl[11]:='Nov';bl[12]:='Des';

{menampilkan daftar bulan memanjang ke kanan}

write('    ');

for i:=1 to 12 do

write(bl[i]:6);writeln;

{perulangan untuk memasukkan data acak kedalam array input[]}

for i:=1 to 7 do

begin

{menampilkan daftar hari memanjang kebawah}

write(hr[i]);

for j:=1 to 12 do

begin

{memasukkan data acak kedalam array input[i,j]}

input[i,j]:=random(14);

{menampilkan isi array input[i,j]}

write(input[i,j]:6);

end;writeln;

end;writeln;



{perulangan untuk menjumlahkan semua elemen array}

for i:=1 to 7  do

  for j:=1  to 12 do

  begin

  jml:=jml+input[i,j];

{mencari nilai terbesar dengan cara perbandingan}

  if input[i,j]>max then

  begin

  max:=input[i,j];

{posisi array terbesar disimpan di imax dan jmax}

  imax:=i;jmax:=j;

  end;

  end;

{posisi disimpan kembali di i dan j}

i:=imax;j:=jmax;

end;

{program utama}

begin

clrscr;

{fungsi random}

randomize;

{memanggil prosedur statistik untuk laki-laki}

statistik;

writeln('jumlah laki-laki adalah: ',jml);writeln;writeln;

{memanggil prosedur statistik untuk perempuan} 

statistik;

writeln('jumlah perempuan adalah: ',jml);

{menampilkan jumlah data terbanyak dan posisi data terbanyak}

writeln('Jumlah terbanyak adalah laki-laki: ',max,' pada hari ',hr[i],' bulan ',bl[j]);readln;

donewincrt;

end.
Kalo ada yg salah, silahkan komentar. saya tunggu kritik dan sarannya.

1 komentar:

alamatkonyol mengatakan...

lanjutkan bang,,,

Poskan Komentar

Silakan berkomentar di blog ini, komentar Anda menjadi alasan kenapa saya harus menulis ^_^

 
© Copyright .::Berbagi Cerita::. 2011 - Some rights reserved | Powered by Blogger.com.
Template Design by Herdiansyah Hamzah | Published by Borneo Templates and Theme4all
[tutup]