Как процедурный тип и относящиеся к нему подпрограмму описать в отдельным модуле?

@Oksana218 · Регистрация: 16.12.2013

Author24 — интернет-сервис помощи студентам

Как процедурный тип и относящиеся к нему подпрограмму описать в отдельным модуле.А во втором модуле описать основную программу.Помогите пожалуйста

Pascal

Program twofunkcii;
const e=0.0001;
 
type fun=function(x:real;n:byte):real;
 var k:real;
 function f1(x:real;n:byte):real;far;
 begin
 f1:=x/n;
 end;
 function f2(x:real;n:byte):real;far;
 begin
 f2:=x*x/((2*n-2)*(2*n-1));
 end;
 function sum(f:fun;nomer:byte;pervoe:real;x:real):real;
 var
 s,sl:real;
 j:byte;
 begin
 j:=nomer;
 sl:=pervoe;
 s:=0;
 while sl>e do
 sl:=pervoe;
 s:=0;
 while sl>e do
 begin
 s:=s+sl;
 j:=j+1;
 sl:=sl*f(x,j);
 sum:=s;
 end;
 end;
 begin
 writeln('sum=',sum(f1,0,1,2.1):5:3);
 writeln('sum=',sum(f2,1,2.7,2.7):5:3);
 readln
 end.

@Puporev · 03.03.2014, 19:41

Так это программа не рабочая.

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	03.03.2014, 19:41	2
	Так это программа не рабочая. 0