Авторизация

Логин: Пароль:
Регистрация Забыли свой пароль?

Вывод слов предложения в столбик

Страницы: 1
Вывод слов предложения в столбик
Дано предложение, надо вывести все слова столбик. Какой самый простой алгоритм?
Я думаю выводить по букве пока не встретится пробел...
Если встречаем пробел то переводим каретку на новую строку...
Можно еще сделать проверку на последующие пробелы, чтобы не было такой ситуации когда между словами несколько пробелов стоит, чтобы не переводить зря каретку....
Цитата
Valera пишет:
Я думаю выводить по букве пока не встретится пробел...
Если встречаем пробел то переводим каретку на новую строку...

Можно пример кода?
Код
var
stroka:string;
i:integer;

begin
stroka:='this is a sentence';
for i:=1 to length(stroka)-1 do
begin
   if stroka[i]=' ' then writeln;
else write(stroka[i]);
end;


на работоспособность не проверял.
Код
var
stroka:string;
i:integer;

begin
stroka:='this is a sentence';
for i:=1 to length(stroka) do
begin
   if stroka[i]=' ' then writeln
else write(stroka[i]);
end;
end.

Спасибо!
Страницы: 1
Читают тему (гостей: 1, пользователей: 0, из них скрытых: 0)