Contoh:
Program
Contoh_Deklarasi_Array_Konstan;
Uses
winCrt;
Const
Tetap : Array[1..4] of Integer=(17,10,14,29);
Var
i : Integer;
Begin
For i:= 1 to 4 Do
Writeln('Nilai Konstan array ke ',i,'
=',Tetap[i]);
Readln;
End.
Bila program
dijalankan akan didapatkan output:
Nilai Konstan array ke 1 = 17
Nilai Konstan array ke 2 = 10
Nilai Konstan array ke 3 = 14
Nilai Konstan array ke 4 = 29
Latihan
Buatlah program dengan menggunakan arrray untuk menampilkan data berikut :
Nilai absen 1 = 75
Nilai absen 2 = 65
Nilai absen 3 = 80
Nilai absen 4 = 70
No comments:
Post a Comment