Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Alena_0110
0 / 0 / 1
Регистрация: 20.05.2012
Сообщений: 12
#1

Определить число, полученное выписыванием цифр в обратном порядке - Delphi

21.10.2012, 18:28. Просмотров 934. Ответов 2
Метки нет (Все метки)

Определить число, полученное выписыванием в обратном порядке цифр заданного целого трехзначного числа.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.10.2012, 18:28
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить число, полученное выписыванием цифр в обратном порядке (Delphi):

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

Определить число полученное выписыванием в обратном порядке цифр заданного трёхзначного числа
unit Unit1; interface uses Windows, Messages, SysUtils, Variants,...

Определить число, полученное выписыванием в обратном порядке цифр заданного трехзначного числа
Помогите начинающему программисту :):wall: Определить число, полученное...

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

Если 4х-значное число записать в обратном порядке, то получится число, на k меньшее первоначального.
Люди,добрые,помогите!!!!не знаю к кому уже обратиться. срочно нужно решить...

Вывести число,полученное при перестановке цифр сотен и десятков исходного числа
помогите пожалуйста написать программу!!! Дано 3-х значное число.Вывести...

2
Mawrat
12821 / 5729 / 1700
Регистрация: 19.09.2009
Сообщений: 8,807
21.10.2012, 19:28 #2
Лучший ответ Сообщение было отмечено Alena_0110 как решение

Решение

Delphi
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
procedure TForm1.Button1Click(Sender: TObject);
const
  //Основание десятичной системы счисления.
  Base = 10;
var
  Num, NumRes, Sign : Integer;
begin
  //Исходное число.
  Num := StrToInt(Edit1.Text);
  //Знак числа.
  Sign := Num div Abs(Num);
  //Исходное число без знака.
  Num := Abs(Num);
  //Вычисляем число-перевёртыш.
  NumRes := 0;
  repeat
    //Учитываем очередной разряд.
    NumRes := NumRes * Base + Num mod Base;
    //Удаляем младший разряд из исходного числа.
    Num := Num div Base;
  until Num = 0;
  //Учитываем знак.
  NumRes := NumRes * Sign;
 
  //Показываем результат.
  ShowMessage('Число-перевёртыш: ' + IntToStr(NumRes));
end;
1
droider
Universal
Эксперт Pascal/Delphi
4384 / 2432 / 762
Регистрация: 04.10.2012
Сообщений: 8,847
21.10.2012, 20:37 #3
Можно еще так
Delphi
1
2
3
4
5
6
7
8
9
10
var
n, a, b, c:integer;
begin
n:=strtoint(edit1.Text); //задаем исходное число
a:=n div 100; //1-я цифра
b:=(n mod 100) div 10; //2-я цифра 
c:=(n mod 100) mod 10; //3-я цифра
ShowMessage('Обратное число: '+inttostr(c)+inttostr(b)+ inttostr(a));
end;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.10.2012, 20:37
Привет! Вот еще темы с решениями:

Найти число полученное при перестановки первой и второй цифр заданного числа.
Ввести 4-х значное число. найти число полученное при перестановки первой и...

Найти число, полученное при прочтении цифр трехзначного числа справа налево
Дано трехзначное число. найти число полученное при прочтении его цифр справа...

Дано натуральное число n, написать число в обратном порядке
Скажите пожалуйста, а как написать эту же программу только в среде Delphi.

Рекурсивная процедуры вывода цифр в обратном порядке
Нужно написать рекурсивную процедуру для вывода на экран цифр натурального...


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

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

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