12.12.2006, 01:06
|
|
Познающий
Регистрация: 09.10.2006
Сообщений: 92
Провел на форуме:
347686
Репутация:
87
|
|
2 r0 Двиг форума сам удаляет пробелы вначале строки, если ты о читабельности
Строки
1 Запросите у пользователя строку, состоящую из нескольких слов, разделенных пробелом, и выведите ее на экран так, чтобы каждое слово начиналось с новой строки.
Var S: String;
I,Count: Integer;
A : Array [1..32] Of String;
Begin
WriteLn('Enter some worlds separated by space: ');
Readln(S);
S:= S+' ';
For I:=1 To Length(S) Do
if S[I]=' ' Then Inc(Count);
For I:=1 To Count Do
Begin
A[I]:= Copy(S,1,Pos(' ',S));
Delete(S,1,Pos(' ',S));
End;
WriteLn('Formated string : ');
For I:=1 To Count Do
WriteLn(A[I]);
Была идея заменить пробелы символом chr(13) - возврат каретки....да не выводятся все слова |
|
|