Minggu, 21 Oktober 2012

PASCAL ARRAY 1DIMENSI



Pengertian Array

Array adalah sistem data terstruktur yang berguna untuk menyimpan sejumlah data yang bertipe sama. Bagian yang menyusun array disebut element array, yang masing-masing element dapat di akses tersendiri melalui indeks array.  Banyaknya komponen dalam array ditunjukkan oleh suatu index, dimana tiap komponen di array dapat diakses dengan menunjukkan nilai indexnya atau subscript. Array dapat bertipe data sederhana seperti byte, word, integer, real, bolean, char, string dan tipe data scalar atau subrange.  Tipe array mengartikan isi dari aray atau komponen- komponenya mempunyai nilai dengan tipe data tersebut.

 Macam-macam Array yaitu :

 1.       Array Dimensi Satu

 Bentuk umum array dimensi satu yaitu :

 ARRAY [1..10] of tipe_data ; Contohnya yaitu : VarNilai : ARRAY[1..10] Of Integer;

Pada contoh Array dengan nama Nilai telah dideklarasikan dengan tipe integer, dengan jumlah elemen maksimum 10 elemen, nilai dari elemen array tersebut diatas harus bertipe integer.
Untuk memberikan nilai kedalam variabel array berdimensi satu, nama variabel diikuti dengan index yang berada didalam kurung siku. Seperti contoh dibawah ini :

Nilai[1] := 75;Nilai[2] := 85;Nilai[3] := 74;......dan seterusnya Contoh lain Array Dimensi Satu adalah : Buat nama program “ Program Penggunaan Array Dimensi Satu ”

Ketikan codingan seperti ini :
PROGRAM PENGGUNAAN_ARRAY_DIMENSI_SATU;
Uses Crt;
VAR
A,N, Jml_Nilai : Integer;
Nilai : ARRAY[1..10] Of Integer;
Nil_Rata : Real;
BEGIN
ClrScr;
WriteLn('Program Latihan Array');
WriteLn('=====================');
WriteLn;
{Memasukan Nilai}
Write('Masukan Banyak Data : ');
ReadLn(N);
FOR A := 1 TO N DOBegin
Write('Nilai Ke- ',A,' = ');
ReadLn(Nilai[A]);
End;
{Membaca Nilai Array}
Nil_Rata := 0;
Jml_Nilai := 0;
FOR A := 1 TO N DOBegin
Jml_Nilai := Jml_Nilai + Nilai[A];
Write('Nilai Ke- ',A,' = ',Nilai[A]);
End;
Nil_Rata := Jml_Nilai / N;
WriteLn('');
WriteLn('Jumlah Nilai    : ',Jml_Nilai);
WriteLn('Nilai Rata-Rata : ',Nil_Rata:5:2);
readLn;
end.  


Contoh lain Array dimensi satu dengan input Nama, NPM , nilai tugas , nilai uts , dan nilai uas adalah seperti ini :


uses crt;
var nama,NPM:array[1..10]of string;
tugas,uts,uas,absen:array[1..30]of integer;
rata:array[1..30]of real;
x,jd:byte;
begin
clrscr;
write(' masukan jumlah data:' );readln (jd);
for x := 1 to jd do
begin
writeln (' -------------------------------');
writeln (' PENILAIAN UJIAN MAHASISWA GUNADARMA');
writeln ('--------------------------------');
write ('input nama:');readln(nama[x]);
write ('input NPM:');readln(NPM[x]);
write ('input nilai tugas:');readln(tugas[x]);
write ('input nilai absen:');readln(absen[x]);
write ('input nilai uts:');readln(uts[x]);
write ('input niali uas:');readln(uas[x]);
rata[x]:=(0.1*tugas[x])+(0.2*absen[x])+(0.3*uts[x])+(0.4*uas[x]);
end;
clrscr;
for x := 1 to jd do
begin
writeln ('----------------------------------');
begin
writeln ('PENILAIAN UJIAN MAHASISWA GUNADARMA');
writeln ('----------------------------------');
writeln ('nama:',nama[x]);
writeln ('NPM:',NPM[x]);
writeln ('nilai tugas:',tugas[x]);
writeln ('nilai absen:',absen[x]);
writeln ('nilai uts:',uts[x]);
writeln ('nilai uas:',uas[x]);
writeln ('-----------------------------------');
writeln ('rata rata :',rata[x]:2:0);
readln;
end;
end.
Memberikan Nilai ke Array Dimensi Satu
 


Jumat, 05 Oktober 2012

I Miss You :(




Ketika Aku menangis Merindukan akan hadirnya Dirimu.. kau malah Pergi meninggalkan aku sendiri tanpa dirimu.



Aku merindukanmu... merindukan dekapan hangatmu...

Merindukan Senyum indah dibibirmu.... yang membuat aku tertawa riang saat bersamamu...

namun ketika kau katakan " SAY GOODBEY " aku seakan tak bisa tersenyum....

Seluruh Denyut Nadiku seakan berhenti... dan detak jantungku seakan tak dapat menentukan kapan akan berdetak dan kapan tidak berdetak...

Selamatt tinggal kasiih... semua kenangan yang kita lalui tak akan kusia-siakan...

Semua itu akan kusimpan dalam Memoriku nanti... :(( :'((

I miss You... So Miss You :)) :((










@Wenny_Peverell






Contoh Surat Lamaran Pekerjaan


 (tempat/tanggal pembuatan surat)

Kepada Yth,
Manajer Sumber Daya Manusia
PT. ______________
(alamat)




Dengan hormat,

 

Sesuai dengan informasi lowongan pekerjaan yang bapak/ibu pimpin. Saya mengajukan diri untuk bergabung dari bagian perusahaan yang sedang bapak/ibu pimpin sebagai marketing di sebuah perusahaan yang bapak/ibu pimpin. Sehubungan dengan hal tersebut, dengan ini perkenankan saya mengajukan diri untuk bergabung serta menjadi bagian dalam rencana pengembangan perusahaan yang sedang bapak/ibu pimpin.


Mengenai diri saya, dapat saya jelaskan sebagai berikut :
Nama : ......................................
Tempat, tgl. lahir : ......................................
Pendidikan Akhir : ......................................
Alamat : ......................................
Telepon (HP) : ......................................
e-mail : ......................................
Status Perkawinan : ...................................... (single/nikah)


Besar harapan saya untuk diberi kesempatan wawancara, dan dapat menjelaskan lebih mendalam mengenai diri saya.





Sebagai bahan pertimbangan, saya lampirkan :


Daftar Riwayat Hidup.
Foto copy KTP.
Foto copy Ijasah SMA.
Pas foto terbaru.

Atas perhatian dan kesempatan yang diberikan, saya ucapkan terima kasih.


Hormat saya,




(nama anda)