Задача с текстом. - Паскаль, Turbo Pascal, PascalABC.NET

Krigan · 23.12.2011, 00:32

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

Hacker19_90 · 23.12.2011, 01:01

Цитата:

удалите центральные буквы.

покажите пример

Arigato · 23.12.2011, 01:09

Цитата:

Сообщение от Krigan

напишите программу

А в чем наш интерес писать для вас программы?

Krigan · 23.12.2011, 12:19

Цитата:

Сообщение от Arigato

А в чем наш интерес писать для вас программы?

да я ведь не заставляю,просто прошу помочь

Arigato · 23.12.2011, 17:36

Вы просите не помочь, а написать за вас. Для таких просьб есть раздел Фриланс.

Артём-Программиzd · 23.12.2011, 18:24

если дано слово "AAABBAAA", то удалить "BB"
если дано слово "AAABAAA", то удалить "B"?
Я правильно понимаю?

Krigan · 23.12.2011, 23:07

Цитата:

Сообщение от Артём-Программиzd

если дано слово "AAABBAAA", то удалить "BB"
если дано слово "AAABAAA", то удалить "B"?
Я правильно понимаю?

да правильно.

Hacker19_90 · 23.12.2011, 23:34

Код:

isPal := true;
for i := 1 to  (n div 2)  do
    if s[i] <> s[n-i+1] then
    begin
        isPal := false;
        break;
    end;
if isPal = true then
    if (n mod 2) = 0 then Delete (s, n div 2, 2)
    else Delete (s, (n div 2) + 1, 1);

Mad_Cat · 23.12.2011, 23:37

Код:

if (n mod 2) = 0 then Delete (s, (n div 2), 2)
    else Delete (s, (n div 2) + 1, 1);

Цитата:

Неа!

Согласен

Hacker19_90 · 23.12.2011, 23:41

Цитата:

Код:

Delete (s, (n div 2)-1, 2)

Неа! допустим слово размером 4 символа
тогда удалять надо 2 и 3 символ
4 div 2 = 2
удалять 2 символа получается 2 и 3 в аккурат!

23.12.2011, 00:32	#1
Krigan Пользователь Регистрация: 23.12.2011 Сообщений: 10	Задача с текстом. напишите программу вычисляющую является ли данное слово палиндромом(перевертышем),если слово является таковым,то удалите центральные буквы.

23.12.2011, 17:36	#5
Arigato Высокая репутация СуперМодератор Регистрация: 27.07.2008 Сообщений: 15,544	Вы просите не помочь, а написать за вас. Для таких просьб есть раздел Фриланс. E-Mail: arigato.freelance@gmail.com

23.12.2011, 23:34	#8
Hacker19_90 Delphi Warrior Старожил Регистрация: 15.08.2008 Сообщений: 2,502	Код: `isPal := true; for i := 1 to (n div 2) do if s[i] <> s[n-i+1] then begin isPal := false; break; end; if isPal = true then if (n mod 2) = 0 then Delete (s, n div 2, 2) else Delete (s, (n div 2) + 1, 1);` *Mess with the best, die like the rest.* (с) Hackers Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Задача о стрелках (задача Майхелла)	Silly Student	Помощь студентам	0	14.12.2011 22:20
Задача на оптимальный расчет маршрута (задача в презентации) в табличном процессоре Excel	Toofed	Помощь студентам	0	30.11.2011 01:12
Задача минимизации дисбаланса на линии сборки (задача минимакса)	LenZab	Microsoft Office Excel	13	13.03.2011 22:51

23.12.2011, 18:24	#6
Артём-Программиzd Новичок Джуниор Регистрация: 23.12.2011 Сообщений: 9	если дано слово "AAABBAAA", то удалить "BB" если дано слово "AAABAAA", то удалить "B"? Я правильно понимаю?