переделать программу под функцию

[twonislatex]

Привет ребят помогите пожалуйста переделать программу... суть в том что мне надо из процедуры сделать функцию как это сделать я не знаю нужно очень срочно((((

Вот сама программа

Program lab9_8;
uses crt;
var sum:real; n:integer;
procedure pr_sum(n:byte;var sum:real);
var fac:real; i,j:byte;
begin
  sum:=0;
  for i:=1 to (n div 2)+(n mod 2) do
  begin
    fac:=1;
    for j:=2 to (2*i-1) do
    fac:=fac*j;
    sum:=sum+fac;
  end;
end;
begin
  write('n=');
  readln(n);
  pr_sum(n,sum);
  writeln('сумма=',sum:0:3);
  readln;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Stilet]

Program lab9_8;
uses crt;
var n:integer;
procedure pr_sum(n:byte):real
var fac,sum:real; i,j:byte;
begin
sum:=0;
for i:=1 to (n div 2)+(n mod 2) do
begin
fac:=1;
for j:=2 to (2*i-1) do
fac:=fac*j;
sum:=sum+fac;
end;
pr_sum:=sum;
end;

begin
write('n=');
readln(n);

writeln('сумма=',pr_sum(n,sum):0:3);
readln;
end.

[Serge_Bliznykov]

так пойдёт?

Program lab9_8;
uses crt;
function pr_sum(n:byte) : real;
var 
  fac:real; 
  i,j:byte;
  sum:real;
begin
  sum:=0;
  for i:=1 to (n div 2)+(n mod 2) do
  begin
    fac:=1;
    for j:=2 to (2*i-1) do
       fac:=fac*j;
    sum:=sum+fac;
  end;
end;

var 
  n:integer;
begin
  write('n=');
  readln(n);
  writeln('сумма=',pr_sum(n):0:3);
  readln;
end.

[twonislatex]

да пойдет,но почему когда я ввожу n она выдает 0000

[Serge_Bliznykov]

во-первых, надо вводить не n, а число.
а во-вторых, вы свою программу из пост #1 запустите, посмотрите, что она выдаёт.
потому как я алгоритм функции суммирования факториалов не переделывал - что у Вас было написано в пост #1 - то и получаете...

[twonislatex]

нет моя программа с процедурой выдает все правильно, а эта какое бы я число не ввел все равно выдает 0.000

[Serge_Bliznykov]

вы текст программы из форуму, надеюсь СКОПИРОВАЛИ?!?!

[twonislatex]

да из форума скопировал и в паскале abc она у меня работает, а ваша нет((

[Serge_Bliznykov]

Вы правы!
это у меня в коде сделана грубейшая (и глупейшая) ошибка - я НЕ ВОЗВРАЩАЮ результат вычисления функции!

вот корректный вариант (выделил пропущенную мной строку):

function pr_sum(n:byte) : real;
var
  fac:real;
  i,j:byte;
  sum:real;
begin
  sum:=0;
  for i:=1 to (n div 2)+(n mod 2) do
  begin
    fac:=1;
    for j:=2 to (2*i-1) do
       fac:=fac*j;
    sum:=sum+fac;
  end;
  pr_sum := sum
end;

извините...

[twonislatex]

ничего страшного все ошибаются, спасибо вам