15.2. Učitati niz znakova /STRING/ . Ispisati znak ispod znaka upisanog stringa. Opis programa: String se ispisuje znak po znak korištenjem naredbe LENGTH (broj znakova u stringu) i time što je s[i] definisan kao niz znakova. Ispis znak po znak se izvodi sa s[i] , a ispis u novi red naredbom Writeln Listing programa: PROGRAM P15111012; USES WinCRT; VAR i : Integer; s : String; BEGIN Write('Unesi string '); Readln(s); FOR i := 1 TO LENGTH(s) DO Writeln(i, '-ti znak = ', s[i]); END. Ispis na ekranu:
|
||||||||
|