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

Автор: Bronislav

Bronislav — Wed, 07 Mar 2018 11:36:26 +0000

Для любых целых чисел 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.

Автор: Anton

Anton — Mon, 16 Jan 2017 03:49:10 +0000

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

Автор: Игорь

Игорь — Sun, 15 Jan 2017 06:43:03 +0000

В ответ на Игорь. ..только i:=1 to 10, а не до 4

Автор: Игорь

Игорь — Sun, 15 Jan 2017 06:41:00 +0000

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.

Автор: Anton

Anton — Mon, 11 Jan 2016 08:40:24 +0000

В ответ на olegst1975. а да ... попутал N и К

Автор: olegst1975

olegst1975 — Mon, 11 Jan 2016 08:38:58 +0000

В ответ на Anton. K=1 и есть N в степени ноль

Автор: Anton

Anton — Mon, 11 Jan 2016 05:59:23 +0000

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

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;

Автор: Anton

Anton — Mon, 11 Jan 2016 05:39:23 +0000

В ответ на olegst1975. Поправил. Добавил в шапку.

Автор: Anton

Anton — Mon, 11 Jan 2016 05:31:18 +0000

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

Автор: olegst1975

olegst1975 — Sun, 10 Jan 2016 23:20:41 +0000

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