» Главная
eXcode.ru » Статьи » Задачи » С решениями
» Новости
» Опросы
» Файлы
» Журнал



Пользователей: 0
Гостей: 16



Купить смета ру

Аналитика, цены, новости рынка. Куплю Москва

ergro.ru


Дерматовенеролог

дерматовенеролог

med-express.info




Системы счисления




Условие задачи:

Написать программу для перевода числа из десятичной в любую другую систему счисления (основание не больше 16).


Мое решение на Delphi


program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;
const z:array[0..15] of char = (′0′,′1′,′2′,′3′,′4′,′5′,′6′,′7′,′8′,′9′,′A′,′B′,′C′,′D′,′E′,′F′);

var x,a: integer;
s:string;

begin
readln(a);
readln(x);
s:=′′;
if a=0 then s:=′0′ else
if x<=16 then begin
while a>0 do begin
s:=z[(a mod x)]+s;
a := a div x;
end;
end;
write(s);
readln;
end.
К началу статьи





Добавил: LedWormДата публикации: 2005-06-02 16:59:31
Рейтинг статьи:3.50 [Голосов 4]Кол-во просмотров: 17062

Комментарии читателей

Всего комментариев: 7

2009-03-10 13:56:51
чсмпимм
пралограл

2007-12-20 00:19:31
Zяяяя
Спасибо=)

2007-10-26 18:56:38
Влад
переведите пожалуйста от 0 до 100 из десятичной системы счисления в сисемы счичления от двоичной до двадцатипятеричной

2007-10-17 09:25:23
Марина
Вы не знаете как решить задачу?Пример.Равенство 201р=53 в шестеричной системе счисления справедливо ли в системе счисления с основанием р:1)3. 2)10. 3)4. 4)6. 5)5

2007-06-03 22:52:19
Александр
Вот, что я придумал на С. Ограничимся тем что представление числа в 10-ой системе счисления влезает в unsigned.

void Convert(char*Num,int in_base,char*Res,int out_base){
unsigned r=0,rem;

for(;*Num;Num++)
r=r*in_base+(isalpha(*Num)?*Num-'A'+10:*Num-'0');

for(;r;r/=out_base){
rem=r%out_base;
*Res++=rem<10?rem+'0':rem-10+'A';
}
*Res=0;//только надо реверс у массива сделать..а то циферки в обратном порядке записаны
}

2007-05-18 12:14:04
алена
Не нравится

2006-04-06 18:40:15
m4Xgr
нужно обязательно обработать условие когда х=1,иначе получится зацикливание программы
Ваше имя: *
Текст записи: *
Имя:

Пароль:



Регистрация

Какой язык интерфейса Вы используете в своих программах?
Русский
55% (111)
Английский
26% (53)
Немецкий
0% (0)
Французский
1% (3)
Несколько языков
10% (21)
Никакой :)
0% (0)
Использую только картинки
0% (1)
Что такое интерфейс?
6% (13)

Проголосовало: 202
Встречаются двое соседей на лестничной площадке. Один возмущается:
- Из вашей квартиры вчера доносились такие крики, будто вы поросенка резали!
- Нет, это я антивирус Касперского запускал.
Рейтинг: 3.3/10 (3)
Посмотреть все анекдоты