[nickname]

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

[lmikle]

Ну и что сложного?
Тебе нужно:
1. Функция перевода десятичного числа в эту самую систему исчисления.
2. Два цикла (вложенные), от 1 до N, которые тебе дадут исходные числа и из произведение/сумму. Для вывода на экран тебе потребуется функция из п.1.

Собственно, примерно так:

Код:

function NToStr(N : Integer) : String;
begin
  // Здесь код перевода, по типу IntToHext.
end;

// Таблица сумм. 
// Таблица умножения делается так же, только операция меняется 
// (+ на * в теле внутреннего цикла)
procedure PrintTablesSum(N : Integer);
var
   I, J : Integer;
begin
  For I := 1 To N Do
    Begin
      WriteLn(NToStr(I)+':');
      For J := 1 To N Do
         WriteLn(NToStr(I),' + ',NToStr(J),' = ',NToStr(I+J));
      WriteLn;
    End;
end;

Да, код для консоли написан
Для вывода в Memo, например, надо заменить WriteLn на соотв. Add у Memo.

[nickname]

кто бы эту функцию подсказал

[Bars1992]

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

[nickname]

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

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

на словах то все просто а я с делфи едва знаком, без справочников там ниче непонимаю, в нете исходники по этой теме искал, ненашёл такого.

я думал может вы знаете

[PhoeniX]

Мы-то знаем... Вот только не всегда говорим.
"Не давай нищему рыбу, дай ему удочку".
http://www.cyberforum.ru/delphi-begi...read51338.html
http://www.cyberforum.ru/delphi-begi...read74174.html
А вообще, вот.

[Bars1992]

Вот тебе удочка с уже насаженим червем.
http://ifolder.ru/17818508
Начало я тебе дал а остальные функциональные возможности думаю сам доделаешь

[nickname]

Всем всем огромное спасибо, есть на свете люди добрые.
насчёт этого http://www.cyberforum.ru/delphi-begi...tml#post409824 сейчас мозгую т.к нелегко осилить 103 строки с коментами) главное понять, экз скоро, горю вобщем, при этом едва едва изучив делфи