15.. Svaku riječ učitanog stringa ispisati u novom redu.
Opis programa: Sa FOR petljom se ispisuje znak po znak stringa Write(s[i]). Ako se pri provjeri IF ' ' <> s[i] THEN nađe prazan prostor, to je nova riječ ispisuje se novi red Writeln.
Listing programa:
PROGRAM P15111015;
USES
WinCRT;
VAR
i : Integer;
s : String;
BEGIN
Write('Unesi string ');
Readln(s);
FOR i := 1 TO LENGTH(s) DO
IF ' ' <> s[i] THEN
Write(s[i])
ELSE
Writeln;
END.
Ispis na ekranu:
Index
|