Дискуссионный математический форумМатематический форум
Математический форум Math Help Planet

Обсуждение и решение задач по математике, физике, химии, экономике

Теоретический раздел
Часовой пояс: UTC + 3 часа [ Летнее время ]
новый онлайн-сервис
число, сумма и дата прописью

Часовой пояс: UTC + 3 часа [ Летнее время ]




Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
Автор Сообщение
 Заголовок сообщения: Pascal.Задача с графами.
СообщениеДобавлено: 16 июн 2015, 09:54 
Не в сети
Начинающий
Зарегистрирован:
01 апр 2015, 20:32
Сообщений: 9
Cпасибо сказано: 2
Спасибо получено:
0 раз в 0 сообщении
Очков репутации: 1

Добавить очки репутацииУменьшить очки репутации
Нужно написать программу
Даны связный неориентированный взвешенный граф и натуральное число k. Выясните, есть ли в данном графе вершина, расстояние от которой до каждой вершины не превышает k.

Логически все понятно, а сам код нет, помогите пожалуйста)

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Pascal.Задача с графами.
СообщениеДобавлено: 17 июн 2015, 17:46 
Не в сети
Начинающий
Зарегистрирован:
01 апр 2015, 20:32
Сообщений: 9
Cпасибо сказано: 2
Спасибо получено:
0 раз в 0 сообщении
Очков репутации: 1

Добавить очки репутацииУменьшить очки репутации
Вот допустим есть код, выводящий матрицу кротчайших расстояний между всеми парами вершин, как теперь проверить эту матрицу по заданию с k? как это туда теперь дописать, товарищи программисты?
program lab3;
uses crt;
const maxV=1000;
type matr=array[1..maxV, 1..maxV] of integer;
var i, j, n, inf: integer;
GR: matr;
Procedure FU(D: matr; V: integer);
var k: integer;
begin
inf:=1000000;
for i:=1 to V do D[i, i]:=0;

for k:=1 to V do
for i:=1 to V do
for j:=1 to V do
if (D[i, k]<>0) and (D[k, j]<>0) and (i<>j) then
if (D[i, k]+D[k, j]<D[i, j]) or (D[i, j]=0) then
D[i, j]:=D[i, k]+D[k, j];

for i:=1 to V do
begin
for j:=1 to V do
write(D[i, j]:4);
writeln; ;
end;
end;
begin
clrscr;
write('Количество вершин в графе > '); readln(n);
writeln('Введите матрицу весов ребер:');
for i:=1 to n do
for j:=1 to n do
begin
write('GR[', i, '][', j, '] > ');
read(GR[i, j]);
end;
writeln('Матрица кратчайших путей:');
FU(GR, n);
end.

Вернуться к началу
 Профиль  
Cпасибо сказано 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему      Страница 1 из 1 [ Сообщений: 2 ]

 Похожие темы   Автор   Ответы   Просмотры   Последнее сообщение 
Pascal

в форуме Информатика и Компьютерные науки

SL4MER

4

382

21 май 2021, 13:49

Вычисльть в Pascal

в форуме Информатика и Компьютерные науки

Sweet_blood

6

639

06 май 2014, 18:45

Написать код на Pascal

в форуме Информатика и Компьютерные науки

Seira

4

242

18 ноя 2020, 09:06

Pascal. Вывод

в форуме Информатика и Компьютерные науки

sfanter

1

497

11 июл 2014, 13:01

Pascal ABC. График по точкам

в форуме Информатика и Компьютерные науки

Helly

0

328

29 окт 2016, 20:21

Сложная параметрическая кривая (Pascal N-IDE)

в форуме Информатика и Компьютерные науки

sergebsl

1

382

12 июн 2021, 23:50

Преобразование и построение матриц - Pascal

в форуме Информатика и Компьютерные науки

FlayGlam

1

399

20 дек 2015, 09:35

Оператор for. Таблица умножения / Pascal (Паскаль)

в форуме Информатика и Компьютерные науки

sfanter

2

1978

19 июл 2014, 05:27

Теория вероятности: задача про шары и задача про точку

в форуме Теория вероятностей

AdmiralAnanas

6

484

02 окт 2021, 01:43

Задача на построение. Корректна ли задача?

в форуме Геометрия

Student Studentovich

9

663

19 июл 2020, 19:17


Часовой пояс: UTC + 3 часа [ Летнее время ]



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 12


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  

Яндекс.Метрика

Copyright © 2010-2023 MathHelpPlanet.com. All rights reserved