Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ не могу разобраться с текстовыми переменными в паскале

Автор: maklir 4.12.2007 0:02

вводится непустая(проверить на пустоту вод одних пробелов или цифр) последовательность символов(не более70), отдельные слова разделены пробелами, вывести в лексикографическом порядке слова, начинающиеся с приставки "раз".

Автор: klem4 4.12.2007 1:01

http://forum.pascal.net.ru/index.php?showtopic=6972 ? В следующий раз сначала используй поиск.

Автор: maklir 4.12.2007 1:16

да смотрел я туда, мне в принципе только ввод строки нужен и желаельно без встроенных паскалевских функций в самом примитиве

Автор: klem4 4.12.2007 1:32

Если лова разделены исключительно одним пробелом.

вот достаточно коротки вариант:

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.