Membuat Daftar Nilai | Pascal - Array


     Salah satu type data dalam Turbo Pascal adalah Array. Array adalah tipe data terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe sama. Komponen-komponen tersebut disebut sebagai komponen type, larik mempunyai jumlah komponen yang jumlahnya tetap. Banyaknya komponen dalam larik ditunjukkan oleh suatu index, dimana tiap komponen di array dapat diakses dengan menunjukkan nilai indexnya atau subskript. Array dapat bertipe data sederhana seperti byte, word, integer, real, bolean, char, string dan tipe data scalar atau subrange. Tipe larik mengartikan isi dari larik atau komponen- komponenya mempunyai nilai dengan tipe data tersebut.

     Di Kampus, aku dapet tugas PASCAL. Harus mengasah logika!! Hmm, tapi, untunglah setelah kuutak atik ditemani buku panduan, dapat juga jawabannya. Sintaksnya sebagai berikut:


program datanilai_array;
uses wincrt;
label ulang;
var
tugas,uts,uas,akhir : array [1..5] of real;
nim,nama : array [1..5] of string;
i : integer;
nilai : array [1..5] of real;

begin
ulang:
clrscr;
For i :=1 to 2 do
begin
Write ('NIM ', i,': ');
Readln (nim[i]);

Write ('Nama ', i,': ');
Readln (nama[i]);


Write ('Nilai Tugas ',i ,': ');
Readln (tugas[i]);


Write ('Nilai UTS ',i ,': ');
Readln (uts[i]);



Write ('Nilai UAS ', i,': ');
Readln (uas[ i ]);

writeln;
End;

for i := 1 to 2 do
begin
akhir[i]:= tugas[i] + (4 * uts[i]) + (2 * uas[i]);
nilai[i]:= akhir[i]/7;
writeln('Nilai Akhir ',i,': ', nilai[i]:0:0);
end;

readln; goto ulang;
end.

     Semoga berhasil..! Jangan lupa komentnya yaw...

2 comments:

pa' GITAR corp said... Balas

lumayan nih,,, buat nambah nilai tugas!! hehehe

pa' GITAR corp said... Balas

wahh,,, bisa menambah nilai tugas nih,,, tanks yooo..