Описать функцию IsPowerN, с её помощью найти количество степеней числа N в наборе чисел

[Asperatys]

Описать функцию IsPowerN(K, N) логического типа, возвращающую True, если целый
параметр K (> 0) является степенью числа N (> 1), и False в противном случае. Дано
число N (> 1) и набор из 10 целых положительных чисел. С помощью функции IsPowerN
найти количество степеней числа N в данном наборе.
Pascal

[macomics]

program PowerN;

uses SysUtils;

function IsPowerN(K: Cardinal; N: Cardinal): Boolean;
var
   T: Extended;
begin
   T := ln(K) / ln(N);
   Result := (T - Round(T)) = 0;
end;

VAR
  N: Cardinal;
  K: Cardinal;
  P: Integer;

BEGIN
  P := 0;
  Write('Input N = ');
  ReadLn(N);
  if N > 1 then begin
     Write('Input K = ');
     repeat
        ReadLn(K);
        if (K <> 0) and (IsPowerN(K, N))
           then inc(P);
     until K = 0;
     WriteLn('Count = ', P);
  end else WriteLn('Invalid N!');
END.

Как-то так. Ввод K заканчивается при вводе 0.

[Пётр Седов]

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

function IsPowerN(K: Cardinal; N: Cardinal): Boolean;
var
   T: Extended;
begin
   T := ln(K) / ln(N);
   Result := (T - Round(T)) = 0;
end;

Это не всегда работает правильно. Например код:

program test;

function IsPowerN(K: Cardinal; N: Cardinal): Boolean;
var
   T: Extended;
begin
   T := ln(K) / ln(N);
   Result := (T - Round(T)) = 0;
end;

begin
  WriteLn(IsPowerN(128, 2));
end.

Вывод на консоль (Free Pascal 3.2.2, win32, debug mode):

FALSE

[macomics]

Тогда так

function IsPowerN(K: Cardinal; N: Cardinal): Boolean;
var
   T: Double;
begin
   T := ln(K) / ln(N);
   Result := (T - Round(T)) = 0;
end;

https://godbolt.org/z/EaaaEYTKq

[Пётр Седов]

macomics, а я бы здесь не стал связываться с floating-point-арифметикой, а написал бы обычный цикл:

function IsPowerN(k, n: cardinal): boolean;
var
  p: cardinal;
begin
  p := 1; { n в степени 0 }
  while true do begin
    if p >= k then begin
      result := p = k;
      exit;
    end;
    if p > high(cardinal) div n then begin { если p * n вызовет переполнение (то есть не влезет в тип cardinal) }
      result := false;
      exit;
    end;
    p := p * n;
  end;
end;

[macomics]

Тогда не стоит в цикле выполнять деление для вычисление константы

function IsPowerN(k, n: cardinal): boolean;
var
  p, x: cardinal;
begin
  p := 1; x := high(cardinal) div n + 1
  if k < x then while (p < k) and (p < x) do p := p * n;
  result := p = k;
end;