СЛОва (ПАскаль)

[Ler44ikk]

помогите пожалуйста как сделать))
Дана некоторая последовательность слов. Вывести на печать слова, отличные от указанного слова Х.
мои наработки,но они к сожалению неправильны
Program рор;
Var st: string;
x:char;
i:integer;
Begin
Writeln (‘vvedi stroky’);
Read (st);
Writeln (‘vvedi clovo’);
Read (x);
for I:=1 to lenght(st) do
while st=x do
delete (st,pos(x,x),i);
Writeln (st);
End.
   

[Данила]

разбейте строку на слова для начала....

[Ler44ikk]

это стучайно не так делаеться?
program n;
var st,x:string;
begin
writeln ('vvedi stroky');
readln (st);
writeln ('vvedi clovo');
readln (x);
if x<>' ' then x:=x+' ';

writeln (st);
end.

[Данила]

вы вообще сами понимаете что пишите? считали слов, если слово не пустое то добавляем к слову пустой символ....

[Данила]

предлагаю вам для начала открыть лекции или книгу,и почитать о работе со строками,индексации строк

[InfStudent]

Вобще-то символ разделитель надо ввести, организовать посимвольное сравнение строки исходной и набора символов до разделителя и т.д.

[Данила]

я предлагаю немного иначе....разбиваем строку на слова,пихаем их в массив,а потом бежим по массиву и сравниваем каждый элемент с данным словом

[InfStudent]

Ну если я тебя правильно понял, то все равно все сводиться опять к посимвольному сравнению только уже внутри отдельного массива. Но мне кажется чо при твоем варианте просто лишняя трата памяти идет,а так практически то же самое) Хотя может я ощшбаюсь))

[Данила]

ну для особых извращений можно использовать алгоритм КМП)
ссылка

[апельсин]

ПОМОГИТЕ ПЛИЗ С ЗАДАЧЕЙ НА МАСИВ.ДАН МАСИВ М={0,5,4,0,7,5,0,0,8,1} НУЖНО ВЫВЕСТИ НА ЭКРАН НЕ НУЛЕВЫЕ ЭЛЕМЕНТЫ МАСИВА,СОЩИТАТЬ НУЛЕВЫЕ ЭЛЕМЕНТЫ МАСИВА. ПОМОГИТЕЕЕЕ!!!!

----
От модератора
Я тебя сейчас анально покараю! хватит флудить,на вопрос уже ответили..малейший косяк - бан

[InfStudent]

Для кого пишут правила форума?))