Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.59/29: Рейтинг темы: голосов - 29, средняя оценка - 4.59
1 / 1 / 0
Регистрация: 24.11.2010
Сообщений: 7
1

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

25.11.2010, 23:33. Просмотров 5695. Ответов 4
Метки нет (Все метки)


Даны 2 натуральных числа выяснить является ли хоть одно из них палиндромом(перевёртышем) тоесть таким числом десятичная запись которого читается одинаково слева на право и справо на лево.(определить функции позволяющие распозновать числа палиндромы. Очень прошу вас сделайте пожалуйста)))
1
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.11.2010, 23:33
Ответы с готовыми решениями:

Даны два натуральных числа. Выяснить, в каком из них сумма цифр больше
Даны два натуральных числа. Выяснить, в каком из них сумма цифр больше.(сумма цифр - функция). ...

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

Даны два натуральных числа. Выяснить в каком из них сумма цифр больше.
Даны два натуральных числа. Выяснить в каком из них сумма цифр больше.

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

__________________
Помогаю в написании курсовых работ и дипломов здесь.
4
101 / 99 / 33
Регистрация: 24.04.2010
Сообщений: 286
Записей в блоге: 1
25.11.2010, 23:39 2
Написать комментарии к программе. (всего к 5-ти с)

Здесь та же задача,только для слов....необходимо вам немножко изменить ее и все
1
Модератор
63229 / 46981 / 32383
Регистрация: 18.05.2008
Сообщений: 113,873
26.11.2010, 10:13 3
Лучший ответ Сообщение было отмечено как решение

Решение

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
uses crt;
function Palindrom(n:longint):boolean;
var m,p:longint;
    i,k:integer;
begin
m:=n;
p:=0;
while m>0 do
  begin
    i:=m mod 10;
    p:=p*10+i;
    m:=m div 10;
  end;
Palindrom:=p=n;
end;
var a,b:longint;
    f:boolean;
begin
clrscr;
writeln('Введите 2 натуральных числа');
readln(a,b);
f:=Palindrom(a) or Palindrom(b);
if f then write('Хотя бы 1 число палиндром')
else write('Оба числа не палиндромы');
readln
end.
3
1 / 1 / 0
Регистрация: 24.11.2010
Сообщений: 7
27.11.2010, 12:56  [ТС] 4
как решитьна процедуры функции

Даны 2 натуральных числа выяснить является ли хоть одно из них палиндромом(перевёртышем) тоесть таким числом десятичная запись которого читается одинаково слева на право и справо на лево.(определить функции позволяющие распозновать числа палиндромы. Очень прошу вас сделайте пожалуйста)))???

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program sly;                                                                                    
uses crt;                              
var s:string;                                                                                      
k,i,n:integer;                                                                
fl:boolean;                                                                   
begin                                                                                             
clrscr;                                   
readln (s);                                                                                        
n:=length(s);                                                                 
fl:=true;                                                                     
for i:=1 to n div 2 do                                                        
if s[i]<>s[n-i+1] then fl:=false;                                             
if fl then writeln ('polidrom')                                               
else writeln ('Ne polidrom');                                                 
readln;                                   
end.
???
0
Фрилансер
Эксперт С++
5843 / 1224 / 499
Регистрация: 23.11.2010
Сообщений: 3,377
Записей в блоге: 1
27.11.2010, 13:07 5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program sly; 
var s:string;
fl :boolean;
procedure pal(s:string; var fl:boolean);
var
k,i,n:integer;
begin 
n:=length(s); 
for i:=1 to n div 2 do 
if s[i]<>s[n-i+1] then fl:=false;
end;
begin
fl:=true;
readln (s);
pal(s,fl);
if fl then writeln ('polidrom') 
else writeln ('Ne polidrom'); 
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.11.2010, 13:07

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь или здесь.

Даны два натуральных числа. Выяснить, в каком из них больше цифр
Даны два натуральных числа. Выяснить, в каком из них больше цифр. (Определить функцию для расчета...

Даны два натуральных числа.Выяснить,в каком из них больше цифр
Даны два натуральных числа.Выяснить,в каком из них больше цифр.(определить функцию для рассчета...

Подпрограммы. Даны два натуральных числа. Выяснить, в каком из них больше цифр
1)Даны два натуральных числа. Выяснить, в каком из них больше цифр, определив функцию для расчета...

Даны два натуральных числа. Выяснить, в каком из них больше цифр. (Определить функцию для расчета количества цифр натура
Даны два натуральных числа. Выяснить, в каком из них больше цифр. (Определить функцию для расчета...


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

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

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