Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
2 / 2 / 1
Регистрация: 26.11.2012
Сообщений: 102
1

Задача с графом

22.01.2015, 19:34. Просмотров 387. Ответов 1
Метки нет (Все метки)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
program prog;
uses
  SysUtils;
const
 n0 = 30;
var
ves : array [1..n0, 1..n0] of integer;
L : array [1..n0, 1..n0] of integer;
M : array [1..n0] of integer;
i,j,fl,n,q, max: integer;
f:text;
Procedure krit;
 var k:integer;
    begin Max:=0;
    for k:=1 to n do
    begin
      if l[k,i] <> 0 then
        begin  fl:=fl+1;
               if MAX < l[k,i] then
               begin
               MAX:=l[k,i];
               m[i]:=k;
               end;
       end;
      end;
End;
begin
  assign(f,'graf.txt');          
  reset(f);
  readln(f,n);
  for i:=1 to n do
  for j:=1 to n do read(f, ves[i,j]);
close(f);
writeln;
writeln('Matrica vesov zadannogo grafa');
for i:=1 to n do
begin
 for j:=1 to n do write (ves[i,j],' ');
  writeln;
 end;
  writeln;
for i:= 1 to n do
begin
 for j:= 1 to n do
  l[i,j]:=0;
  M[i]:= 0;
end;
  fl:=0;
 for j:= 1 to n do begin
    for i:= 1 to n do
    begin  krit;
        if ves[i,j]<>0 then l[i,j]:= ves[i,j] + max;
          fl:=0;   end
    end;
Writeln;
writeln('L');
 for i:=1 to n do begin
  for j:=1 to n do write(l[i,j],' ');
  writeln;
                  end;
q:=0;                  
writeln;
  writeln ('Kriticheskii put v zadannom grafe:');
  write (n,' ');
    i:=n;
 repeat
 write (m[i],' ');
 i:=m[i];
  until  m[i]=0;
writeln;
q:=0;
 for j:=1 to n do begin
  if q < l[j,n] then q:= l[j,n];
  end;
writeln;  
Writeln('Dlina kriticheskogo puti = ',q,'.');
readln;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.01.2015, 19:34
Ответы с готовыми решениями:

Задача с графом
Написать программу,определяющую все маршруты из вершины v1 в вершину v3 для графа

Задача с графом
Здравствуйте! помогите написать программу на прологе, задание такое: Напишите программу, которая...

Задание графом
Задан граф, вывести все пары вершин, между которыми нет пути. можете помочь???

Работа с графом
Написать программу, которая находит по заданным вершинам графа все пути между ними и определяет...

1
Почетный модератор
Эксперт С++
5836 / 2842 / 390
Регистрация: 01.11.2011
Сообщений: 6,881
23.01.2015, 12:57 2
Цитата Сообщение от kent555 Посмотреть сообщение
Задача с графом
За четыре дня граф преодолевает расстояние в два с половиной перелета кулика. Размер кулика семь на пять на девять на три. Найдите смысл.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.01.2015, 12:57

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Перестановка с графом
Имеется граф у которого 7 ребер (ребра имеют вес). Требуется построить все графы удалив из...

Работа с графом
Здравствуйте, у меня такая проблема ,по матрице смежности (7x7) со случайными числами я получил...

Работа с Ориентированным графом
Дан орграф. После удаления произвольных вершин может произойти всё что угодно, вопрос таков: Для...

написать прогу с графом
По таблице рёбер построить списки инцидентности ориентированного графа, удалить из графа вершины с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.