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

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

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

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

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

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

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

Определить, является ли слово палиндромом
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
Привет! Вот еще темы с решениями:

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

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

Определить, является ли введенное слово палиндромом
1) пусть элементами равностороннего треугольника является: сторона А, площадь...

Строки. Проверить, является ли выражение палиндромом
15 Проверить, является ли выражение, состоящие из строчных букв заданной...


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

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

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