Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Slim_py
47 / 47 / 42
Регистрация: 17.10.2011
Сообщений: 136
1

Поиск симметричных слов Pascal

08.11.2011, 20:45. Просмотров 734. Ответов 1
Метки нет (Все метки)

Вот нужно прогу создать для нахождения симметричных слов в строке.
кто поможет?
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.11.2011, 20:45
Ответы с готовыми решениями:

Список слов распечатать в алфавитном порядке. В Turbo Pascal или Pascal ABC
Дана непустая последовательность слов, в каждом из которых содержится от 1 до 6...

Файлы в Pascal. Выполнить замены слов в тексте.
Дан текст в этом тексте нужно заменить слова Коля на Лена, он на она, Рекс на...

Поиск Pascal
Привет всем. Имеется код поиска данных в типизированном файле. Почему то он...

В заданном предложении найти пару слов , из которых одно является обращением другого в pascal
Объясните как это сделать на языке Pascal

Поиск однофамильцев в текстовом файле Pascal
Дан файл с данными: Фамилия Имя Отчество. Используя Pascal, Найти в нем...

1
Руслан Царь
0 / 0 / 1
Регистрация: 10.12.2016
Сообщений: 20
11.12.2016, 20:39 2
Лучший ответ Сообщение было отмечено Slim_py как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var s:string; 
begin 
readln(s); //введите предложение
var words := s.Split(' '); 
var st := words.Where(v -> 
begin 
var cnt := words.Count(x -> x = v); 
var p := (v = ReverseString(v)); 
result := (Odd(cnt) and (cnt > 1) and p) or 
((cnt = 1) and (not p) and words.Contains(ReverseString(v))) 
end); 
st.Println(' '); 
end.
/////////пример предложения: мама амам папа
//////// ответ проги будет: мама амам
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.12.2016, 20:39

Поиск и вывод слов
Добрый день, начал писать программу и столкнулся с проблемой, при копирование...

Turbo Pascal, Pascal ABC, Free Pascal, PascalABC.NET - в чем разница?
Всем привет, решил изучать Паскаль, но на форуме увидел 4 его версии - Turbo...

Сложение симметричных матриц
Как сложить две симметричные матрицы, заданные в верхнем треугольнике...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru