Цитата
А что такое mas и mas1, мы должны догадаться? Названия типов сами за себя не говорят, будь добр привести определения...
вот полный текст програми
Условие
а) вычислить элементы квадратной матрицы i=1..5, j=1..5 (за заданой формулой, формулу не пишу она есть в программе, да и это не так важно), при этом нужно использовать процедуру
б) используя элементы матрицы вычислить элементы вектора x=|x|(i=1..5),
они должны быть равны минимальным элементам строк матрицы (использовать процедуру)
в)найти за формулой значение функции (использовать функцию)
Код
Program nomer28;
uses crt;
Type
mas=array [1..5,1..5] of real;
mas1=array [1..5] of real;
Procedure Matrix( var a:mas);
var
i,j,y:integer;
Begin
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
y:=i-j;
a[i,j]:=exp((-i)*ln(2))*(j-4.3)+(5*i+sin(i*j))/(exp(y*ln(2.71)));
write('a[',i,',',j,']=',a[i,j]:2:2,' ');
end;
writeln;
end;
End;
Procedure Vector(var a:mas; var x:mas1);
var
i,j,k,y,z:integer;
min1,min2,min3,min4,min5:real;
Begin
min1:=a[1,1];
for j:=1 to 5 do
begin
if (min1>a[1,j]) then min1:=a[1,j];
x[1]:=min1;
end;
min2:=a[2,1];
for j:=1 to 5 do
begin
if min2>a[2,j] then min2:=a[2,j];
x[2]:=min2;
end;
min3:=a[3,1];
for j:=1 to 5 do
begin
if min3>a[3,j] then min3:=a[3,j];
x[3]:=min3;
end;
min4:=a[4,1];
for j:=1 to 5 do
begin
if min4>a[4,j] then min4:=a[4,j];
x[4]:=min4;
end;
min5:=a[5,1];
for j:=1 to 5 do
begin
if min5>a[5,j] then min5:=a[5,j];
x[5]:=min5;
end;
for k:=1 to 5 do
writeln('x[',k,']=',x[k]:2:2);
End;
Function G (x:mas1):real;
var
i,k:integer;
S,d:real;
Begin
d:=1;
S:=0;
for i:=1 to 5 do
begin
begin
for k:=1 to i do
d:=d*(sqr(k)-x[k]);
end;
S:=S+d/(2.3*i+x[i]);
end;
G:=S;
End;
VAR
b:mas;
x1:mas1;
i,j:integer;
BEGIN
clrscr;
matrix(b);
writeln;
vector(b,x1);
writeln;
writeln('G=',G(x1):2:4);
readkey;
END.