Компьютерная математика: Часть 2. Теория графов. Волченская Т.В - 80 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

type
tmas=array[1..10,1..10]of integer;
var
K,i,j,d0,d1:integer;a:tmas;
Begin
writeln('enter K:');
read(K);
writeln('enter matr:');
for i:=1 to K do
for j:=1 to K do read(a[i,j]);
writeln('полустепени исхода вершин');
for i:=1 to K do
begin
d0:=0;
for j:=1 to K do
if a[i,j]<>0 then d0:=d0+1;
writeln('d0(x',i,')=',d0);
end;
writeln('полустепени захода вершин');
for j:=1 to K do
begin
d1:=0;
for i:=1 to K do
if a[i,j]<>0 then d1:=d1+1;
writeln('d1(x',j,')=',d1);
end;
end. 
      type
  tmas=array[1..10,1..10]of integer;
var
  K,i,j,d0,d1:integer;a:tmas;


Begin
writeln('enter K:');
read(K);
writeln('enter matr:');
for i:=1 to K do
for j:=1 to K do read(a[i,j]);
writeln('полустепени исхода вершин');
for i:=1 to K do
  begin
  d0:=0;
  for j:=1 to K do
      if a[i,j]<>0 then d0:=d0+1;
  writeln('d0(x',i,')=',d0);
  end;
writeln('полустепени захода вершин');
for j:=1 to K do
  begin
  d1:=0;
  for i:=1 to K do
      if a[i,j]<>0 then d1:=d1+1;
  writeln('d1(x',j,')=',d1);
  end;
end.

Страницы