Помощь - Поиск - Пользователи - Календарь
Полная версия: не могу разобраться с текстовыми переменными в паскале
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
maklir
вводится непустая(проверить на пустоту вод одних пробелов или цифр) последовательность символов(не более70), отдельные слова разделены пробелами, вывести в лексикографическом порядке слова, начинающиеся с приставки "раз".
klem4
Разбиение на слова. Все способы. ? В следующий раз сначала используй поиск.
maklir
да смотрел я туда, мне в принципе только ввод строки нужен и желаельно без встроенных паскалевских функций в самом примитиве
klem4
Если лова разделены исключительно одним пробелом.

вот достаточно коротки вариант:
var
s: string[70];
i, p: Byte;
begin
write('s = '); readln(s);

for i := 1 to length(s) - 2 do
if ((i = 1) or (s[i - 1] = ' ')) and (Copy(s, i, 3) = 'раз') then begin
p := Pos(' ', Copy(s, i, 255));


if p > 0 then writeln(Copy(s, i, p - 1))
else writeln(Copy(s, i, 255));

{
альтернативный вариант предыдущих двух строк
p := byte(p = 0) * 255 + p;
writeln(Copy(s, i, p - 1))
}
end;
end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.