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

Proc34. Описать функцию Fact( $N$ ) вещественного типа, вычисляющую значение факториала $N! = 1*2*…*N$ ( $N > 0$ — параметр целого типа; вещественное возвращаемое значение используется для того, чтобы избежать целочисленного переполнения при больших значениях $N$ ). С помощью этой функции найти факториалы пяти данных целых чисел.

Решение:

program Proc34;

Function  Fact(N:Integer):Real;
var
  i:integer;
  tempRez:Real;
begin
  tempRez:=1;
  for i:=1 to N do tempRez:=tempRez*i;
  Fact:=tempRez;
end;

var
  N,i:Integer;

begin
 for i:=1 to 5 do
  begin
   Write('N :');
   Readln(N);
   Writeln( Fact(N) );
  end;
end.

program Proc34;

Function Fact(N:Integer):Real;

var

i:integer;

tempRez:Real;

begin

tempRez:=1;

for i:=1 to N do tempRez:=tempRez*i;

Fact:=tempRez;

end;

var

N,i:Integer;

begin

for i:=1 to 5 do

begin

Write('N :');

Readln(N);

Writeln( Fact(N) );

end;

end.

Решение Newton, рекурсия:

program Proc34;

function Fact (N : byte) : real;

begin
   if N <= 1 then
      Fact := 1      
   else
      Fact := N * Fact(N - 1);   
end;

Procedure Proceed;
begin
   writeln;
   writeln;
   writeln('Press  to proceed..');
   readln;
   writeln;
end;

const
   Limit = 5;

var
   Number, Counter : byte;

begin
   for Counter := 1 to Limit do
      begin
         write(Counter, '. Enter a number: ');
         readln(Number);
         writeln('Factorial: ' :19, Fact(Number) :0:0);
      end;         
   Proceed; 
end.

program Proc34;

function Fact (N : byte) : real;

begin

if N <= 1 then

Fact := 1

else

Fact := N * Fact(N - 1);

end;

Procedure Proceed;

begin

writeln;

writeln('Press to proceed..');

readln;

writeln;

end;

const

Limit = 5;

var

Number, Counter : byte;

begin

for Counter := 1 to Limit do

begin

write(Counter, '. Enter a number: ');

readln(Number);

writeln('Factorial: ' :19, Fact(Number) :0:0);

end;

Proceed;

end.

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

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

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

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

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