ОРГАНИЗАЦИЯ ПРОГРАММ, СОДЕРЖАЩИХ ПОДПРОГРАММЫ ПОЛЬЗОВАТЕЛЯ

Задание 11

Составить схему алгоритма и программу вычисления значения функции z с использованием подпрограмм. Вывести значения p,r,z.

№

Вычислить значение функции z= ,где p–скалярное произведение вектора y, составленного из упорядоченных по возрастанию отрицательных элементов вектора х ,на тот же вектор y, но из упорядоченных по убыванию; z– длина вектора y; n– число элементов вектора y;

x = { 2,8; -3,5; 0,7; -2,3; 0,9; -1,1; 6,2; -3,8}.

Uses Crt;

Type mas=array[1..8] of real;

Var x:mas;

i,n:integer;

p:real;

Procedure PN(x:mas;n:integer;p:real);

Var i:integer;

Begin for i:=1 to 8 do

begin if (2<x[i]) and (x[i]<4) then

begin p:=x[i]*p; n:=n+1; end;

end;

Write(‘Произведение элементов вектора удовлетворяющих условию 2<Xi<4: p= '); Writeln(p:4:3);

Writeln;

Write('Число таких элементов n='); Writeln(n);

End;

Function R:real;

Var t:real;

i:integer;

Begin t:=x[1];

for i:=1 to 8 do begin if (2<x[i]) and (x[i]<4) then

if x[i]<t then t:=x[i];

end;

R:=t;

End;

Function Z:real;

Begin Z:=cos(N-P*R)/sqrt(pi); End;

BEGIN

clrscr;

x[1]:=2.8; x[2]:=-0.3; x[3]:=4.5; x[4]:=-0.8;

x[5]:=2.4; x[6]:=-0.7; x[7]:=3.5; x[8]:=3.2;

Writeln('Вектор Х:');

for i:=1 to 8 do Write(X[i]:2:1, ' ');

Writeln;

Writeln;

p:=1; n:=0;

pn(x,n,p);

Writeln;

Writeln('Элемент, минимальный среди них: r= ',r:2:1);

Writeln;

Writeln('Функция Z= ',Z:5:4);

Readln;

END.

Задание 12

Составить схему алгоритма и программу решения задачи с использованием подпрограмм пользователя. Вывести значения p , r , y .

№

Вычислить значение функции y= где p – среднее геометрическое элементов матрицы А , удовлетворяющих условию a_ij > 3; r – длина вектора , состоящего из элементов матрицы А, лежащих на главной диагонали;

const n=3;

type mas=array[1..n,1..n]of real;

function p(a:mas):real;

var i,j,k:integer;

d:real;

begin

d:=1;

k:=0;

for i:=1 to n do

for j:=1 to n do

if a[i,j]>3 then

begin

k:=k+1;

d:=d*abs(a[i,j]);

end;

p:=exp(1/k*abs(d)/d*ln(abs(d)));

end;

function r(a:mas):real;

var i,j:integer;

s:real;

begin

for i:=1 to n do

for j:=1 to n do

if i=j then s:=s+a[i,j];

r:=sqrt(s);

end;

var a:mas;

i,j:integer;

y:real;

begin

for i:=1 to n do

for j:=1 to n do

readln(a[i,j]);

y:=exp(1/4*ln(abs(sqr(r(a))-sqr(p(a)))));

writeln('Y=',y:11:10);

readln;

end.

Задание 13