Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.87/15: Рейтинг темы: голосов - 15, средняя оценка - 4.87
1 / 1 / 1
Регистрация: 18.04.2012
Сообщений: 17
1

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

22.04.2012, 13:28. Просмотров 2841. Ответов 8
Метки нет (Все метки)

Даны два натуральных числа. Проверить, является ли второе число перевертышем первого.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.04.2012, 13:28
Ответы с готовыми решениями:

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

Даны два числа. Если квадратный корень из второго числа меньше первого числа, то увеличить второе число в пять раз
Даны два числа. Если квадратный корень из второго числа меньше первого числа, то увличить второе...

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

Даны два вещественных числа. Уменьшить второе число в пять раз, если оно больше первого по абсолютной величине
Даны два вещественных числа. Уменьшить второе число в пять раз, если оно больше первого по...

8
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 7,957
Записей в блоге: 1
22.04.2012, 14:02 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Program perevertish;
Var i,j,n,m,k1,k2,k:integer;
    a,b:string;
Begin
    write('Введите число N: ');readln(n);
    write('Введите число M: ');readln(m);
    Str(n,a);Str(m,b);
    k1:=Length(a);k2:=Length(b);
    i:=k1;j:=1;
    if k1=k2 then
    Begin
    While (a[i]=b[j])and(j<k1) do
    Begin
    dec(i);
    inc(j);
    End;
    if j<>k1 then writeln('Число ',n, ' не является перевертышем числа ',m)
    else writeln('Число ',n, ' является перевертышем числа ',m)
    end
    else writeln('Не совпадение кол-ва цифр');
    readln;
End.
0
Заблокирован
22.04.2012, 14:59 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
function Reverse(a: string): string;
  var b:string;
      i:integer;
begin
   b:='';
   for i:=Length(a) downto 1
     b:=b+a[i];
     Result := b;
end;
 
Var n,m:string;
Begin
    write('Введите число N: ');
    readln(n);
    write('Введите число M: ');
    readln(m);
 
    if n<>Reverse(m) then
      writeln('Число ',n, ' не является перевертышем числа ',m)
    else
      writeln('Число ',n, ' является перевертышем числа ',m)
    readln();
End.
Не судите строго, - восстанавливаю знания. там в функции что-то не так.
Поправьте меня, буду благодарен.
0
25 / 25 / 32
Регистрация: 08.01.2011
Сообщений: 184
22.04.2012, 15:40 4
вариант попроще
Pascal
1
2
3
4
5
6
7
8
9
10
11
var a,b,c,d,e:integer;
begin
readln(a,b);
while a>0 do
begin
d:=b mod 10;
e:=e*10+d;
a:=a div 10;
end;
if b=e then writeln('yes') else writeln('no');
end.
0
Заблокирован
22.04.2012, 15:50 5
Цитата Сообщение от Dzhej-Dzhej Посмотреть сообщение
Не судите строго, - восстанавливаю знания. там в функции что-то не так.
Поправьте меня,...
Так все-же. Что я в функции неправильно написАл?
0
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 7,957
Записей в блоге: 1
22.04.2012, 19:12 6
Цитата Сообщение от qiwi Посмотреть сообщение
вариант попроще
Pascal
1
2
3
4
5
6
7
8
9
10
11
var a,b,c,d,e:integer;
begin
readln(a,b);
while a>0 do
begin
d:=b mod 10;
e:=e*10+d;
a:=a div 10;
end;
if b=e then writeln('yes') else writeln('no');
end.
Потестил твой код не работает выдаёт то и дело 'No'

Цитата Сообщение от Dzhej-Dzhej Посмотреть сообщение
От меня вариант:

for i:=Length(a) downto 1 do {пропустил do}
b:=b+a[i];
Result := b;
end;
Не судите строго, - восстанавливаю знания. там в функции что-то не так.
Поправьте меня, буду благодарен.
0
Заблокирован
22.04.2012, 19:37 7
Artem7, Ну?
Что в процедуре не так?

Добавлено через 27 секунд
Ага, в функции.

Добавлено через 5 минут
Цитата Сообщение от Artem7 Посмотреть сообщение
for i:=Length(a) downto 1 do {пропустил do}
Ага уже заметил, - в этом была причина, да?
0
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 7,957
Записей в блоге: 1
22.04.2012, 19:40 8
Pascal
1
2
3
4
5
6
7
8
9
function Reverse(a: string): string;
  var b:string;
      i:integer;
begin
   b:='';
   for i:=Length(a) downto 1
     b:=b+a[i];
     Reverse:= b;{когда пишешь функцию обязательно результат должен быть присвоен имени функции}
end;
0
Заблокирован
22.04.2012, 20:05 9
А Result - не катит, да?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.04.2012, 20:05

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

Даны два целых числа. Вывести решение примера деления в столбик первого числа на второе
1) по заданному n&gt;0 сгенерировать квадратную матрицу- магический квадрат 2)Даны два целых числа....

Дано два двухзначных числа. Определить, можно ли с цифр первого числа получить второе число
Дано два двухзначных числа. Определить, можно ли с цифр первого числа получить второе число....

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

Проверить является ли число перевертышем
Нужно решить задачи в QBASIC 1. Дано четырехзначное число. Проверить является ли данное число...

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

Даны два натуральных числа. Определить число c максимальной суммой цифр
Даны натуральные m и n. Определить число c максимальной суммой цифр. #include &lt;stdio.h&gt; int...


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

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

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