Курсовая работа: Разработка программ с использованием динамической памяти

Рисунок А.2 – Добавление дуги орграфа

Рисунок А.3 – Матрица смежности орграфа

Рисунок А.4 – Список вершин источников орграфа

Приложение Б

ЛИСТИНГ ПРОГРАММЫ

program OrGraph;

uses Crt;

type TUk1=^TEl1;

TEl1=record

Next:TUk1;

Inf:integer;

end;

TUk=^TEl;

TEl=record

Left:TUk1;

Inf:integer;

Down:TUk;

end;

const

max=10;

var

Head:TUk;

c:char;

n,m:integer;

V:array[1..max] of byte;

{---------добавляем вершину в граф-------------}

procedure AddVer(n:integer);