[Paladej]

Покажите мне, пожалуйста где здесь формальные, и где фактические параметры. И что это вообще такое??

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var x,s,a0,a1,e:real;
    n:integer;

procedure Mega(x:real;e:real; var s:real; var n:integer);
  var a0,a1:real;
begin
  n:=1; s:=0;
  a1:=x/6;
  repeat
      a0:=a1;
      s:=s+a0;
      n:=n+1;
      a1:=a1*sqrt(n-1)/(sqrt(n)*(n+2));
  until (n>10) and (abs(a1)<e);
end;

begin
  Writeln('BBegute e:');
  Readln(e);
  Writeln('BBeguTe x:');
  Readln(x);
  Mega(x,e,s,n);
  Writeln('Сумма:', s:2:4);
  Readln;
end.

Админ: Пользуемся тегами для оформления кода!