– Готов к стыковке. – раздался в интеркоме голос пилота. – Эх, барвы, вам хорошо, а я на вахте…
– Душ, еда, спать. – расставил приоритеты Дарман. Атин кивнул:
– Душ из еды и спать.
– Спать. – подключился Найнер. – Потом еще спать.
Отряд ЭРК "Омега", возвращаясь с задания
Карен Тревисс, "Приказ 66"





Сколько глобус ни крути, там Fess-Style не найти...
Сайт Fess'a » Перевернуть трёхзначное число - Форум
[ Новые сообщения · Участники · Правила форума · Поиск ]
  • Страница 1 из 1
  • 1
Форум » Программирование » Паскаль » Перевернуть трёхзначное число ("Отзеркалить" число)
Перевернуть трёхзначное число
FessДата: Понедельник, 08.04.2013, 14:53 | Сообщение # 1

Добрый админ
Сообщений: 2338
Статус:
Простая, но интересная программа, которая будет переворачивать числа, например 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

Добрый админ
Сообщений: 2338
Статус:
Цитата (DarthVader)
Хм... А если Number сделать строкой, а не числом, то всю программу можно записать так:

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

Уважаемый DarthVader, классная идея! Я когда писал этот скрипт ещё не изучал работу со строками) И твой метод более универсален и подойдет для числа любой длины, а не только трёхзначного)
 
Форум » Программирование » Паскаль » Перевернуть трёхзначное число ("Отзеркалить" число)
  • Страница 1 из 1
  • 1
Поиск: