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

@Kati · Регистрация: 05.10.2009

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

Пожалуйста помогите с лабораторной!
Даны натуральные числа N, M (2<=M<=16). Вывести на экран запись числа N в системе счисления с основанием M (нельзя использовать строковые переменные, массивы и другие структуры). Пожалуйста..

@Kati · 07.10.2009, 09:33 **[ТС]**

Пожалуйста кто-нибудь, хотя бы в каком направлении двигаться?

@MadMag · 07.10.2009, 10:22

Вот, универсальный конвертор из 10-ной сс в в любую вплоть до 36-ричной сс от polivets'a.

Pascal

const
        hash_table : string = '0123456789abcdefghijklmnopqrstuvwxyz';
 
var
        c         : byte;
        chislo    : integer;
        osnovanie : byte;
        otvet     : string;
 
 
begin
        Write('Ishodnoe chislo v desyatichnoi sisteme schislenia: '); ReadLn(chislo);
        Write('Vvedite osnovanie sistemi ischiclenia: '); ReadLn(osnovanie);
 
        otvet := '';
 
        while chislo > osnovanie do
        begin
                otvet  := hash_table[(chislo mod osnovanie)+1] + otvet;
                chislo := chislo div osnovanie;
        end;
 
        if chislo=osnovanie then
           otvet  := hash_table[chislo] + otvet
        else
           otvet  := hash_table[chislo + 1] + otvet;
 
        WriteLn('Otvet = ', otvet,'.');
 
        Write('Press any key for continue...'); ReadLn;
end.

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

хотя бы в каком направлении двигаться?

А что гугл отключен на профилактику? Таких тем уже огромное множество.

Добавлено через 1 минуту
Надеюсь понятно как в данном примере избавиться от строки(это если очнь надо, хотя, по-моему не использовать строки означало в задании несколько другое).

@Puporev · 07.10.2009, 11:31

Вот, как-то так.

Pascal

uses crt;
type
natur=1..high(longint);
osn=2..16;
procedure dectobase(dec:natur;base:osn);
begin
if dec>base-1 then dectobase(dec div base,base){если число не ноль, продолжаем}
else write(#0);{иначе ничего не выводим}
write(dec mod base);{выводим последовательно остаток от деления на основание}
end;
var n:longint;
    m:2..16;
begin
clrscr;
repeat
write('Введите натуральное число n=');
readln(n);
until(n>0)and(n<=high(longint));
repeat
write('Введите основание от 2 до 16 m=');
readln(m);
until m in [2..16];
dectobase(n,m);
readln
end.

@Kati · 07.10.2009, 19:44 **[ТС]**

Огромное вам спасибо! Может и я вам чем-нибудь могу помочь, только не по информатике.

@Kati 0 / 0 / 0 Регистрация: 05.10.2009 Сообщений: 5
		1
	Системы счисления 06.10.2009, 19:26. Показов 661. Ответов 4 Метки нет (Все метки) Пожалуйста помогите с лабораторной! Даны натуральные числа N, M (2<=M<=16). Вывести на экран запись числа N в системе счисления с основанием M (нельзя использовать строковые переменные, массивы и другие структуры). Пожалуйста.. 0

@Kati 0 / 0 / 0 Регистрация: 05.10.2009 Сообщений: 5
	07.10.2009, 09:33 [ТС]	2
	Пожалуйста кто-нибудь, хотя бы в каком направлении двигаться? 0

@Kati 0 / 0 / 0 Регистрация: 05.10.2009 Сообщений: 5
	07.10.2009, 19:44 [ТС]	5
	Огромное вам спасибо! Может и я вам чем-нибудь могу помочь, только не по информатике. 0

Опции темы