Module: Stringhe. Nozioni di base

Sfortunatamente, non esiste alcuna funzione in Pascal che consenta di leggere più righe separate da spazi da una singola riga. Per fare ciò, devi scrivere la tua funzione:

vars, w: stringa;
i, j, ind: intero;
a: matrice di stringhe;

inizio
    readln(s);
    setlength(a, lunghezza(i));
    io := 1;
    ind := 0;
    mentre io < lunghezza (s) fare
    inizio
        while (i < lunghezza/e) e ('' + s[i] = ' ') do i += 1;
        j := io + 1;
        w := '' + s[io];
        mentre (j < length(s)) e ('' +s[j] <> ' ') iniziano
            w += s[j];
            j += 1;
        FINE;
        a[ind] := w;
        ind += 1;
        io := j;
    FINE;
    scrivere(a[0], a[1]);
FINE.

Come risultato, otteniamo un array di stringhe.