Технология выполнения индивидуальных заданий. Часть 1 - 35 стр.

UptoLike

Составители:

Рубрика:

Алгоритм построения по матрице вектора представлен процедурой

To_Vect.

Текст программы

program Matr_1;

const nmax=10;

type matrix=array[1..nmax,1..nmax] of real;

vect=array[1..nmax] of real;

var a: matrix;

b: vect;

n,m,i,j: integer;

{процедура построения по матрице вектора}

procedure To_Vect(n,m:integer;const a:matrix;

var b:vect);

var i,j,k:integer;

s:real;

begin

for i:=1 to n do

begin

k:=1;

for j:=2 to m do

if a[i,j]>a[i,k] then k:=j;

s:=0;

for j:=k+1 to m do

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

b[i]:=s

end

end;