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 := 2 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.

Opis rješenja: Na slici je prikazan odnos redova i kolona.

Slika 1. Glavna dijagonala i=j

Ovaj ispis se ponekad naziva i "Ispis na glavnoj dijagonali":

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 := 2 TO i DO
        Write(' '); {prazna mjesta}
      Writeln(s[i]);
    END;
END.

Ispis na ekranu:

Index