Блок-схема по тексту программы
помогите нарисовать блок-схему на текст программы
помогите нарисовать блок-схему на текст программы
Код:
Program Lab5;
const
Nmax=10;
type
matr=array[1..Nmax, 1..Nmax] of real;
vect=array[1..Nmax] of real;
var
N:Integer;
Y:real;
A:matr;
X:vect;
Procedure Matrica;
var i,j:integer;
begin
for i:=1 to N do
begin
for j:=1 to N do
begin
A[i,j]:=power(-1,i+j)*(4.3-i)/Abs(0.2-i*j)/N;
write(A[i,j]:8:3);
end;
writeln;
end;
writeln;
end;
Procedure Vector;
var
i,j,k:integer;
s:real;
begin
for i:=1 to N do
begin
k:=0;
s:=0;
for j:=1 to N do
if A[i,j]>0 then
begin
s:=s+A[i,j];
Inc(k);
end;
if k>0 then X[i]:=s/k else X[i]:=0;
Writeln('X[',i,']= ',X[i]:0:3);
end;
Writeln;
end;
Procedure Porjadok;
var
i,j,k:integer;
c:real;
begin
for j:=1 to N do
for i:=1 to N-1 do
for k:=1 to N-i do
if A[k,j]>A[k+1,j] then
begin
c:=A[k,j];
A[k,j]:=A[k+1,j];
A[k+1,j]:=c;
end;
for i:=1 to N do
begin
for j:=1 to N do
Write(A[i,j]:8:3);
Writeln;
end;
Writeln;
end;
Procedure Fun;
var
Max,Min:Real;
i:Integer;
begin
Max:=X[1];
Min:=X[1];
For i:=2 to N do
begin
if X[i]>Max then Max:=X[i];
if X[i]<Min then Min:=X[i];
end;
Y:=(Max-Min)/2;
Write('Y= ',Y:0:3);
end;
Begin
Write('N= ');
Readln(N);
Matrica;
Vector;
Porjadok;
Fun;
Readln
End.
Последнее редактирование:
