Перевод чисел из одной системы счисления в другую используя алгоритм Евклида.

23.06.2010, 22:04. **Показов** 4418. **Ответов** 10

Author24 — интернет-сервис помощи студентам

здравствуйте! можете помоч с кодом? Перевод чисел из одной системы счисления в другую используя алгоритм Евклида.

@Puporev · 24.06.2010, 07:09

Сообщение от slaviaaan

используя алгоритм Евклида.

А что это за алгоритм применительно к СС?

24.06.2010, 18:27

алгоритм Евклида - наибольший общий делитель(НОД) тоесть нада найти наибольший общий делитель каких то чисел и полученый результат будет являтся основанием системы счисления. После чего нада числа введеные с клавиатуры перевести в полученную систему счисления.

@Хохол · 24.06.2010, 18:28

Сообщение от slaviaaan

используя алгоритм Евклида.

Черт, я заинтригован!

@Vas-e-na · 25.06.2010, 01:50

Хохол, +1

Добавлено через 1 минуту
slaviaaan, реализовать алгорит Эвклида не сложно, но что конкретно вам надо???

@Zabiyak · 25.06.2010, 10:40

Как я понял, с помощью Эвклида определяется основание СС, а потом уже нужно осуществить перевод из 10-ной СС в базис с новым основанием.
Сам алгоритм реализуется так:

Delphi

function nod( a, b: longint): longint; 
    begin
       while (a <> 0) and (b <> 0) do begin
           if a >= b then a:= a mod b 
             else b:= b mod a;
    end;
    nod:= a + b;
  end;

А вот перевод в СС с произвольным основанием я уже честно говоря не помню

@Хохол · 25.06.2010, 10:44

Pascal

function gcd(x,y:integer) : integer;
begin
if y = 0 then
  result := x
else
  result := gcd(y,x mod y);
end;

@Unrealler · 25.06.2010, 10:44

r-основание

Pascal

function FromDec(i,r:integer):string;
var
   s:string;
const
     digit:string[16]='0123456789ABCDEF';
begin
 s:='';
 repeat
  s:=digit[(i mod r)+1]+s;
  i:=i div r;
 until i=0;
 FromDec:=s;
end;

@Zabiyak · 25.06.2010, 10:51

Сообщение от Unrealler

r-основание

Вы переводите из 10 в 16 и при чём тут заданное

Сообщение от slaviaaan

нада найти наибольший общий делитель каких то чисел и полученый результат будет являтся основанием системы счисления

?

@Unrealler · 25.06.2010, 10:54

Сообщение от Zabiyak

Вы переводите из 10 в 16 и при чём тут заданное

Это перевод из десятичной в [2..16] системы

@Хохол · 25.06.2010, 11:06

Он переводит из 10 в любое основание от 2 до 16.

slaviaaan
		1
	Перевод чисел из одной системы счисления в другую используя алгоритм Евклида. 23.06.2010, 22:04. Показов 4418. Ответов 10 Метки нет (Все метки) здравствуйте! можете помоч с кодом? Перевод чисел из одной системы счисления в другую используя алгоритм Евклида.

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	24.06.2010, 07:09	2
	Сообщение от slaviaaan используя алгоритм Евклида. А что это за алгоритм применительно к СС? 0

slaviaaan
	24.06.2010, 18:27	3
	алгоритм Евклида - наибольший общий делитель(НОД) тоесть нада найти наибольший общий делитель каких то чисел и полученый результат будет являтся основанием системы счисления. После чего нада числа введеные с клавиатуры перевести в полученную систему счисления.

@Хохол 476 / 444 / 34 Регистрация: 20.11.2009 Сообщений: 1,293
	24.06.2010, 18:28	4
	Сообщение от slaviaaan используя алгоритм Евклида. Черт, я заинтригован! 0

@Vas-e-na 420 / 417 / 79 Регистрация: 21.06.2010 Сообщений: 1,362
	25.06.2010, 01:50	5
	Хохол, +1 Добавлено через 1 минуту slaviaaan, реализовать алгорит Эвклида не сложно, но что конкретно вам надо??? 0

@Zabiyak КотЪ 219 / 219 / 60 Регистрация: 26.05.2009 Сообщений: 688
	25.06.2010, 10:51	9
	Сообщение от Unrealler r-основание Вы переводите из 10 в 16 и при чём тут заданное Сообщение от slaviaaan нада найти наибольший общий делитель каких то чисел и полученый результат будет являтся основанием системы счисления ? 0

@Unrealler 654 / 352 / 113 Регистрация: 11.12.2009 Сообщений: 508
	25.06.2010, 10:54	10
	Сообщение от Zabiyak Вы переводите из 10 в 16 и при чём тут заданное Это перевод из десятичной в [2..16] системы 0

@Хохол 476 / 444 / 34 Регистрация: 20.11.2009 Сообщений: 1,293
	25.06.2010, 11:06	11
	Он переводит из 10 в любое основание от 2 до 16. 0