Program Pascal

Perhatikan Program Berikut :

1. var s : string;

2. i: integer;

3. begin

4. for i := 1 to length(s) do

5. begin

6. s[i]:= s[length(s)-i+1];

7. end;

8. end.

Output dari program di atas jika s=’HaShMaT’ dan baris ke-4 diubah menjadi                             

"for i:=length(s) downto 1" adalah ....

a.       s=’TaMhMaT’

b.      s=’HaShSaH’

c.       s=’HHHHHHH’

d.      s=’aaaaaaa’

e.       s=’aHaHaHa’

Jawab:

b. s=’HaShSaH’