Написать подпрограмму

[Fitch573]

Вот, собственно, сама программа:

program Project1;

{$APPTYPE CONSOLE}
var
f,S,L,p,e :real;
K :integer;
begin
writeln ('BBeDuTe e');
readln(e);
L:=1;
S:=L;
f:=1;
k:=0;
p:=sqr(3.14)/6-1;
while abs(L)>=e do
begin
k:=k+1;
L:=L*f/sqr(k);
S:=S+L;
end;
writeln ('4ucJlo ll=', p:6:4);
writeln ('CyMMa=', S:6:4);
If S>p then writeln('CyMMa 6oJlbllle ll') else
begin
If S<p then writeln('CyMMa MeHbllle ll') else
writeln('CyMMa = ll');
end;
readln
end.


Вот мои наработки:

{$APPTYPE CONSOLE}
uses
SysUtils;
Procedure summa (L,e,p :real; var S :real);
var
f :real;
K :integer;
begin
readln(e);
L:=1;
S:=L;
f:=1;
k:=0;
p:=sqr(3.14)/6-1;
while abs(L)>=e do
begin
k:=k+1;
L:=L*f/sqr(k);
S:=S+L;
end;
begin
writeln ('BBeDuTe e');
summa (L,e,S,p);
writeln ('4ucJlo ll=', p:6:4);
writeln ('CyMMa=', S:6:4);
If S>p then writeln('CyMMa 6oJlbllle ll') else
begin
If S<p then writeln('CyMMa MeHbllle ll') else
writeln('CyMMa = ll');
end;
readln
end.

Помогите закончить, буду очень признателен.

[Fitch573]

Ну можете хоть кинуть чего, где рассказывается про писание подпрограмм? А то я чтото довольно-таки давно шарюсь по яндексу в поисках и толкового не нашёл ничего.

[Fitch573]

Короче говоря вот, написал. Может кому подобное задание надо будет делать, погуглит и на моё наткнётся.

{$APPTYPE CONSOLE}
Procedure summa (e:real; var S :real);
var
L,f,p :real;
K :integer;
begin
L:=1;
S:=L;
f:=1;
k:=0;
while abs(L)>=e do
begin
k:=k+1;
L:=L*f/sqr(k);
S:=S+L;
end;
end;
var ee,SS :real;
begin
writeln ('BBeDuTe e');
readln(ee);
summa (ee,SS);
writeln ('4ucJlo ll=',sqr(3.14)/6-1:6:4);
writeln ('CyMMa=', SS:6:4);
If SS>sqr(3.14)/6-1 then writeln('CyMMa 6oJlbllle ll');
 readln ;
end.

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

[phomm]

А условие задачи-то каково было ?? А то как-то получается "сам пошутил , никто не понял, но сам посмеялся". И как можно предложить тут ещё и гуглить...

[Fitch573]

Ну незнаю, думал, что подпрограмму можно было написать и без условий. Извиняйте если не прав. А ради любопытства в яндексе напишите название этой темы и 4я ссылка окажется ссылкой именно на эту тему. Я именно таким макаром что-нибудь похожее на мою программу искал, но к сожалению не нашёл.



А условия вот:

[phomm]

Условия рисунком - не нагуглить.. ну авось кому всё же поможет...