Tugas Struktur Data

Array (larik) merupakan tipe data tersetruktur dimana didalamnya terdiri dari komponen – komponen yang mempunyai tipe data yang sama. Didalam suatu array jumlah komponen banyaknya adalah tetap. Didalam 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.

• TUGAS ARRAY 1
• Buat program untuk menghitung nilai rata-rata dari 5 data nilai yang menggunakan array.
• JAWABAN:
• Listing Program
  

uses wincrt;

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

jml,rata:real;

begin

clrscr;

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

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

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

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

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

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

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

rata:=jml/5;

writeln;

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

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

end.

• output

Menghitung rata-rata 5 nilai
Nilai 1=8
Nilai 2=8
Nilai 3=8
Nilai 4=9
Nilai 5=7
Jumlah=40
Rata-rata=8

Repetition dapat digunakan untuk menjalankan suatu bagian program secara berulang-ulang sesuai dengan kondisi yang ada.

Looping pada Pascal menggunakan beberapa keyword seperti FOR…DO, WHILE…DO dan REPEAT…UNTIL.

• TUGAS 2

• Buat program untuk menghitung nilai rata-rata dari 3 buah nilai yang menggunakan looping.
• Listing Program
  

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('Masukkan data ke-1:');readln(nilai[1]);

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

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

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

rata:=jumlah/3;

writeln;

writeln('Jumlah=',jumlah:6:3);

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

readln;

end;

end.

• Output

Masukkan data ke-1:8
Masukkan data ke-2:8
Masukkan data ke-3:8
Jumlah=24
Rata-rata=8