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

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

Решение:

program Proc26;

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

var
 i,N,Res:Integer;

begin
 for i:=1 to 10 do
  begin
   Write('N :');
   Readln(N);
   if IsPower5(N) then Inc(Res);
  end;
 Writeln(Res);
end.

program Proc26;

Function IsPower5(K:Integer):Boolean;

begin

While (K>=5) do

begin

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

begin

K:=0;

IsPower5:=False;

end;

K:=k div 5;

end;

if K=1 then IsPower5:=True

else IsPower5:=False;

end;

var

i,N,Res:Integer;

begin

for i:=1 to 10 do

begin

Write('N :');

Readln(N);

if IsPower5(N) then Inc(Res);

end;

Writeln(Res);

end.

Решение olegst1975:

function IsPower5(k:integer):boolean;
var
n1:integer;
  begin   
   n1:=1;
   result:=false;
   while n1<=k do//перебор и сравнение степеней 5 не выше числа К
     begin
      if n1=k then result:=true;
      n1:=n1*5;
     end;   
  end;

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

function IsPower5(k:integer):boolean;

var

n1:integer;

begin

n1:=1;

result:=false;

while n1<=k do//перебор и сравнение степеней 5 не выше числа К

begin

if n1=k then result:=true;

n1:=n1*5;

end;

var

i,k,n:integer;

begin

n:=0;

for i:=1 to 10 do

begin

read(k);

if IsPower5(k) then inc(n);

end;

write(n);

end.

Решение Newton:

program Proc26;

Function IsPower5 (K : integer) : boolean;
var
   Test : integer;
begin
   Test := 5;
   while Test < K do
      Test := Test * 5;
   IsPower5 := (Test = K);      
end;

var
 i,N,Res:Integer;

begin
 for i:=1 to 10 do
  begin
   Write('N :');
   Readln(N);
   if IsPower5(N) then Inc(Res);
  end;
 Writeln(Res);
end.

program Proc26;

Function IsPower5 (K : integer) : boolean;

var

Test : integer;

begin

Test := 5;

while Test < K do

Test := Test * 5;

IsPower5 := (Test = K);

end;

var

i,N,Res:Integer;

begin

for i:=1 to 10 do

begin

Write('N :');

Readln(N);

if IsPower5(N) then Inc(Res);

end;

Writeln(Res);

end.

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

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

нужно доработать, сейчас на 10,20 реагирует true(как на кратность 5), учесть 50=1(первым сравнением отсекается);

Ответить

Поправил
Было:

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

Function IsPower5(K:Integer):Boolean;

begin

if K>4 then IsPower5:=True

else IsPower5:=False;

While (K>5) do

begin

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

begin

K:=0;

IsPower5:=False;

end;

K:=k div 5;

end;

Стало:

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

Function IsPower5(K:Integer):Boolean;

begin

While (K>=5) do

begin

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

begin

K:=0;

IsPower5:=False;

end;

K:=k div 5;

end;

if K=1 then IsPower5:=True

else IsPower5:=False;

end;

Ответить

[crayon-67414d60bf89a505259022 inline="true" ]
function IsPower5(k:integer):boolean;
var
n1:integer;
  begin   
   n1:=1;
   result:=false;
   while n1<=k do//перебор и сравнение степеней 5 не выше числа К
     begin
      if n1=k then result:=true;
      n1:=n1*5;
     end;   
  end;

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

[crayon-67414d60bf89a505259022 inline="true" ]

function IsPower5(k:integer):boolean;

var

n1:integer;

begin

n1:=1;

result:=false;

while n1<=k do//перебор и сравнение степеней 5 не выше числа К

begin

if n1=k then result:=true;

n1:=n1*5;

end;

var

i,k,n:integer;

begin

n:=0;

for i:=1 to 10 do

begin

read(k);

if IsPower5(k) then inc(n);

end;

write(n);

end.

[/crayon]

Ответить

Anton

11.01.2016 в 09:27

Добавил в шапку.

Ответить

Еще вариант:

Function IsPower5 (K : integer) : boolean;
var
   Test : integer;
begin
   Test := 5;
   while Test < K do
      Test := Test * 5;
   IsPower5 := (Test = K);      
end;

Function IsPower5 (K : integer) : boolean;

var

Test : integer;

begin

Test := 5;

while Test < K do

Test := Test * 5;

IsPower5 := (Test = K);

end;

Ответить

Anton

11.11.2016 в 06:36

Добавил в шапку.. принцип такой же как у olegst1975, но элегантней. 🙂

Ответить
Bronislav

07.03.2018 в 02:40

Newton единицу потерял (K=1). Строка пятая Test:=1.

Ответить

//pascalABC.net
function isPower5(k:integer):boolean;
begin
  while (k mod 5 = 0) and (k<>0) do//(k<>0) защита от зацикливания;
    k:=k div 5;
  result:=(k=1);
end;

begin
  var a:=ReadArrInteger('введите набор из 10-и целых положительных чисел:',10);
  writeln('степеней пятерки в наборе: ',a.Where(t->isPower5(t)).Count);
  readln;//readln;
end.

//pascalABC.net

function isPower5(k:integer):boolean;

begin

while (k mod 5 = 0) and (k<>0) do//(k<>0) защита от зацикливания;

k:=k div 5;

result:=(k=1);

end;

begin

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

writeln('степеней пятерки в наборе: ',a.Where(t->isPower5(t)).Count);

readln;//readln;

end.

Ответить

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

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

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

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