IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> рекурсивный перевод чисел, перевод из 10 в любую с.с.
ЛЬЯНА
сообщение 20.12.2004 22:31
Сообщение #1





Группа: Пользователи
Сообщений: 5
Пол: Женский

Репутация: -  0  +


Люди,помогите,пожалуйста!Я уже голову сломала,но никак не могу составить рекурсивный перевод целых чисел из 10 с.с. в любую другую и правильных дробей.Обязательно должна быть рекурсия.А завтра уже нужно сдать.Подскажите!!!!!!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 20.12.2004 22:51
Сообщение #2


Гость






ЛЬЯНА
Вот рекурсивная функция перевода чисел из 10-ной с/с в другую... Хотя я по-прежнему не понимаю, зачем здесь рекурсия... blink.gif
Код

function fromdec(n, radix: longint):string;
const
 digit: string[16]='0123456789ABCDEF';
begin
 if n = 0 then fromdec := ''
 else
   fromdec := fromdec(n div radix, radix) + digit[(n mod radix)+1]
end;

begin
 writeln(fromdec(256, 8)); {256(10) переводим в 8-ю с/с }
end.


Сообщение отредактировано: volvo - 21.12.2004 0:03
 К началу страницы 
+ Ответить 
ЛЬЯНА
сообщение 21.12.2004 0:21
Сообщение #3





Группа: Пользователи
Сообщений: 5
Пол: Женский

Репутация: -  0  +


спасибочки,я сама не понимаю зачем здесь рекурсия,но препод требуетsmile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 30.07.2025 22:10
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"