15.2. Učitati niz znakova /STRING/ . Ispisati znak ispod znaka upisanog stringa.

Opis programa: String se ispisuje znak po znak korištenjem naredbe FOR i := 1 TO LENGTH(s) DO. Sa petljom:

      FOR j := 1 TO i DO
        Write(' '); {prazna mjesta}

se ispisuje onoliko praznih mijesta do kojeg znaka se stiglo sa ispisom. Ispis znaka u stringu s[i] se izvodi naredbom Writeln, zanči poslije ispisa pređi u novi red.

Listing programa:

PROGRAM P15111016;
USES 
  WinCRT;
VAR
  i, j : Integer;
  s : String;
BEGIN
  Write('Unesi string ');
  Readln(s);
  FOR i := 1 TO LENGTH(s) DO
    BEGIN
      FOR j := 1 TO i DO
        Write(' '); {prazna mjesta}
      Writeln(s[i]);
    END;
END.

Ispis na ekranu:

Index