Delphi. Система счисления

[andriy1048]

Помогите пожалуйста написать программу, которая переводит положительное десятичное число в систему счисления с основанием р (р = 2,3 ... .16). Использовать обозначения:
10 = А
11 = В
12 = С
13 = D
14 = Е
15 = F
Входные данные:
1. Произвольное положительное десятичное число.
2. Основа системы счисления p.

Исходные данные.
1. Основа системы счисления.
2. Запись числа в десятичной системе счисления.
3. Запись числа в системе счисления с основанием р.
Примечание. При расчетах использовать точность перевода числа до 8 знаков после запятой (если это бесконечный периодический или непериодический дробь).
В отчете должны быть указаны тема и цель работы, перечисленные входные и выходные данные, приведенные инструкция пользователю, результаты контрольного расчета, блок-схема программы, кратко описаны алгоритм программы, назначение модулей, функций, процедур.

[WorldMaster]

с десятичной системы счисления в 2 и до 16.

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

[andriy1048]

Почему-то не работает в меня (((

[WorldMaster]

Что значит не работает? как используете?

[andriy1048]

В консоле, хотел запустить, но не запускается( Возможно нужно выставить задержку

[Вадим Мошев]

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

В консоле, хотел запустить, но не запускается( Возможно нужно выставить задержку

"Не запускается" - мало информации для диагностики. Лучше всего, если вы покажете код, который у вас "не запускается".

И о какой задержке вы говорите?

[Алексей_2012]

копипаста функции, а в консольку:

var s:string;
chislo:integer;
ss:byte;
begin
writeln('Input chislo...');
readln(chislo);
writeln('Input ocnovanie sistemi schisleniya....');
readln(ss);
s:=FromDec(chislo,ss);
writeln(s);
readln;
end.

Вроде так, не помню, нет под рукой среды программирования...

Ой, извиняюсь, не увидел что на делфи, говнокод...

procedure TForm1.Button1Click(Sender: TObject);
  var s_result:string;
  chislo:LongInt;
  ss:Byte;
begin

 chislo:=StrToInt(edit1.Text);
 ss:=StrToInt(Edit2.Text);
 s_result:=FromDec(chislo,ss);
 ShowMessage(s_result);

end;

[andriy1048]

Сообщение от Алексей_2012

копипаста функции, а в консольку:

var s:string;
chislo:integer;
ss:byte;
begin
writeln('Input chislo...');
readln(chislo);
writeln('Input ocnovanie sistemi schisleniya....');
readln(ss);
s:=FromDec(chislo,ss);
writeln(s);
readln;
end.

Вроде так, не помню, нет под рукой среды программирования...

Ой, извиняюсь, не увидел что на делфи, говнокод...

procedure TForm1.Button1Click(Sender: TObject);
  var s_result:string;
  chislo:LongInt;
  ss:Byte;
begin

 chislo:=StrToInt(edit1.Text);
 ss:=StrToInt(Edit2.Text);
 s_result:=FromDec(chislo,ss);
 ShowMessage(s_result);

end;

Что такое FromDec? из-за этого не запускается, выдает ошибки

[p51x]

Что такое FromDec?

Вы тему читаете? http://programmersforum.ru/showpost....10&postcount=2