Степень числа

[Серафимий Долговяз]

С экрана вводятся два числа: N и A;N в диапозоне от 2 до maxint и A в диапозоне от 2 до N-1.Написать процедуру, которая будет определять является ли N степенью числа A.
Заранее спасибо

[Stilet]

Ну и в чем траблы? вручную как такое считается?

[NieL]

Вот держи:

uses Math;

{$R *.dfm}

procedure Tform_Test.btn_IsPowClick(Sender: TObject);

resourcestring
  const_msg_Err = 'Число "%d" не входит в допустимыый диапазон значений';
  const_msg_Yes = 'Число "%d" является степенью числа "%d"';
  const_msg_No  = 'Число "%d" не является степенью числа "%d"';

  function IsPow(A, N: Integer): Boolean;
  var
    Max, i, OldA: Integer;
  begin
    Result := False;
    Max := MaxInt;
    OldA := A;
    if not (N in [2..Max]) then
      raise Exception.CreateRes(@const_msg_Err);
    if not (A in [2..N - 1]) then
      raise Exception.CreateRes(@const_msg_Err);
    i := 1;
    while A <> N do begin
      A := Round(Power(OldA, i));
      Result := A = N;
      if A > N then
        Exit;
      Inc(I);
    end;
  end;

var
  A, N: Integer;
begin
  A := 2;
  N := 4;
  if IsPow(A, N) then
    ShowMessageFmt(const_msg_Yes, [N, A])
  else
    ShowMessageFmt(const_msg_No, [N, A]);
end;

[Курсант]

Проверки значений N и А писать лениво, и экранный ввод тоже.. Сам смогешь переделать? Работает - тестировал.

procedure TForm1.Button1Click(Sender: TObject);
var N, A : integer;
    Result : Boolean;
begin
   N := StrToInt (Edit1.Text);
   A := StrToInt (Edit2.Text);
   Result := true;
   repeat
      if N mod A <> 0 then Result := false;
      N := N div A;
   until (Result=false) or (A=1);
   If Result Then Button1.Caption := 'Является' else Button1.Caption := 'Не является';
end;