NuSinau

Menjawab pertanyaan mas/mbak takirey lagi nih tentang cara membuat program dengan menggunakan array of string. Dengan asumsi program user dapat melakukan input data ke dalam array, kemudian seluruh array akan ditampilkan.

Kira-kira begini penyelesaiannya :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

uses wincrt;
 
var x : array[1..3] of string;
    a : integer;
begin
  for a := 1 to 3 do begin
    write('input ', a, ' : ');
    readln(x[a]);
  end;
 
  writeln;
  write('output : ');
  for a := 1 to 3 do
    write(x[a],' ');
end.