1 / 1 / 0
Регистрация: 28.05.2009
Сообщений: 19
1

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

14.06.2009, 16:48. Показов 3127. Ответов 2
Метки нет (Все метки)

Народ помогите пожалуйста решить задачку на паскале:
Дана символьная строка и символ. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя. Вывести все слова, в которых есть заданный символ.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.06.2009, 16:48
Ответы с готовыми решениями:

Выбрать из заданного текста все слова, содержащие заданный символ
Выбрать из заданного текста все слова, содержащие заданный символ. Текст - в виде строки или...

Строки. Вывести на экран все слова, в которых все буквы разные
Дан текст из слов, разделенных пробелами. Вывести на экран все слова, в которых все буквы разные....

Вывести на экран все слова строки, которые начинаются на вводимый с клавиатуры символ
Дана строка, состоящая из 4 слов. Вывести на экран все слова строрки, которые начинаются на...

Выбрать слова содержащие заданный символ
Выбрать из заданного текста все слова, содержащие заданный символ. Текст - в виде строки или...

2
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
14.06.2009, 19:31 2
Лучший ответ Сообщение было отмечено PR0Z0N как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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.
1
1 / 1 / 0
Регистрация: 28.05.2009
Сообщений: 19
15.06.2009, 06:53  [ТС] 3
Puporev,спасибо!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.06.2009, 06:53
Помогаю со студенческими работами здесь

Определить и вывести слова из введенного текста в которых есть буквы «о» или «и» (как заглавные, так и строчные)
Определить и вывести слова из введенного текста в которых есть буквы «о» или «и» (как заглавные,...

Вывести все трехзначные числа в которых есть две одинаковые цифры
Вывести на экран все трех значные числа в которых есть две одинаковые цифры.Причем реализовать...

Вывести все четырехзначные числа в диапазоне от A до B, в записи которых есть 3 одинаковые цифры
Написал данную программу, но не могу понять, куда нужно вставить условие для промежутка (чтобы при...

Вывести слова из заданной строки, в которых есть буква "к"
помогите решить задачу пожалуйста дана строка вывести слова в которых есть буква к


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru