![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Покажите мне, пожалуйста где здесь формальные, и где фактические параметры. И что это вообще такое??
Код:
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.Последний раз редактировалось Admin, 15.01.2012 в 20:32. |
|
#4
|
|||
|
|||
|
Цитата:
Формальные - в описании процедуры/функции. Фактические - те, что ты передаешь при вызове процедуры. |
| Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
Paladej (16.01.2012)
| ||