Составление простейших программ с использованием процедур и функций пользователя, у которых в качестве параметров используются имена других процедур и функций, страница 2

var i:integer;

Begin

for i:=1 to n do

p[i]:=f(x[i])

end;

function f1(x:real):real;

begin

f1:=sqr(x)+2;

end;

function f2(x:real):real;

begin

f2:=sin(x)-3;

end;

begin

write('vvedite vector e');

vvod_v(e,2);

write('eto vector e');

vyvod_v(e,2);

write('vvedite vector c');

vvod_v(c,4);

write('eto vector c');

vyvod_v(c,4);

NewVect(e,2,z,f1);

write('eto vector z');

vyvod_v(z,2);

NewVect(c,4,y,f2);

write('eto vector y');

vyvod_v(y,4);

end.

Вид печати:

eto vector e

  2.2000

 -3.5000

eto vector c

  1.2000

  0.2000

 -3.1000

  4.3000

eto vector z

  6.8400

 14.2500

eto vector y

 -2.0680

 -2.8013

 -3.0416

 -3.9162