![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
_JC_ |
![]()
Сообщение
#1
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 12 Пол: Мужской Реальное имя: Макс Репутация: ![]() ![]() ![]() |
Помогите решить задачу:
Информация: Натуральное число, записанное в шестнадцатиричной системе счисления в формате string. Задание: Вывести значение этого числа в восьмиричной системе счисления. Примечание: значение числа может не вмещаться в формат longint, но вмещается в string. |
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
Когда-то делал вот такое. Посмотри, может тебе подойдет?
function HexToBin(s: string): string; Вызывать как-то вот так: writeln( BinToOct(HexToBin('1234')) ); |
_JC_ |
![]()
Сообщение
#3
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 12 Пол: Мужской Реальное имя: Макс Репутация: ![]() ![]() ![]() |
Спасибо попробую, а можешь мне ещё одну помочь сделать. Вот такую:
Исходная информация: целое число А, записанное в системе счисления с основанием 4 в формате string. Задание: вывести значение числа А в двоичной системе счисления. Примечание: двоичное представление числа А может не вмещаться в формат string. |
volvo |
![]()
Сообщение
#4
|
Гость ![]() |
:no: Эта задача абсолютно аналогична предыдущей (за исключением того, что используется переход 4 -> 2, а не 16 -> 8), попробуй ее сделать сам.
То, что двоичное представление не помещается в строку - не страшно, просто нужно сразу распечатывать пары символов, а не сохранять их, как делал я в функции HexToBin ... |
_JC_ |
![]()
Сообщение
#5
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 12 Пол: Мужской Реальное имя: Макс Репутация: ![]() ![]() ![]() |
Т.е. что бы сделать вторую задачу мне надо изменить
1)значение массивов(array 0..4) 2)case upcase(ch) of '0'..'9': get_index := ord(ch) - ord('0'); 'A'..'F': get_index := $A + ord(upcase(ch)) - ord('A');-что то изменить тут=) 3)везде где 0..7(0 to 7 do)ставить 0..4 4)напиши что ещё поменять а то я плохо знаю паскаль и что бы разобраться в 1-ой задаче уйдёт не мало времени а что бы написать самому.......а время поджимает! |
_JC_ |
![]()
Сообщение
#6
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 12 Пол: Мужской Реальное имя: Макс Репутация: ![]() ![]() ![]() |
Ну что же ты ответь пожалуйста volvo! Please!
|
volvo |
![]()
Сообщение
#7
|
Гость ![]() |
Цитата(_JC_ @ 23.09.2005 22:28) Ну что же ты ответь пожалуйста volvo! Please! Понимаешь, до тех пор, пока ты не будешь хотя бы пытаться сделать что-то САМ, толку не будет... От того, что кто-то решает ЗА ТЕБЯ, ты лучше разбираться не станешь.Неужели это было ТАК сложно? procedure QuarToBin(s: string); |
_JC_ |
![]()
Сообщение
#8
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 12 Пол: Мужской Реальное имя: Макс Репутация: ![]() ![]() ![]() |
=)Ты знаешь я воспользовался твоими ссылками с функциями и применил тот способ и у меня всё получилось! Спасибо! Удаляй эту тему если она не кому больше не нужна! Спасибо ещё раз!
|
NorthAngel |
![]()
Сообщение
#9
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 25 Пол: Женский Репутация: ![]() ![]() ![]() |
Смотрела в faq - не нашла, если что - пост сразу удалю.
В общем, нужно мне в написать подпрограммку перевода из разлиынх систем счисления, но только чтобы переводились НЕ целые числа, а десятичные дроби. Может, у кого-нибудь есть готовый код таких функций.. просто не охото "изобретать велосипед", хотя, в принципе, ничего сверхсложного там нет ![]() Спасибо, volvo! Сообщение отредактировано: NorthAngel - -------------------- ошибки легче всего делаются и труднее всего находятся в самых простых местах программы =))
|
volvo |
![]()
Сообщение
#10
|
Гость ![]() |
Когда-то нашел вот такую программку (переводит числа из 10 системы счисления в другую):
uses crt; |
![]() ![]() |
![]() |
Текстовая версия | 1.09.2024 10:01 |