Перевернуть трёхзначное число

Сайт Fess'a » Перевернуть трёхзначное число - Форум

[ Новые сообщения · Участники · Правила форума · Поиск ]

Страница 1 из 1
1

Форум » Программирование » Паскаль » Перевернуть трёхзначное число ("Отзеркалить" число)

Fess

Дата: Понедельник, 08.04.2013, 14:53 | Сообщение # 1

Добрый админ

Сообщений: 2339

Статус:

Простая, но интересная программа, которая будет переворачивать числа, например 123 -> 321.
Написана под трёхзначные, но легко можно переписать под четырёхзначные или любые другие.

Код

program num_revert;
Var Number, i, j, k: integer;
Label 1;
begin
Write( 'Введите 3-х значное число : ' );
1:ReadLn(Number);

if (Number < 100) OR (Number > 999) then
begin
writeln('Неверное число, попробуйте снова');
GoTo 1
end;

Number:=Abs(Number);

   Write( 'Цифры числа ' , Number , ' : ' );
   i := Number div 100;
   j := Number div 10 mod 10;
   k := Number div 1 mod 10;

   Write (k,j,i);

end.

Прикрепления: 8683645.png (1.6 Kb)

DarthVader

Дата: Понедельник, 03.06.2013, 04:37 | Сообщение # 2

Авы нет

Группа: Удаленные

Хм... А если Number сделать строкой, а не числом, то всю программу можно записать так:

Код

for i:=length(Number) downto 1 do write(Number[i]);[/i]

Это просто вывод строки с конца в начало.

Добавлено (03.06.2013, 04:37)
---------------------------------------------
на в конце кода не обращайте внимания, не знаю, как его убрать

Сообщение отредактировал DarthVader - Понедельник, 03.06.2013, 04:36

Fess

Дата: Понедельник, 03.06.2013, 21:42 | Сообщение # 3

Добрый админ

Сообщений: 2339

Статус:

Цитата (DarthVader)

Хм... А если Number сделать строкой, а не числом, то всю программу можно записать так:

Код

Код
for i:=length(Number) downto 1 do write(Number[i]);

Уважаемый DarthVader, классная идея! Я когда писал этот скрипт ещё не изучал работу со строками) И твой метод более универсален и подойдет для числа любой длины, а не только трёхзначного)

Форум » Программирование » Паскаль » Перевернуть трёхзначное число ("Отзеркалить" число)

Страница 1 из 1
1