Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
Анжела олеговна
4 / 3 / 0
Регистрация: 14.01.2010
Сообщений: 58
1

Проверить, будет ли число читаться одинаково справа налево и слева направо

01.02.2010, 19:35. Просмотров 1520. Ответов 6
Метки нет (Все метки)

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

Добавлено через 1 минуту
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var a:array[1..20] of string;
s:string;
    i:byte;
begin
clrscr;
writeln('введите фразу');
readln(s);
for i:=length(s) downto 1 do
write(s[i]);
readln;
end.
помогите сделать проверку пожалуйста))))
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.02.2010, 19:35
Ответы с готовыми решениями:

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

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

Установить, что данное четырехзначное число читается одинаково слева направо и справа налево
Проверить истинность высказывания: "Данное четырехзначное число читается одинаково слева направо и...

В матрице D выбрать элементы, стоящие по диагонали слева направо и справа налево
1. Дана матрица D(6×6), состоящая из положительных и отрицательных целых чисел, расположенных в...

Написать программу, которая будет составлять число, которое читается одинаково как слева направо, так и справа налево
Текст задачи: "На вход программе подается набор символов, заканчивающийся символом 0 (в программе...

6
andrei63
141 / 135 / 69
Регистрация: 15.12.2009
Сообщений: 344
01.02.2010, 19:39 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
 var s,b : string; i : byte;
begin
  writeln('Введите строку');
  readln(s);
  b:='';                        {Переменной B присваиваем значение "пустая строка"}
  for i:=1 to length(s) do
       b:=s[i]+b;
  if b=s then writeln('Палиндром') else writeln('Не палиндром')
end.
1
syd2010
45 / 37 / 3
Регистрация: 14.12.2009
Сообщений: 273
01.02.2010, 19:40 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Вот как то так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var a: string;
s:string;
    i:byte;
begin
clrscr;
writeln('введите фразу');
readln(s);
a:='';
for i:=length(s) downto 1 do
a:=a+s[i];
writeln(a);
if a=s then
writelm('Polingandon))');
readln;
end.
1
Анжела олеговна
4 / 3 / 0
Регистрация: 14.01.2010
Сообщений: 58
01.02.2010, 19:47  [ТС] 4
что значит переменная b?
0
Puporev
Модератор
56601 / 43287 / 29929
Регистрация: 18.05.2008
Сообщений: 102,977
01.02.2010, 19:50 5
Анжела олеговна, Так это тоже строка, которая получается переворачиванием строки s.
1
кот Бегемот
Платежеспособный зверь
8566 / 3983 / 1563
Регистрация: 28.10.2009
Сообщений: 10,404
01.02.2010, 21:04 6
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

можно было и покороче:

Pascal
1
2
3
4
5
6
7
8
9
10
var
s:string;
i,f:integer;
begin
readln(s);
for i:=1 to length(s) div 2 do
if s[i]<>s[length(s)+1-i] then f:=1;
if f=0 then writeln('yes')else wriyteln('no');
readln;
end.
0
Inadequate
Retired
7713 / 2545 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
02.02.2010, 00:24 7
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Вот как дополнительный вариант
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
function Pall(s:string):boolean;
begin
  if (Copy(s,2,Length(s)-2)<>'') and (s[1]=s[Length(s)]) then
    Pall:=Pall(Copy(s,2,Length(s)-2))
  else
    Pall:=s[1]=s[Length(s)]
end;
var
  s:string;
begin
  ReadLn(s);
  WriteLn(Pall(s));
end.
0
02.02.2010, 00:24
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.02.2010, 00:24

Определить является ли заданный текст симметричным (читается одинаково слева направо и справа налево)
Дан текст из 20 символов. Определить является ли он симметричным (читается одинаково слева направо...

Определить в тексте слова, которые можно читать слева направо и справа налево (Анна, шалаш и т.д.).
Помогите пожалуста решить. Задача: Определить в тексте слова, которые можно читать слева направо...

Является ли число одинаково читающимся как справа налево, так и наоборот?
Установить, является ли заданное натуральное число n палиндромом (одинаково читается как слева...


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

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

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