Задача № 4. Получить реверсную запись трехзначного числа - Программирование на языке Pascal - Программирование компьютерных систем - Каталог файлов - Добро пожаловать
fon
Выкл. снег
Главная » Файлы » Программирование компьютерных систем » Программирование на языке Pascal

Задача № 4. Получить реверсную запись трехзначного числа

Категория:
Программирование на языке Pascal
Комментариев:
0
Загрузок:
0
Автор:
sesin
Задача № 4. Получить реверсную запись трехзначного числа

МЗадача № 4. Получить реверсную запись трехзначного числа

Полное решение задачи 

Определимся с выбором переменных и их количеством. Ясно, что одна переменная нужна для записи введенного числа с клавиатуры, мы обозначим ее как n. Так как нам нужно переставить разряды числа n в некотором порядке, следует для каждого из них также предусмотреть отдельные переменные. Обозначим их как a (для разряда единиц), b (для разряда десятков) и c (для разряда сотен).

Теперь можно начать запись самого алгоритма. Будем разбирать его поэтапно:

1) Вводим число n;

2) Работаем с разрядами числа n. Как известно, последний разряд любого числа в десятичной системе счисления – это остаток от деления этого числа на 10. В терминах языка Pascal это означает, что для получения разряда единиц нам необходимо присвоить переменной a остаток от деления числа n на 10. Этому шагу соответствует следующий оператор:
a := n mod 10;
Получив разряд единиц, мы должны отбросить его, чтобы иметь возможность продолжить работу с разрядом десятков. Для этого разделим число n на 10. В терминах Pascal, опять же, это означает: присвоить переменной n результат от деления без остатка числа n на 10. Это мы сделаем с помощью оператора
n := n div 10;
3) Очевидно, что после выполнения п. 2 в переменной n будет храниться двухзначное число, состоящее из разряда сотен и разряда десятков исходного. Теперь, выполнив те же самые действия еще раз, мы получим разряд десятков исходного числа, но его уже нужно присваивать переменной b.

4) В результате в переменной n будет храниться однозначное число – разряд сотен исходного числа. Мы можем без дополнительных действий присвоить его переменной c.

5) Все полученные в переменных числа – однозначные. Теперь переменная n нам больше не нужна, и в ней нужно сформировать число-результат, в котором a будет находиться в разряде сотен, b – десятков, c – единиц. Легко понять, что для этого нам следует умножить a на 100, прибавить к полученному числу b, умноженное на 10 и c без изменения, и весь этот результат присвоить переменной c. Это можно записать так:
n := 100 * a + 10 * b + c;
6) Далее остается только вывести полученное число на экран.

program ReverseNum;
var
n, a, b, c: word;
begin
readln(n);
 a := n mod 10;
n := n div 10;
b := n mod 10;
n := n div 10;
c := n;

 

 

 

 

 

 

 

 

 

 

 

 


n := 100 * a + 10 * b + c;
writeln(n)
end.
 
 

 

 

 

Добавил: sesin , скачали: 2

Сиды: 283
Пиры: 50
Общий размер: 0.2Kb
Общие сведения: 07.08.2016,21:11,Просмотров:67,Категория-Программирование на языке Pascal
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Популярные игры
Скачать игру Земля мертвых
Скачать игру Земля мертвых Загрузок: 30 Просмотров: 248 Добавил: sesin Дата: 17.08.2016
Скачать всё для юкоза бесплатно
Скачать игру TimeShift через торрент для пк
Скачать игру TimeShift через торрент для пк Загрузок: 28 Просмотров: 191 Добавил: sesin Дата: 17.08.2016
Скачать всё для юкоза бесплатно
Gladiator 2016 через торрент
Gladiator 2016 через торрент Загрузок: 13 Просмотров: 272 Добавил: sesin Дата: 02.06.2016
Скачать всё для юкоза бесплатно
Скачать Devil May Cry 3 через торрент
Скачать Devil May Cry 3 через торрент Загрузок: 25 Просмотров: 191 Добавил: sesin Дата: 02.06.2016
Скачать всё для юкоза бесплатно
Скачать Batman: Arkham Knight (2015) скачать торрент
Скачать Batman: Arkham Knight (2015) скачать торрент Загрузок: 10 Просмотров: 181 Добавил: sesin Дата: 02.06.2016
Скачать всё для юкоза бесплатно
Мини-чат

500
text
Друзья сайта

Пользователи

0

Савич1999

Олег Савич

Пользователи

0

lipin2103

stib lipin2103

Пользователи

0

VitaAseeva

Виктория Асеева

Пользователи

0

xmen

артем гоша

Пользователи

0

alaska

Денис Ли

Для того что стать друзьями сайта необходимо авторизоваться  на сайте .

Вы получаете преимущества  .

1)Бесплатные отправки подарков пользователям .

2)Отправка личных смс пользователям .

3)Отключение рекламы на сайте .

Популярные фильмы

Грязь 2014 скачать через торрент Загрузок: 1 Просмотров: 16 Добавил: sesin Дата: 28.11.2016

2 спальни, 1 ванная (2014) смотреть онлайн Загрузок: 1 Просмотров: 9 Добавил: sesin Дата: 28.11.2016

Скачать фильм Абатуар. Лабиринт страха (2016) смотреть онлайн Загрузок: 1 Просмотров: 10 Добавил: sesin Дата: 28.11.2016

Скачать фильм Похитители прошлого 1999 год Загрузок: 4 Просмотров: 44 Добавил: sesin Дата: 07.10.2016

Скачать Детсадовский полицейский 2 через торрент Загрузок: 3 Просмотров: 60 Добавил: sesin Дата: 03.09.2016
Вход на сайт
,