Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
Vitaly5
0 / 0 / 0
Регистрация: 27.10.2012
Сообщений: 6
1

Проверить, является ли слово палиндромом

17.12.2012, 22:34. Просмотров 1076. Ответов 2
Метки нет (Все метки)

Определить является ли слово(не текст) полиндромом (использовать строки)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.12.2012, 22:34
Ответы с готовыми решениями:

Проверить, является ли заданное слово палиндромом
Проверить, является ли заданное слово палиндромом. (Например, слова палиндромы:...

Строка содержит одно слово. Проверить, будет ли оно читаться одинаково справа налево и слева направо (т.е. является ли оно палиндромом)
Строка содержит одно слово. Проверить, будет ли оно читаться одинаково справа...

Выяснить, является ли слово палиндромом
написать программу , с помощью которой можно проверить является ли заданное...

Определить, является ли слово палиндромом
3).Символьная строка содержит одно слово. Проверить, будет ли оно читаться...

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

2
ALisSsa
1 / 1 / 4
Регистрация: 17.12.2012
Сообщений: 7
18.12.2012, 20:56 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var s, st: string;
    i,j,k: integer;
begin
writeln('Введите слово');
readln(s);
i:=1; j:=length(s);
while i<j do
 begin
 if s[i]=s[j] then
 inc(k);
 i:=i+1;
 j:=j-1;
 end;
if k=length(s) div 2 then
writeln ('Слово является палиндромом') else
 writeln ('Слово не является палиндромом');
    Readln;
end.
1
Bringoff
СуперМодулятор
133 / 132 / 48
Регистрация: 03.11.2012
Сообщений: 974
18.12.2012, 21:08 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

... и немного попроще:
Pascal
1
2
3
4
5
6
7
8
9
10
var
 s:string;
 i:integer;
 begin
 Writeln('Vvedite slovo:');
  Readln(s);
  for i:=1 to (length(s) div 2) do
   if s[i]<>s[length(s)-i+1] then begin Writeln('Ne yavlaetsya');Exit;end;
   Writeln('Yavlayetsya');
 end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.12.2012, 21:08

Проверить, является ли массив палиндромом
нужно проверить является ли массив палиндромом исправьте у мя ошибки в...

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

Проверьте является ли это слово палиндромом
помогите решить функцией: Дано слово, состоящее только из строчных латинских...


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

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

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