|
Pascal - Вопросы и ответы, обсуждения - Ваши вопросы по Pascal/Delphi только в данном разделе |
05.10.2014, 18:20
|
#1
|
|
|
|
Разведчик
|
Регистрация: 17.12.2010
Сообщений: 40
Популярность: 367
Сказал(а) спасибо: 125
Поблагодарили 34 раз(а) в 19 сообщениях
|
Pascal
Доброе время суток! Нужна помощь, надо написать программу на паскаль абс:
В стране *** используется тридцативдуричная система счисления.
Необходимо написать программу для почтовой и таможенной службы, которая пересчитывает вес М поступающих посылок и грузов из России в вес N системы измерения этой страны. Считать исходный вес целочисленным, максимальное значение М<=30000.
Формат входных данных. В первой и единственной строке входного файла input.txt находится значение веса М (целое число).
Формат выходных данных. В первой и единственной строке выходного файла output.txt должно находиться искомое целое число N - вес в единицах этой страны.
Заранее спасибо!
________________
врфжор?
|
|
|
05.10.2014, 19:49
|
#2
|
|
|
|
Сержант
|
Регистрация: 18.07.2013
Сообщений: 148
Популярность: 83981
Сказал(а) спасибо: 564
Поблагодарили 258 раз(а) в 195 сообщениях
|
Re: Pascal
Перевод из 10-тичной в 32-ричную систему счисления
Думаю алгоритмов полно в интернете, вкратце:
Пусть переменная X = М
1) X делишь на 32, получаешь остаток и неполное частное
2) Остаток сохранить, а X нужно сделать равным неполному частному
3) Повторять шаг один, пока X>=32
4) Все остатки записать в обратном порядке - искомое число
|
|
|
Пользователь сказал cпасибо:
|
|
05.10.2014, 21:04
|
#3
|
|
|
|
Разведчик
|
Регистрация: 17.12.2010
Сообщений: 40
Популярность: 367
Сказал(а) спасибо: 125
Поблагодарили 34 раз(а) в 19 сообщениях
|
Re: Pascal
как быть с буквами, ведь 32сс это: 0123456789ABCDEFGHIJKLMNOPQRSTUV ?
________________
врфжор?
|
|
|
05.10.2014, 21:07
|
#4
|
|
|
|
Сержант
|
Регистрация: 18.07.2013
Сообщений: 148
Популярность: 83981
Сказал(а) спасибо: 564
Поблагодарили 258 раз(а) в 195 сообщениях
|
Re: Pascal
|
|
|
Пользователь сказал cпасибо:
|
|
05.10.2014, 21:09
|
#5
|
|
|
|
Разведчик
|
Регистрация: 17.12.2010
Сообщений: 40
Популярность: 367
Сказал(а) спасибо: 125
Поблагодарили 34 раз(а) в 19 сообщениях
|
Re: Pascal
да, я понял, но как сделать так, чтобы к полученному числу (например 10) присваивалась бука А?
________________
врфжор?
|
|
|
05.10.2014, 21:19
|
#6
|
|
|
|
Сержант
|
Регистрация: 18.07.2013
Сообщений: 148
Популярность: 83981
Сказал(а) спасибо: 564
Поблагодарили 258 раз(а) в 195 сообщениях
|
Re: Pascal
Вывод можно сделать строкой. Тогда, если текущий разряд X меньше 10, то печатаем в файл chr(ord('0')+X), иначе chr(ord('A')+X-10)
|
|
|
2 пользователя(ей) сказали cпасибо:
|
|
05.10.2014, 21:36
|
#7
|
|
|
|
Разведчик
|
Регистрация: 17.12.2010
Сообщений: 40
Популярность: 367
Сказал(а) спасибо: 125
Поблагодарили 34 раз(а) в 19 сообщениях
|
Re: Pascal
Спасибо большое!!
________________
врфжор?
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Похожие темы
|
Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
[Помогите!] Pascal
|
RamilkO |
Общение и обсуждение |
10 |
27.12.2011 21:24 |
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 18:52.
|
|