Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Копирование текста из одного файла в другой последний доработки нужны этой программе: программа, должны выполнять следующие действия: 1) должна копировать из одного тхт информацию и помещать в другой 2) при двух подряд одинаковых строчках... а я вижу это как-то так) Согласен. Зачем массив, если имеем обычную последовательность строк. https://www.cyberforum.ru/ turbo-pascal/ thread237926.html Turbo Pascal Вывести номера цветов В окне на белом фоне вывести номера цветов каждый номер должен быть такого цвета который он обозначает помогите пожалуйста Вообще насколько я знаю в Турбо Паскале для фона можно выбрать цвет от 0 до 8, а белый имеет номер 15 и его установит нельзя. Поэтому предлагаю светло-серый. uses crt; var i:byte; begin... https://www.cyberforum.ru/ turbo-pascal/ thread237886.html
Turbo Pascal Перевод чисел в различные системы счисления https://www.cyberforum.ru/ turbo-pascal/ thread237825.html
Здраствуйте, помогите решить задачу перевести числа: Перевод целых чисел из 7 -> 10 -> 4 -> 2 вот кусок, считывает число в m-ричной системе, и выводит в n-ричной. буду благодарен за дебаг. var m, n, l, i, t: byte; r: cardinal; s, h: string; inf, outf: text; function pow(n, k: cardinal):...
Turbo Pascal Найти минимальное значение из цифр четырехзначного числа (целое от деления целых чисел, минимум из двух чисел) https://www.cyberforum.ru/ turbo-pascal/ thread237925.html
Привет всем, ребят выручайте, написать программу с использованием процедуры, как я понял то что в скобках нужно загнать в процедуру Сама задача: Найти минимальное значение из цифр четырехзначного... Найти минимальное значение из цифр четырехзначного числа (целое от деления целых чисел, минимум из двух чисел) Ты сам это понимаешь? Здесь что, 3 задачи? Или что за хрень в скобках написал...
Turbo Pascal Символьные файлы, подсчет наиболее встречаемых слов https://www.cyberforum.ru/ turbo-pascal/ thread237831.html
Даны символьный файл f, содержащий произвольный текст длиной более 5000 слов. Слова в тексте разделены пробелами и знаками препинания. Получит 100 наиболее часто встречающихся слов и частоту их... Даны символьный файл f, загружать файл txt, Сразу какая-то ерунда. Символьный файл это не текстовый, а типизированный file of char; Если файл текстовый, то в чем проблема? Считывайте его построчно...
Turbo Pascal Множества https://www.cyberforum.ru/ turbo-pascal/ thread237924.html
1. Дано три множества Х1, Х2, Х3, содержащие целые числа из диапазона 1 .. 100. Известно, что в каждой из множеств 10 элементов. Сформировать новое множество Y = (X1UX2) \ (X2  X3), из...
Распечатать фамилии рабочих бригады, начинающихся с буквы А и С с указанием из месячной зарплаты Turbo Pascal
помогите пожалуйста исправить код задачи. Распечатать фамилии рабочих бригады, начинающихся с буквы А и С с указанием из месячной зарплаты. program works; Uses Crt; Var F: Text; s: String;... while not EOF(F) do цикл есть, а считывания из файла нет. If (Rabochie= 'C') and (Rabochie= 'А') then заведомо ложное условие
Turbo Pascal Вывести всю информацию о студентах сдавших все экзамены на 4 и 5
Помогите.Срочно надо. известны следующие данные о стедентах:фамилия ,имя,отчество,номер группы и три оценки(по матанализу,по алгебре,по программированию).вывести всю информацию о студентах сдавших... uses crt; const max=30; type TStud=record fm,im,ot:string; gr:integer; mt,alg,prg:2..5; end; var sp:array of Tstud; n,i,j,k,p:integer; ...
Turbo Pascal Гуси-кролики... У гусей и кроликов вместе 64 лапы сколько может быть кроликов и гусей? uses crt; var i,j:byte; begin clrscr; writeln('Если у гусей и кроликов вместе 64 лапы, то их может быть:'); writeln('гуси кролики'); for i:=0 to 64 div 2 do for j:=0 to 64 div 4 do if... https://www.cyberforum.ru/ turbo-pascal/ thread237808.html Turbo Pascal формирование массива привет!помогите решить задачу: сформировать массив сведений о наличии учебников в библиотеке следующей структуры: автор,название,шифр книги,количество экземпляров,год издания. а) определить процент... https://www.cyberforum.ru/ turbo-pascal/ thread237834.html
Turbo Pascal pascal txt(ошибка в коде) программа, должны выполнять следующие действия: 1) должна копировать из одного тхт информацию и помещать в другой 2) при двух подряд одинаковых строчках между них выводил слово COPY program... Doctor_, держи program lab1; var InpFile, OutFile: text; InputString, OutputString, st, st2: string; OutFileName: string; https://www.cyberforum.ru/ turbo-pascal/ thread237902.html Заменить все элементы меньшие среднего арифметического на 0 Turbo Pascal
помогите написать программу которая организует ввод с клавиатуры одномерного массива целых чисел, заменяет все элементы меньшие среднего арифметического на 0 и выводит массив на экран for i:=1 to n do begin readln(arr); sr:=sr+arr; end; sr:=sr/n; for i:=1 to n do begin if arr<sr then arr:=0;
16 / 4 / 0
Регистрация: 21.12.2010
Сообщений: 29
0

алгоритм форда-беллмана в pascal - Turbo Pascal - Ответ 1341099

03.02.2011, 23:52. Показов 2411. Ответов 2
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Здравствуйте. Имеется у меня такой вопрос.
Вот есть алгоритм форда-беллмана
Pascal
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
79
80
81
82
83
84
85
86
87
88
89
90
91
{Bellman-Ford algorithm}
var a : array [1..20,1..20] of word;{matrica cmegnosti}
c, pred, fl, d : array [1..20] of word;{
c - massiv kratchayshih rastoyaniy
pred - massiv predidushih vershin
fl - massiv flagov
d - massiv dlya zapisi puti
}
 
i, j, k, n, first, last : byte;
f : text;{peremennaya dlya otkritiya file in.txt}
{procedura obhoda grafa vglub - dlya poiska vseh putey}
Procedure Dfs(x : word);
var i : byte;{lokalnay peremennaya}
begin
if x=last then {esli konechnaya vershina to vivodim put}
begin
write(first,' ');
for i:=1 to j do {vivodim put}
write(d[i],' ');
writeln;
exit;{vyhodim iz proceduri}
end;
fl[x]:=1;{pomechaem chto bili v vershine}
for i:=1 to n do
if (fl[i]=0)and(a[x,i]<>32767) then
begin
inc(j);
d[j]:=i;{zapisivaem v put vershiny}
dfs(i);{vizivaemsya ot i-oy vershini}
dec(j);
end;
fl[x]:=0;{pomechaem chto vershina svobodna}
end;
{Osnovnaya programma}
begin
assign(f,'in.txt');{otkrivaem file dlya chteniya}
reset(f);
readln(f, n);{shitivaem kol-vo vershin}
for i := 1 to n do
for j := 1 to n do
read(f, a[i,j]);{shitivaem matricy smegnosti}
writeln('Matrix:');
for i:=1 to n do  {vyvodim matricy na ekran}
for j:=1 to n do
if j=n then writeln(a[i,j]) else write(a[i,j],' ');
for i:=1 to n do {zamenyaem nuli - beskonechnostuy}
for j:=1 to n do
if a[i,j]=0 then a[i,j]:=32767;
writeln('Vvedite 1 vershiny');
readln(first);
writeln('Vvedite 2 vershiny');
readln(last);
close(f);{zakrivaem file in.txt}
for j := 1 to n do
begin
c[j] := a[first,j];{zapisivaem nachalnie znacheniya}
if a[first,j] < 32767 then
pred[j] := first;
end;
for i := 3 to n do
for j := 1 to n do
if j <> first then
for k := 1 to n do  {esli ne beskonechnost i put bolee vygodniy}
if (c[k] < 32767) and (c[k] + a[k,j] < c[j]) then
begin
c[j] := c[k] + a[k,j];{zapisivaem novoe znachenie}
pred[j] := k;{zapisivaem pred vershiny}
end;
if c[last] = 32767 then writeln('Net putey') else
begin
writeln;
writeln('Kratchaishiy put:');
write(first,' ');
i := last;
k := 1;
while i <> first do {v obratnom poryadke obhodim put}
begin
d[k] := i;{zapisivaem put v massiv}
k := k + 1;
i := pred[i];
end;
for i := k - 1 downto 1 do {vyvodim kratchayishiy put}
write(d[i],' ');
writeln;
writeln('Vse puti:');
j:=0;
Dfs(first);{vizivaem procedury poiska vseh putey}
end;
readln;readln;{gdem nagatiya klavishi}
end.
Вообщем он работает, но у меня взвешанный граф и как я понял этот алгоритм работает с не взвешанными графами.Как его переделать под взвешанный или может что то другое посоветуете???

Вернуться к обсуждению:
алгоритм форда-беллмана в pascal Turbo Pascal
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
03.02.2011, 23:52
Готовые ответы и решения:

ЗАдача форда-беллмана
Нужна помощь в решении трансортной задачи методом беллмана форда где нужно найти кратчайший путь на графиках с вершины 1 до любой другой...

Алгоритм Форда-Беллмана.
Поиск кратчайшего пути, а также обход в глубь для поиска всех путей.

Массивы, цикл, ветвление, лин.алгоритм Pascal
Привет всем! Помогите, ПОЖАЛУЙСТА, решить следующие задачи: 48. Задача на линейный алгоритм. 7. Задача на ветвление. 21. Задача на...

2
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
03.02.2011, 23:52
Помогаю со студенческими работами здесь

Составить алгоритм для квадратной матрицы.Pascal (Паскаль)
Помогите пожалуйста решить, очень надо!!! В заданной квадратной матрице размером 10 x 10 построить вектор длиной 19, элементы которого...

Разработать алгоритм и составить программу на языке программирования Pascal
Завтра экзамен, перерыл весь интернет. Помогите, пожалуйста. Хоть одну задачу решить. Заранее спасибо.

Алгоритм Беллмана-Форда
Здравствуйте. Может ли быть на входе доя алгоритма Беллмана-Форда граф, состоящий из ДВУХ вершин? Если да, то как обрабатывать этот...

Алгоритм Беллмана-Форда
В википедии описан такой алгоритм...

Алгоритм Форда-Беллмана
Доброго времени суток. Есть кривой код: #include &lt;iostream&gt; #include &lt;vector&gt; using namespace std; const int inf = 1555; struct...

0
Новые блоги и статьи
Создаем SPA Router на чистом JavaScript
bytestream 17.02.2025
В современной веб-разработке одностраничные приложения (SPA) стали стандартом для создания динамичных и отзывчивых пользовательских интерфейсов. Ключевым компонентом любого SPA является роутер -. . .
Машинное обучение на TypeScript и TensorFlow
bytestream 17.02.2025
Машинное обучение становится все более востребованным направлением в современной разработке программного обеспечения. Интеграция искусственного интеллекта в веб-приложения открывает новые возможности. . .
Манипуляция данными EXIF и JPEG в JavaScript
bytestream 17.02.2025
В современном мире цифровой фотографии метаданные изображений играют важнейшую роль в организации и управлении медиаконтентом. Формат EXIF (Exchangeable Image File Format) - это стандарт,. . .
Как создать GUID/UUID в JavaScript
bytestream 17.02.2025
GUID (Globally Unique Identifier) и UUID (Universally Unique Identifier) - это специальные форматы 128-битных идентификаторов, которые практически гарантируют уникальность значения во времени и. . .
Что такое мышление в упрощенном смысле (моё субъективное видение, для создания модели).
Hrethgir 17.02.2025
Разумеется упрощать смысл есть. Дело в том, что я пришёл к тому выводу, что даже если я создам свой процессор (конвейер), то первое для чего смогу его использовать в качестве демонстративного. . .
Как Node.js устроен изнутри
Wired 17.02.2025
Node. js коренным образом изменил подход к веб-разработке, позволив использовать JavaScript не только в браузере, но и на стороне сервера. Созданный в 2009 году Райаном Далем, Node. js представляет. . .
Как обновить Node.js в Windows
Wired 17.02.2025
Думаю, многие разработчики сталкивались с ситуацией, когда устаревшая версия Node. js становилась источником проблем - от несовместимости с новыми пакетами до уязвимостей в безопасности. Особенно это. . .
Как обновить Node.js в MacOS
Wired 17.02.2025
В Node. js существует несколько подходов к обновлению, каждый из которых имеет свои преимущества и особенности применения. Выбор конкретного метода зависит от ваших потребностей - будь то. . .
Как обновить Node.js в Linux
Wired 17.02.2025
Обновление Node. js может показаться сложной задачей, особенно если у вас несколько проектов с разными зависимостями. Однако существует несколько надежных способов обновления, подходящих для разных. . .
[golang] 134. Gas Station
alhaos 17.02.2025
Тут нам даны два целочисленных слайса gas и cost, индексы массива представляют собой заправочные станции. а элементы gas это количество топлива на такой станции, cost это количество топлива. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru