9 Okt 2012

Contoh ARRAY menggunakan PASCAL

. 9 Okt 2012


New Funday - Bagi kalian yang kuliah mengambil jurusan Teknik Informatika pasti pernah belajar Pemograman dan Struktur data, Nah disini saya akan menjelaskan sedikit mengenai Contoh Program ARRAY menggunakan PASCAL.

Contoh pembuatan program ini untuk melakukan perhitungan waktu pada warnet.
Disini, buat kira-kira 1 jamnya itu 3000 jadi waktu 1 dikali waktu ke 2 di bagi 2.
Adapun NA akan di hitung berdasarkan ketentuan berikut:

NA :=  ( JAM [ 1 ] * JAM [ 2 ] ) / 2 ;

Berdasarkan contoh kasus di atas, kita dapat mendefinisikan warnet kedalam sebuah record yang didalamnya mengandung filed yang bertipe array, dengan penulisan kode spertiberikut:



Type
Twarnet = record
     NAMA : string [25] ;
     KOMPI : string [8] ;
     JAM : array [1..2] of real; {file yang bertipe array}

end;

pada kode diatas menunjukan bahwa setiap warnet memiliki 2 buahnilai. Berikut ini contoh penggunannya didalam program:

program array_warnet;
uses crt;
const max=50;
type
Twarnet = record
     NAMA : string [25] ;
     KOMPI : string [8] ;
     JAM : array [1..2] of real;
end;
Tkumpulanwarnet = array[1..max] of Twarnet;
var
A : Tkumpulanwarnet;
i,N: Integer;
NA: real;
durasi:real;
begin
clrscr;
writeln ('=====> PROGRAM DATA WARNET <=====');
writeln ('---------------------------------');
write ('Masukan Data yg ingin diisikan :');
readln(N);
writeln ;
writeln ('=+=+ MASUKAN DATA ANDA +=+=    ');
writeln ('---------------------------');
for i:= 1 to N do begin
writeln('Data Pengunjung ke-',i);
with A[i] do begin
write ('NAMA             :'); readln(NAMA);
write ('Komputer         : KE-'); readln(KOMPI);
write ('Mulai Jam        : '); readln(JAM[1]);
write ('Selsai Jam       : '); readln(JAM[2]);
end;
writeln;
end;
writeln('Menampilkan Data');
writeln('------------------------------------');
writeln('NAMA':5,'':2, 'KOMPI':2, '':2,'BAYAR');
writeln('------------------------------------');
for i:=1 to N do begin
with A[i] do begin
NA:= (JAM[1]*JAM[2])/2 ;
write(NAMA:5, '':2, KOMPI:2, '' :3, NA:0:3);
end;
writeln;
end;
readln;
end.

Semoga bermanfaat dan budayakan Comment yah......:)

:)) ;)) ;;) :D ;) :p :(( :) :( :X =(( :-o :-/ :-* :| 8-} :)] ~x( :-t b-( :-L x( =))

Poskan Komentar

Silakan Tinggalkan pesan mengenai Blog ini, Tapi jngn Nyepam ya...Makasi atas Kunjunganya :)

Baca Juga Yang Ini :) :

 
Copyright 2008 New World Funday is proudly powered by Blogger.com | Template by o-om.com