Решаем задачи Абрамян на Паскале. Proc 27

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

Решение:

program Proc27;

Function IsPowerN(K,N:Integer):Boolean;
begin
  While (K>=N) do
   begin
    if ((k mod N)<>0) and (k<>1) then
    begin
      K:=0;
      IsPowerN:=False;
    end;
    K:=K div N;
   end;
  if K=1 then IsPowerN:=True
  else IsPowerN:=False;
end;
 
var
  i,N,K,Res:Integer;
 
begin
  Write('N :');
  Readln(N);
 
 for i:=1 to 10 do
  begin
   Write('K :');
   Readln(K);
   if IsPowerN(K,N) then Inc(Res);
  end;
   Writeln(Res);
end.

program Proc27;

Function IsPowerN(K,N:Integer):Boolean;

begin

While (K>=N) do

begin

if ((k mod N)<>0) and (k<>1) then

begin

K:=0;

IsPowerN:=False;

end;

K:=K div N;

end;

if K=1 then IsPowerN:=True

else IsPowerN:=False;

end;

var

i,N,K,Res:Integer;

begin

Write('N :');

Readln(N);

for i:=1 to 10 do

begin

Write('K :');

Readln(K);

if IsPowerN(K,N) then Inc(Res);

end;

Writeln(Res);

end.

Решение от olegst1975:

function IsPowerN(k,n:integer):boolean;
var
  PowerN:integer;
  begin
  PowerN:=1;//нулевая степень числа N
  result:=false;
   while PowerN<=k do//перебор и сравнение степеней N не выше числа K
     begin
      if PowerN=k then result:=true;
      PowerN:=PowerN*n;//очередная степень числа N
     end;   
  end;

var
 i,k,n,n1:integer;  
begin  
  n1:=0;
  read(n);
  for i:=1 to 10 do
    begin
     read(k);
     if IsPowerN(k,n) then inc(n1);
    end;
  write(n1);
end.

function IsPowerN(k,n:integer):boolean;

var

PowerN:integer;

begin

PowerN:=1;//нулевая степень числа N

result:=false;

while PowerN<=k do//перебор и сравнение степеней N не выше числа K

begin

if PowerN=k then result:=true;

PowerN:=PowerN*n;//очередная степень числа N

end;

var

i,k,n,n1:integer;

begin

n1:=0;

read(n);

for i:=1 to 10 do

begin

read(k);

if IsPowerN(k,n) then inc(n1);

end;

write(n1);

end.

Другие задачи из раздела Proc можно посмотреть здесь.

Комментарии 11

Точно не реагирует на 1(нулевую степень любого числа), скорее недостатки как и в предыдущей задаче(использован тот же метод).

[crayon-67ecd839c50c1761760868 inline="true" ]


function IsPowerN(k,n:integer):boolean;
var
  PowerN:integer;
  begin
  PowerN:=1;//нулевая степень числа N
   while PowerN<=k do//перебор и сравнение степеней N не выше числа K
     begin
      result:=(PowerN=k);
      PowerN:=PowerN*n;//очередная степень числа N
     end;   
  end;

var
 i,k,n,n1:integer;  
begin  
  n1:=0;
  read(n);
  for i:=1 to 10 do
    begin
     read(k);
     if IsPowerN(k,n) then inc(n1);
    end;
  write(n1);
end.

[crayon-67ecd839c50c1761760868 inline="true" ]

function IsPowerN(k,n:integer):boolean;

var

PowerN:integer;

begin

PowerN:=1;//нулевая степень числа N

while PowerN<=k do//перебор и сравнение степеней N не выше числа K

begin

result:=(PowerN=k);

PowerN:=PowerN*n;//очередная степень числа N

end;

var

i,k,n,n1:integer;

begin

n1:=0;

read(n);

for i:=1 to 10 do

begin

read(k);

if IsPowerN(k,n) then inc(n1);

end;

write(n1);

end.

[/crayon]

Ответить

olegst1975

11.01.2016 в 03:20

строку 9 удалить, строку 12 заменить на
result:=(PowerN=k);

Ответить
- Anton
  
  11.01.2016 в 09:39
  
  Поправил. Добавил в шапку.
  
  Ответить

В задании сказано, что K (>0) и N(>1) то есть прямо сказано, что нулевую степень числа не рассматриваем.

Ответить

Всё равно не выдержал, и поправил:
Поправил
Было:

Function IsPowerN(K,N:Integer):Boolean;
begin
  if K>N-1 then IsPowerN:=True
  else IsPowerN:=False;

  While (K>N) do
   begin
    if ((k mod N)<>0) and (k<>1) then
    begin
      K:=0;
      IsPowerN:=False;
    end;
    K:=K div N;
   end;
end;

Function IsPowerN(K,N:Integer):Boolean;

begin

if K>N-1 then IsPowerN:=True

else IsPowerN:=False;

While (K>N) do

begin

if ((k mod N)<>0) and (k<>1) then

begin

K:=0;

IsPowerN:=False;

end;

K:=K div N;

end;

Стало:

Function IsPowerN(K,N:Integer):Boolean;
begin
  While (K>=N) do
   begin
    if ((k mod N)<>0) and (k<>1) then
    begin
      K:=0;
      IsPowerN:=False;
    end;
    K:=K div N;
   end;
  if K=1 then IsPowerN:=True
  else IsPowerN:=False;
end;

Function IsPowerN(K,N:Integer):Boolean;

begin

While (K>=N) do

begin

if ((k mod N)<>0) and (k<>1) then

begin

K:=0;

IsPowerN:=False;

end;

K:=K div N;

end;

if K=1 then IsPowerN:=True

else IsPowerN:=False;

end;

Ответить

olegst1975

11.01.2016 в 12:38

K=1 и есть N в степени ноль

Ответить
- Anton
  
  11.01.2016 в 12:40
  
  а да … попутал N и К
  
  Ответить

var 
   N,X,K,t,i:Integer;

Function IsPowerN(X:integer):boolean;
begin
   writeln('Ввод K');
   read(K);
   N:=X;
   while K>X do X:=X*N;
   if K=X then IsPowerN:=True
   else IsPowerN:=False;
end;

begin
   writeln('Ввод N');
   read(N);
   for i:=1 to 4 do
     begin
       if IsPowerN(N) then Inc(t);
     end;
   writeln(t);
end.

var

N,X,K,t,i:Integer;

Function IsPowerN(X:integer):boolean;

begin

writeln('Ввод K');

read(K);

N:=X;

while K>X do X:=X*N;

if K=X then IsPowerN:=True

else IsPowerN:=False;

end;

begin

writeln('Ввод N');

read(N);

for i:=1 to 4 do

begin

if IsPowerN(N) then Inc(t);

end;

writeln(t);

end.

Ответить

Игорь

15.01.2017 в 10:43

..только i:=1 to 10, а не до 4

Ответить
Anton

16.01.2017 в 07:49

Считает правильно, но в задание просят созадать функцию IsPowerN(K, N) , а у вас IsPowerN(N), что не может не печалить. 🙁

Ответить

Для любых целых чисел K и N:

function isPowerN(k,n:integer):boolean;
begin
  case n of
    0:result:=(k=0);
    1:result:=(k=1);
    -1:result:=((k=1)or(k=-1));
    else
    begin
      while (k mod n = 0) and (k<>0) do
        k:= k div n;
      result:=(k=1);
    end;
  end;
end;

begin
  var count:=0;
  var n:=ReadlnInteger('введите любое целое число: n =');
  var a:=ReadArrInteger('введите набор из 10-и любых целых чисел:',10);
  print('степеней числа ',n,' в наборе:',a.Where(t->isPowerN(t,n)).Count);
  readln;readln;
end.

function isPowerN(k,n:integer):boolean;

begin

case n of

0:result:=(k=0);

1:result:=(k=1);

-1:result:=((k=1)or(k=-1));

else

begin

while (k mod n = 0) and (k<>0) do

k:= k div n;

result:=(k=1);

end;

begin

var count:=0;

var n:=ReadlnInteger('введите любое целое число: n =');

var a:=ReadArrInteger('введите набор из 10-и любых целых чисел:',10);

print('степеней числа ',n,' в наборе:',a.Where(t->isPowerN(t,n)).Count);

readln;readln;

end.

Ответить

Решаем задачи Абрамян на Паскале. Proc 27

Комментарии:

Комментарии 11

Добавить комментарий Отменить ответ