рекурсия на дельфи

[Ainusha]

для заданного целого десятичного числа N получит его представление в р-ичной системе счисления(р<10).Нужно решить эту задачу двумя способами с применением рекурсии и без нее.

[Ainusha]

пожалуиста помогите

[Serge_Bliznykov]

так, в порядке развлечения..
вариант через рекурсию:

program Project4;
{$APPTYPE CONSOLE}
uses SysUtils;

function ConvertToBaseP(Base : byte; Number : Integer) : string;
begin
  if Number < Base then Result := IntToStr(Number)
  else begin
    Result := ConvertToBaseP(Base, Number div Base) + IntToStr(Number mod Base);
  end;
end;

var P : byte;
   N : Integer;
begin
  WriteLn('Programma perevoda chisel. Variant 1 (recursia).');
  repeat
    WriteLn('Vvedite osnovanie sistemy P (ot 2 do 9): ');
    Readln(p)
  until (p>1) and (p<10);

  repeat
    WriteLn('Vvedite celoe polojitelnoe chislo  dlya perevoda v sistemu s osnovaniem ',P,':');
    Readln(N)
  until (p>1) and (p<10);

  WriteLn(ConvertToBaseP(P, N));
  Readln

end.

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

[Ainusha]

спасибо вам огромное Сергей(Serge_Bliznykov),вы мне очень помогли