Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
Zed_P
0 / 0 / 0
Регистрация: 21.12.2014
Сообщений: 16
1

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

21.05.2015, 12:16. Просмотров 1683. Ответов 3
Метки нет (Все метки)

Дан текст из 20 символов. Определить является ли он симметричным (читается одинаково слева направо и справа налево)
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.05.2015, 12:16
Ответы с готовыми решениями:

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

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

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

Составить из имеющихся четных цифр максимальное число, читающееся одинаково слева направо и наоборот
На вход подается набор символов, оканчивающийся точкой. Количество символов не превышает 200....

Найти в файле f все слова, слева направо и наоборот читаются одинаково и составить из них новый файл q
Найти в файле f все слова, слева направо и наоборот читаются одинаково и составить из них новый...

3
The-Dark-Side
14 / 14 / 4
Регистрация: 26.12.2014
Сообщений: 194
21.05.2015, 15:35 2
Гуглится с 1 запроса
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
 var a,b,c : string;
 i : integer;
begin
 clrscr;
 write('Введите слово: ');readln(a);
 b:='';
 for i:=1 to length(a) do b:=a[i]+b;{ переворачиваем слово }
 if a=b then write('Читается')
    else write('не читается');
 readln;
end.
0
Puporev
Модератор
56341 / 43120 / 29826
Регистрация: 18.05.2008
Сообщений: 102,477
21.05.2015, 15:42 3
или так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var a: string;
    i,n,k : integer;
begin
 clrscr;
 write('Введите слово: ');readln(a);
 n:=length(a);
 i:=1;
 k:=0;
 while(i<=n div 2)and(k=0) do
 if a[i]<>a[n-i+1] then k:=1
 else i:=i+1;
 if k=0 then write('Симметричное')
 else write('Не симметричное');
 readln;
end.
0
JokeR.BY
CAPITAL OF ROCK!
1278 / 705 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
Завершенные тесты: 2
21.05.2015, 15:54 4
или так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
const
    Ans: Array[Boolean] Of String = ('Симметричное', 'Не симметричное');
var
    a: String;
    i, n: Byte;
    k: Boolean;
begin
    Write('Введите слово: '); ReadLn(a);
    i := 1; n := Length(a); k := False;
    while ((i <= n div 2) And (Not k)) do
    begin
        k := a[i] <> a[n - i + 1];
        Inc(i);
    end;
    WriteLn(Ans[k]);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.05.2015, 15:54

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

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

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


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

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

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