Pascal einzelne Buchstaben eines Wortes auslesen?

1 Antwort

https://www.tutorials.de/threads/string-teilen.150158/

PROGRAM strings;

USES Crt;

 

VAR stri :string;

VAR k,i:integer;

VAR arr: ARRAY[1..100] OF string;

 

BEGIN

i:=1;

arr[i]:='';

stri:='Hallo Welt, ich liebe Euch!';

FOR k:=1 TO length(stri) DO

BEGIN

IF stri[k]<>' ' THEN arr[i]:=arr[i] + stri[k]

               ELSE BEGIN

                    inc(i);

                    arr[i]:='';

                    END;

END;

 

ClrScr;

FOR k:=1 TO 20 DO

Writeln(arr[k]);

readln;

 

END.