Вывести все слова, в которых есть заданный символ (паскаль)

@PR0Z0N · Регистрация: 28.05.2009

Народ помогите пожалуйста решить задачку на паскале:
Дана символьная строка и символ. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя. Вывести все слова, в которых есть заданный символ.

@Puporev · 14.06.2009, 19:31

Pascal

uses crt;
var s,s1:string;
    i:byte;
    c:char;
begin
clrscr;
writeln('Строка:');
readln(s);
write('Символ: ');
readln(c);
s:=s+' ';{добавим в конец пробел}
while pos(' ',s)>0 do{пока есть пробелы}
 begin
  s1:=copy(s,1,pos(' ',s)-1);{копируем первое слово}
  if pos(c,s1)>0 then write(s1,' ');{если в слове есть символ, выводим}
  delete(s,1,pos(' ',s));{удаляем просмотренное слово}
 end;
readln
end.

@PR0Z0N · 15.06.2009, 06:53 **[ТС]**

Puporev,спасибо!!!

@PR0Z0N 1 / 1 / 0 Регистрация: 28.05.2009 Сообщений: 19
		1
	Вывести все слова, в которых есть заданный символ (паскаль) 14.06.2009, 16:48. Показов 3127. Ответов 2 Метки нет (Все метки) Народ помогите пожалуйста решить задачку на паскале: Дана символьная строка и символ. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя. Вывести все слова, в которых есть заданный символ. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@PR0Z0N 1 / 1 / 0 Регистрация: 28.05.2009 Сообщений: 19
	15.06.2009, 06:53 [ТС]	3
	Puporev,спасибо!!! 0

Опции темы

Вывести все слова, в которых есть заданный символ (паскаль)

Решение