Перевод из десятичной системы в 36` ричную

Wise Man · 13.02.09

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

Попытки кажется мои не очень удались, кто сможет помочь буду очень благодарен, язык желательно Delphi ну или Паскаль

Вот что у меня получилось:
Код:
program task02;   
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.  
добавлено через 49 минут
Тему можно закрывать уже разобрался

mrak · 17.02.09

ярчайший пример быдлокода...

Бабруйский Диверсант · 17.02.09

Wise Man, проще было воспользоваться побитовым сдвигом из одного регистра арифметического сдвига в другой.

Lexie · 02.03.09

например так:

unit uConvertLib;
interface
uses
SysUtils;

const
BASE_36 = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';

{**
* Преобразование десятичного целого числа в строку числа по основанию base.
* @param num - целое десятичное число
* @param base основание системы счисления
**}
function convertNum2Base(const num: longint; const base: word): string;

{**
* Преобразование строкового представление числа по основанию base в целое десятичное число.
* @param numStr - строковое представление числа по основанию base
* @param base основание системы счисления
**}
function convertBase2Num(const numStr: string; const base: word): longint;

implementation

function convertNum2Base(const num: longint; const base: word): string;
var
n, rest: longint;
tmpStr: string;
begin
n := num;
tmpStr := '';
repeat
rest := n mod base;
n := n div base;
tmpStr := BASE_36[rest + 1] + tmpStr;
until n = 0;
result := tmpStr;
end;

function convertBase2Num(const numStr: string; const base: word): longint;
var
i: integer;
ext: longint;
tmpStr: string;
k: byte;
begin
tmpStr := UpperCase(numStr);
result := 0;
ext := 1;
for i := length(tmpStr) downto 1 do
begin
k := pos(tmpStr, BASE_36) - 1;
result := result + k * ext;
ext := ext * base;
end;
end;

end.
Нажмите, чтобы раскрыть...

Caps · 11.03.09

mrak,
Читал сцылко, много думал. Не нашел фортрана, семейства пл и клиппера. Срочно ответьте это быдлоязыки или нет.

ps: сайт порадовал. читал статью про эрланг. позабавила цитата

Менять куски кода один на другой прямо в продакшне, что невозбранно создаёт возможности для Кровавого Патчинга. До этого подобный изврат применялся разве что в смоллтоке.
Нажмите, чтобы раскрыть...

Аффтар велкий знаток...
А еще меня в вузе учили, что рекурсию надо иногда заменять итерацией, дабы не иметь определенного гемороя с переполнением стэка. У меня были преподы-идиоты?

Бабруйский Диверсант · 11.03.09

Caps сказал(а):

дабы не иметь определенного гемороя с переполнением стэка. У меня были преподы-идиоты?
Нажмите, чтобы раскрыть...

У преподов был маленький стек

Вообще, я бы, еси бы учил людей программить, начинал бы с арифметики: целые числа со знаком, целые числа без знака, биты признаков, сложение, вычитание, изменение знака числа и т.д.

Caps · 12.03.09

Бабруйский Диверсант сказал(а):

У преподов был маленький стек
Нажмите, чтобы раскрыть...

SS:SP - он такой один! (с)

Бабруйский Диверсант сказал(а):

Вообще, я бы, еси бы учил людей программить, начинал бы с арифметики: целые числа со знаком, целые числа без знака, биты признаков, сложение, вычитание, изменение знака числа и т.д.
Нажмите, чтобы раскрыть...

Ну, в текущей жизни это пригодится разве что для пишущих на каком-нить embedded C. А начинать надо, на самом деле, с математики - алгоритмы поиска/сортировки/метопт ну вобщем то что надо знать. А уж как оно в памяти лежит - сейчас вобщем-то это уже не так важно. Учитывая что нынче дошло до того что int на самом деле не просто int, а System.Int32...

mrak · 12.03.09

Caps, это всё стёб, можешь ещё это почитать прикольна только несколько по другой теме.

Caps сказал(а):

А еще меня в вузе учили, что рекурсию надо иногда заменять итерацией, дабы не иметь определенного гемороя с переполнением стэка. У меня были преподы-идиоты?
Нажмите, чтобы раскрыть...

А это ты, вообще, о чём? К чему? И откуда мне знать кем там у тебя преподы были... тебе виднее.

Бабруйский Диверсант · 12.03.09

Caps сказал(а):

SS:SP
Нажмите, чтобы раскрыть...

эхх, помню, на 8080 особо циничная команда ассемблера была XTHL - обмен вершины стека с регистровой парой HL. Выполнялось это ажнег за 18 тактов процессора.
Программирование в асме для этих монстров очень напоминало перманентную головоломку, а адекватных компиляторов для них были считанные единицы.
Я чего её вспомнил: в некоторых случая такие команды + прогон стека служили избавлением от наползания стека на память.

Caps сказал(а):

Ну, в текущей жизни это пригодится разве что для пишущих на каком-нить embedded C.
Нажмите, чтобы раскрыть...

ну если компайлер будет эффективно упрощать сложные конструкции, написанные не соображающими в арифметике программерами, в простые, то можт и да, знать это станет не нужно.
Но, я считаю, каждый уважающий себя программер просто обязан знать основы.

Caps сказал(а):

А начинать надо, на самом деле, с математики - алгоритмы поиска/сортировки/метопт ну вобщем то что надо знать.
Нажмите, чтобы раскрыть...

а это уже следует изучать во вторую очередь.

Caps · 12.03.09

mrak сказал(а):

А это ты, вообще, о чём? К чему? И откуда мне знать кем там у тебя преподы были...
Нажмите, чтобы раскрыть...

Это к статье - Кнут и Вирт видимо зазря трудились. И при желаннии - рекурсию можно считать мемом башорга. На качество кода не сильно это влияет. Ну и так далее. Кто бы рассуждал об индийском коде... А куски кода в продакшене менять - это можно было еще в засратом клиппере. А засовывать в былокодерские языки фокспро и кобол - ну идиот автор.

добавлено через 6 минут

Бабруйский Диверсант сказал(а):

а это уже следует изучать во вторую очередь.
Нажмите, чтобы раскрыть...

Мы таки готовим программистов или кодеров?

Бабруйский Диверсант сказал(а):

на 8080 особо циничная команда ассемблера была XTHL - обмен вершины стека с регистровой парой HL.
Нажмите, чтобы раскрыть...

КР580ВМ80А :vcrazy:

Бабруйский Диверсант · 12.03.09

Caps сказал(а):

Мы таки готовим программистов или кодеров?
Нажмите, чтобы раскрыть...

Архитектор просто обязан знать строймех и стройматериалы.

Caps сказал(а):

КР580ВМ80А
Нажмите, чтобы раскрыть...

//Асм и даже некоторые коды команд для этого проца помню досе.

Caps · 12.03.09

Бабруйский Диверсант сказал(а):

Архитектор просто обязан знать строймех и стройматериалы.
Нажмите, чтобы раскрыть...

Нет. не обязан. Он может и не знать разницу между М500 и М200 - что конкретно закладывать решает ГИП/Конструктор. Хуже того - конструктор вынужен решать проблему - как сделать так, что бы то что нарисовал архитектор не развалилось
Хотя конечно общее представление должно быть.
ps: кстати, 1 апреля исполняется 35 лет со дня официальной презентации i8080.

Вход / Регистрация

Перевод из десятичной системы в 36` ричную

Wise Man Новичок

mrak Активный участник

Бабруйский Диверсант Pahaa poika

Lexie Участник

Caps Активный участник

Бабруйский Диверсант Pahaa poika

Caps Активный участник

mrak Активный участник

Бабруйский Диверсант Pahaa poika

Caps Активный участник

Бабруйский Диверсант Pahaa poika

Caps Активный участник

Вход / Регистрация

Волгоградский форум

Пользователи

Перевод из десятичной системы в 36` ричную

Wise Man Новичок

mrak Активный участник

Бабруйский Диверсант Pahaa poika

Lexie Участник

Caps Активный участник

Бабруйский Диверсант Pahaa poika

Caps Активный участник

mrak Активный участник

Бабруйский Диверсант Pahaa poika

Caps Активный участник

Бабруйский Диверсант Pahaa poika

Caps Активный участник