Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
TORVALD
2 / 2 / 3
Регистрация: 14.05.2009
Сообщений: 136
1

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

14.05.2009, 00:48. Просмотров 1375. Ответов 7
Метки нет (Все метки)

Дано трехзначное число. Выяснить, является ли оно палиндромом(<<перевертышем>>), то есть таким числом, десятичная запись которого читается слева направо и справа налево.

Идея в принципе есть как решать.. Я так понял надо что бы оно проверяло крайние числа.. но как это записать не знаю.. подкиньте идею как это записать?
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.05.2009, 00:48
Ответы с готовыми решениями:

Проверить, является ли данное число палиндромом
дано натуральное n значное число p. проверить является ли данное число палиндромом Через...

Определить, является ли данное слово палиндромом
Определить, является ли данное слово палиндромом. В этой задаче применяется рекурсия. Заранее...

Является ли данное слово палиндромом (с помощью рекурсии)
Помогите пожалуйста. написать прогу. Является ли данное слово палиндромом (с помощью рекурсии).

Выяснить является ли заданная строка палиндромом
Дело в том, что в 10 классе мы проходим Паскаль поверхностно, поэтому надо решеть задачу так...

Даны 2 натуральных числа выяснить является ли хоть одно из них палиндромом (перевёртышем)
Даны 2 натуральных числа выяснить является ли хоть одно из них палиндромом(перевёртышем) тоесть...

7
EnzoMatrix
120 / 120 / 14
Регистрация: 14.03.2009
Сообщений: 462
14.05.2009, 01:05 2
правая цифра
a mod 10
левая цифра
a div 100
0
TORVALD
2 / 2 / 3
Регистрация: 14.05.2009
Сообщений: 136
14.05.2009, 01:33  [ТС] 3
ммм.. что то не очень помогло.. но я решил попробовать по другому
Pascal
1
2
3
4
5
6
7
8
9
10
11
program palindrum;
uses crt;
var
ABC,A,C:integer;
begin;
writeln('vvedite lyboe trexznachnoe chislo ABC->');
readln(ABC);
if(A=C) then writeln('vashe chislo 9vl9etsa palindromom');
if (A<>C) then writeln('eto chislo nepravilbnoe');
readln;
end.
но это походу на ряду с бредом... я немного запутался(
0
Puporev
Модератор
56127 / 42985 / 29733
Регистрация: 18.05.2008
Сообщений: 102,021
14.05.2009, 07:42 4
но это походу на ряду с бредом..
Истинно так.
Вам же написали как надо, чего еще выдумываете. Прочитайте про числа, про целочисленное деление, если вообще ничего не понимаете.
0
TORVALD
2 / 2 / 3
Регистрация: 14.05.2009
Сообщений: 136
14.05.2009, 08:21  [ТС] 5
все я понял.. пасибо)
0
Vzik
32 / 27 / 7
Регистрация: 05.05.2009
Сообщений: 58
14.05.2009, 10:41 6
Вот задача на палиндром
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
uses crt;
var n,r,k,M,i:integer;
F:Boolean;
begin
clrscr;
repeat
write ('n=');
readln(n);
until n>0;
M:=n;
 r:=1;
  k:=1;
  f:=false;
while (m div 10) >0 do
begin
M:=m div 10;
R:=r*10;
K:=k+1;
end;
M:=n;
For i:=1 to k div 2 do
begin
if (m div r) <> (m mod 10) then f:=true;
M:=(m mod r) div 10;
R:=r div 100;
end;
if f then writeln (n,'-ne palindrom') else writeln (n,'-palindrom');
readkey;
end.
0
TORVALD
2 / 2 / 3
Регистрация: 14.05.2009
Сообщений: 136
14.05.2009, 16:53  [ТС] 7
ну спасибо и на этом.. я еще узнал что ее можно как то решить используя string.. тоисть наше вводимое число перевести в строку с помощью процедуры procedure Str(X [:ВсегоСимволов [:ДробнаяЧасть ]]; var Строка: string);.... но тоно не знаю как ..надо бы разобрать этот вариант..
0
Puporev
Модератор
56127 / 42985 / 29733
Регистрация: 18.05.2008
Сообщений: 102,021
14.05.2009, 16:55 8
s1:='';
for i:=length(s) to 1 do
s1:=s1+s[i];
if s=s1 then palindrom
else ni figa;
0
14.05.2009, 16:55
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.05.2009, 16:55

Определить, является ли число палиндромом
Помогите пожалуйста решить следующие задачи: 1. Дано натуральное N. Определить, является ли оно...

Определить, является ли заданное число палиндромом
Назовем натуральное число палиндромом, если его запись читается одинаково с начала и с конца (как,...

Определить, является ли четырехзначное число палиндромом
var a:integer; begin read (a); //3993 if a div 1000=a mod 10 and (a mod 1000) div 100=(a mod...


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

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

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