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

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

Решение:

program Proc28;

Function IsPrime(N:Integer):Boolean;
var i:integer;
begin
  i:=1;
  IsPrime:=True;
  while (i<N/2) do
    begin
      Inc(i);
      if N mod i = 0 then
       begin
        I:=N;
        IsPrime:=False;
       end;
    end;
end;

var
  i,N,Res:Integer;

begin
 Res:=0;
 for i:=1 to 10 do
  begin
   Write('N :');
   Readln(N);

   if IsPrime(N) then Inc(Res);
  end;
   Writeln(Res);
end.

program Proc28;

Function IsPrime(N:Integer):Boolean;

var i:integer;

begin

i:=1;

IsPrime:=True;

while (i<N/2) do

begin

Inc(i);

if N mod i = 0 then

begin

I:=N;

IsPrime:=False;

end;

var

i,N,Res:Integer;

begin

Res:=0;

for i:=1 to 10 do

begin

Write('N :');

Readln(N);

if IsPrime(N) then Inc(Res);

end;

Writeln(Res);

end.

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

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

Program p28;

Function isp(n: integer):boolean;
var i,k: integer;
Begin
k:=1;
i:=1;
While i<=n do
 Begin
 Inc(i);
 If (n mod i = 0) then inc(k);
 End;
 if (k=2) then isp:=true
 Else isp:=false;
End;

Var
 n,i,p: integer;
 
Begin
p:=0;
 For i:=1 to 10 do
 Begin
  Write('N=');
  Readln(n);
  if (isp(n)=true) then inc(p);
 End;
Writeln(p);
End.

Program p28;

Function isp(n: integer):boolean;

var i,k: integer;

Begin

k:=1;

i:=1;

While i<=n do

Begin

Inc(i);

If (n mod i = 0) then inc(k);

End;

if (k=2) then isp:=true

Else isp:=false;

End;

Var

n,i,p: integer;

Begin

p:=0;

For i:=1 to 10 do

Begin

Write('N=');

Readln(n);

if (isp(n)=true) then inc(p);

End;

Writeln(p);

End.

Ответить

Не люблю я досрочный выход… но при таком построении решения он прямо напрашивается :

{$APPTYPE CONSOLE}
Program p28;

Function isp(n: integer):boolean;
var i: integer;
Begin
i:=1;
While i<n do
 Begin
  Inc(i);
  If ((n mod i) = 0) then break;
 End;
 if (i=n) then isp:=true
 Else isp:=false;
End;

Var
 n,i,p: integer;

Begin
p:=0;
 For i:=1 to 10 do
 Begin
  Write('N=');
  Readln(n);
  if (isp(n)=true) then inc(p);
 End;
Writeln(p);
End.

{$APPTYPE CONSOLE}

Program p28;

Function isp(n: integer):boolean;

var i: integer;

Begin

i:=1;

While i<n do

Begin

Inc(i);

If ((n mod i) = 0) then break;

End;

if (i=n) then isp:=true

Else isp:=false;

End;

Var

n,i,p: integer;

Begin

p:=0;

For i:=1 to 10 do

Begin

Write('N=');

Readln(n);

if (isp(n)=true) then inc(p);

End;

Writeln(p);

End.

Хотя если досрочный выход перенести в while то будет решение из шапки 🙂

Ответить

function isPrime(n:integer):boolean;
begin
  case n of
    0,1:result:=false;
    else
    begin
      result:=true;
      for var i:=2 to trunc(sqrt(n)) do
        if n mod i = 0 then
        begin
          result:=false;
          exit;
        end;
    end;
  end;
end;

begin
  var a:=Range(1,100000);
  a.Where(t->isPrime(t)).Println;
  a.Where(t->isPrime(t)).Count.Println;
  write(milliseconds);
end.

function isPrime(n:integer):boolean;

begin

case n of

0,1:result:=false;

else

begin

result:=true;

for var i:=2 to trunc(sqrt(n)) do

if n mod i = 0 then

begin

result:=false;

exit;

end;

begin

var a:=Range(1,100000);

a.Where(t->isPrime(t)).Println;

a.Where(t->isPrime(t)).Count.Println;

write(milliseconds);

end.

Ответить

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

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

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

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