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.

Bila isi file INPUT.TXT adalah sebagai berikut:

1

3

2

4

5

6

bagaimana output program ini?

a. 2 3 1

4 5

b. 1 0 0

3 2

c. 1 3 2

4 5

d. 1 3 2

5 6

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

Jawab:

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