Belajar Array Dengan Pascal

Belajar Array Dengan Pascal

Pada pascal terdiri dari berbagai macam bentuk seperti array satu dimensi, dua dimensi, tiga dimensi, dan dimensi n. Pada dimensi satu lebih bnyak menggunakan stetment for…next. Untuk memasukan nilai dalam array.. dibawah ini adalah contoh program array dimensi satu pada pascal...

program konversi;

uses crt;

var dta,i:byte;

nilai:array[1..10]of integer;

nama:array[1..10]of string;

konver:array[1..10]of string;

begin

clrscr;

writeln('Konversi Nilai');

write ('Data Nilai Yang Input :');readln(dta);

for i:=1 to dta do

begin

write('Nama :');readln(nama[i]);

write('Masukan nilai :');readln(nilai[i]);

writeln;

case nilai[i] of

0..45:konver[i]:='Kurang';

46..55:konver[i]:='Cukup';

56..70:konver[i]:='Baik';

71..100:konver[i]:='Baik Sekali';

end;

end;

clrscr;

write('NO ');

Write('Nama ');

Write('Nilai ');

write(' konversi');

writeln;

for i:=1 to dta do

begin

write(i);

write(' ');

write(nama[i]);

write(' ');

write(nilai[i]);

write(' ');

writeln(konver[i]);

writeln;

end;

readkey;

end.