Форум программистов
 
О проблемах с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 15.06.2011, 23:24   #1
НЕМО170792
 
Регистрация: 12.06.2011
Сообщений: 6
По умолчанию Дан текст.Найти все палиндромы(слова-перевёртыши)в етом тексте

Доброго времени суток ув.форумчане!Нужна ваша помощь в решении задачи по программированию.Язык програмирования-Delphi7.Задача состоит в следующем:Дан текст.Найти все палиндромы(слова-перевёртыши)в етом тексте.заранее благодарен!
НЕМО170792 вне форума Ответить с цитированием
Старый 16.06.2011, 07:21   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,260
По умолчанию

1) поиском пользовались?

2) задача простая - разбиваете текст на отдельные слова.
Каждое слово проверяете (своей функцией) не является ли оно палиндромом.
И всё.

3) Где наработки? что именно не получается?
Serge_Bliznykov вне форума Ответить с цитированием
Старый 18.06.2011, 19:51   #3
Dima170792
Пользователь
 
Аватар для Dima170792
 
Регистрация: 04.04.2011
Сообщений: 60
По умолчанию

Поиском пользовался.Нашел только вариант на паскале
Код:
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
   function palind(a:integer):boolean;
    var i,j,e,d:integer;s,s1:string;
      begin
         s1:=inttostr(a);
          for i:=length(inttostr(a)) downto 1 do
          s:=s+s1[i];
             if s=s1 then palind:=true
              else palind:=false;
       end;

 var a,b,i:integer;
begin
   readln(a,b);
    for i:=a to b do
     if (palind(i)=true)and(palind(i*i)=true) then
      write(i,' ');
     readln
end.
пробовал переделать для delphi 7-но уровень знаний очень мал-поэтому не получилось! а требования преподавателя выше того что нам было начитано на лекциях!если несложно-помогите с переводом под Delphi7!
Dima170792 вне форума Ответить с цитированием
Старый 18.06.2011, 20:02   #4
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
a,b,i:integer;
а причем тут слова и integer;

Цитата:
Дан текст.Найти все палиндромы(слова-перевёртыши)в етом тексте
(c) Demon-red
Код:
var s,s1,s2:string;
i,k:integer;
function Pal(s:string):boolean;
var i:byte;
    s1:string;
begin
s1:='';
for i:=length(s) downto 1 do
s1:=s1+s[i];
if s=s1 then Pal:=true
else Pal:=false;
end;
 
begin;
writeln('Введите слова разделенными пробелами: ');
readln(s);
while pos('  ',s)>0 do
delete(s,pos('  ',s),1);
i:=length(s);
s1:='';
while s[i]<>' ' do
 begin
  s1:=s[i]+s1;
  i:=i-1;
 end;
k:=0;
while pos(' ',s)>0 do
 begin
 s2:=copy(s,1,pos(' ',s)-1);
 if (s2<>s1)and Pal(s2) then
 begin
  write(s2,' ');
  k:=k+1;
  end;
 delete(s,1,pos(' ',s));
 end;
if k=0 then
write('В строке не найдено палиндрома! ');
readln
end.
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"

Последний раз редактировалось Mad_Cat; 18.06.2011 в 20:04.
Mad_Cat вне форума Ответить с цитированием
Старый 18.06.2011, 20:06   #5
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,503
По умолчанию

А причем тут числа? В задании же про слова говорится. И если вам нужно консольное приложение Дельфи, то почти никакой разницы с Паскалем нет.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 18.06.2011, 22:03   #6
Dima170792
Пользователь
 
Аватар для Dima170792
 
Регистрация: 04.04.2011
Сообщений: 60
По умолчанию

Цитата:
Сообщение от Alex11223 Посмотреть сообщение
А причем тут числа? В задании же про слова говорится. И если вам нужно консольное приложение Дельфи, то почти никакой разницы с Паскалем нет.
В ТОМ ТО И ВСЯ ПРОБЛЕМА-Я НЕМОГУ ОКОННОЕ ПРИЛОЖЕНИЕ СО СЛОВАМИ ОРГАНИЗОВАТЬ( ОБЬЯСНИТЕ ЧТО НУЖНО ПЕРЕДЕЛАТЬ?
Dima170792 вне форума Ответить с цитированием
Старый 18.06.2011, 22:21   #7
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,503
По умолчанию

Ну вставить на форму какой-нибудь Мемо1 или Эдит1, в него ввести текст, нажать Кнопку1 и по ее нажатию сделать поиск палиндромов (основная часть в коде выше, а у вас был для чисел, а не для слов) там, где их ввели и вывести их куда-нибудь, в Мемо2, например. Можно еще сделать счетчик или boolean, чтобы если их вообще нет вывести соответствующее сообщение.
Если что, могу сделать за небольшое вознаграждение, контакты в подписи)
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.

Последний раз редактировалось Alex11223; 18.06.2011 в 22:24.
Alex11223 вне форума Ответить с цитированием
Ответ
Купить рекламу на форуме от 7000 рублей в месяц



Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
найти слова палиндромы majesticx777 Паскаль, Turbo Pascal, PascalABC.NET 0 15.06.2011 12:36
найти слова в тексте boshki Помощь студентам 0 12.06.2011 11:15
Символьная строка содержит слова, разделенные пробелами. Найти все слова-палиндромы (Паскаль) sashunechka Помощь студентам 4 18.05.2011 20:45
Дан динамический массив строк, вывести все слова начинающиеся с большой буквы C++ builder Memphi[s] Помощь студентам 0 02.03.2011 16:34
Во вводимом тексте переписать все слова в обратном порядке. menlo Помощь студентам 5 17.11.2007 10:18


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Скидки на курсы GeekBrains 40%, выбирайте программу для себя