Page 150 - BAHAN_BACAAN_ALGORITMA_DAN_PEMOGRAMAN

Writeln;

Writeln;
Write('Tekan Enter...');

Readln;

end.

Perhatikan program di atas. Untuk lebih jelasnya, jalankan program

dengan F7 sehingga akan terlihat urutan jalannya program.

Perhatikan pula bagaimana cara mengakses elemen record seperti
pada prosedur JumlahKompleks.

Soal Dan Pembahasan:

1. Program Fibonacci;

uses wincrt;
var

I : integer;

Data : array[1..10] of integer;
procedure Awal;

begin

Writeln('Praktikum DKP III : Array dan Record');
Writeln('------------------------------------');

Writeln;

Writeln('Nama : ____________________');
Writeln('NIM : __________');

Writeln;

end;