Program Pascal

program Uji;

var T:Text;

i,j,k:integer;

begin

Assign(T, 'INPUT.TXT’);

Reset(T);

Readln(T, i, j, k);

Writeln(i,’ ’ j,’ ’, k);

Readln(T,i);

Readln(T,j);

Writeln(i,’ ’,j);

Close(T);

End.

Misalkan file INPUT.TXT berisi baris-baris sebagai berikut:

3 1 4 9

5 2 6

8 7

0

Bagaimanakah output dari program tersebut?

a. 3 1 4 9

5 2 6

8 7

b. 3 1 4

9 5

c. 3 1 4

5 2

d. 3 1 4

5 8

e. Terjadi runtime error karena isi file INPUT.TXT tidak sesuai untuk program ini.

Jawab:

d. 3 1 4

5 8

Pembahasan:

Perintah Readln akan melakukan pembacaan di baris berikutnya. Perintah Readln pertama akan melakukan pembacaan pada file baris pertama, perintah Readln berikutnya melakukan pembacaan pada baris ke dua dan perintah Readln terakhir melakukan pembacaan pada baris ketiga.