Toegas Struktur Data part I

>>ARRAY<<

• Pengertian

Array merupakan tipe data tersetruktur dimana di dalamnya terdiri dari komponen–komponen yang mempunyai tipe data yang sama. Di dalam suatu array jumlah komponen banyaknya adalah tetap. Di dalam suatu larik atau array setiap kompoenen ditunjukan oleh suatu index yang unik. Index dari setiap komponen array menunjukan urutan data atau identitas yang mewakili data yang ada didalamnya.

Logika sederhananya array itu bisa disamakan dengan dua orang dengan nama yang sama didalam suatu komunitas, untuk membedakan antara nama yang satu atau dengan nama yang lain maka diberikan initial tambahan untuk setiap nama.

• Soal: Buatlah rata-rata dari 5 buah nilai menggunakan Array....!!

• Penyelesaian :

program rata-rata;

uses wincrt;

var nilai:array[1..5] of integer;

jml,rata:real;

begin

clrscr;

writeln('Menghitung rata-rata 5 nilai');

write('Masukkan Nilai Ke-1 =');readln(nilai[1]);

write('Masukkan Nilai Ke-2 =');readln(nilai[2]);

write('Masukkan Nilai Ke-3 =');readln(nilai[3]);

write('Masukkan Nilai Ke-4 =');readln(nilai[4]);

write('Masukkan Nilai Ke-5 =');readln(nilai[5]);

jml:=nilai[1]+nilai[2]+nilai[3]+nilai[4]+nilai[5];

rata:=jml/5;

writeln;

writeln('Jumlah Semua Nilai =',jml:9:2);

writeln('Rata-rata dari 5 Nilai =',rata:9:2);

end.

>>LOOPING<<

• Pengertian
  

Pernyataan Repeat digunakan untuk pengulangan proses yang jumlahnya belum diketahui. tetapi minimal proses akan dikerjakan sekali. Pengujian kondisi pengulangan pada Repeat dilakukan setelah proses dikerjakan. Selama ungkapan nalar yang dijadikan kondisi bernilai salah, maka proses dikerjakan terus.

• Soal: Buatlah program untuk mencari rata-rata dari 3 nilai dengan Looping...!!

• Penyelesaian:

uses wincrt;

var nilai:array[1..3]of integer ;

jumlah,rata:real;

i:integer;

begin

writeln;

for i:=1 to 3 do

begin

clrscr;

write('Nilai ke-1:');readln(nilai[1]);

write('Nilai ke-2:');readln(nilai[2]);

write('Nilai ke-3:');readln(nilai[3]);

jumlah:=nilai[1]+nilai[2]+nilai[3];

rata:=jumlah/3;

writeln;

writeln('Rata-ratanya adalah :',rata:6:3);

readln;

end;

end.