Программирование. язык Pascal. Задание Дискр. Мат. Срочно.
212 UAHСамостоятельная работа № 5.Тема. Способы представления графа числовым массивом.Задание. Граф задан в виде числового массива A, требуется представить его в виде массива B. Мой номер в журнале 5. Сроки сжаты, работу нужно представить до завтра. Подробнее о задании смотрите прикрепленный файл.
И да, задание требуется выполнить на языке pascal.
Приложения 1
Результаты работы
Отзыв заказчика о сотрудничестве с Юрой Абрикосовым
Программирование. язык Pascal. Задание Дискр. Мат. Срочно.Спасибо большое, выполнил очень оооочень быстро. Взялся за не очень простой проект. Молодец
![]()
Отзыв фрилансера о сотрудничестве с заказчиком
Программирование. язык Pascal. Задание Дискр. Мат. Срочно.Всё прошло успешно. Рекомендую.
-
почему цена такая высокая? давайте сразу за еду
-
Я не понимаю, так ты же выбрал исполнителя...
Ты хочешь поручить одно и тоже задание 2-м человекам?
-
А ты вообще теорию знаешь?
Я просмотрел методичку и отметил для себя, что я в этой теории ничего не понимаю, много незнакомых слов. Что такое ПИЭ-1, ПИМ-1 , ИБ-2. Что такое "А" "F"?
"A" - смежности? А необходимо представить, один и тот же граф, в виде "F"?
-
Я попробую запрограммировать на Паскале то, что но описал.
-
Вроде набросал.
program D_H;
Type
vector_F=array [1..5] of integer;
matrix_D=array [1..5,1..5] of integer;
matrix_H=array [1..5,1..6] of integer;
Var
F : vector_F;
D : matrix_D;
H : matrix_H;
i,j,k: integer;
M,N: integer;
v: integer;
Begin
M:=5;
N:=6;
D[1,1]:=0;D[1,2]:=0;D[1,3]:=0;D[1,4]:=0;D[1,5]:=0;
D[2,1]:=4;D[2,2]:=0;D[2,3]:=0;D[2,4]:=0;D[2,5]:=0;
D[3,1]:=1;D[3,2]:=4;D[3,3]:=0;D[3,4]:=0;D[3,5]:=0;
D[4,1]:=1;D[4,2]:=0;D[4,3]:=0;D[4,4]:=0;D[4,5]:=0;
D[5,1]:=3;D[5,2]:=4;D[5,3]:=0;D[5,4]:=0;D[5,5]:=0;
writeln ('Matrix D:');
for i:=1 to M do
begin
for j:=1 to M do
begin
write (' ');
write (D[i,j]);
end;
writeln;
end;
writeln;
for i:=1 to M do
begin
F[i]:=0;
for j:=1 to M do
begin
H[i,j]:=0;
end;
end;
k:=1;
for i:=1 to M do
begin
for j:=1 to M do
begin
If D[i,j]>0 then
begin
v:=D[i,j];
F[i]:=F[i]+1;
H[i,F[i]]:=k;
F[v]:=F[v]+1;
H[v,F[v]]:=-k;
k:=k+1;
end;
end;
end;
writeln ('Matrix H:');
for i:=1 to M do
begin
for j:=1 to M do
begin
write (' ');
write (H[i,j]);
end;
writeln;
end;
writeln;
End.
В результате номера ветвей не те, что ты определил:

Можно ли в "D" заменить нумерацию ветвей?
А где в "D" шифруется нумерация ветвей?
-
Я не понял, а это что было?
-
Актуальные фриланс-проекты в категории Десктопные приложения
Модификация в работе эмулятора
2000 UAH
Здравствуйте. Я скачал с Интернета эмулятор игрового автомата gaminator cf final. Он мне очень понравился, но там есть недочёты. Есть админ панель, но она открывается свободно, но не закрывается вообще. Закрывается только вместе с приложением. А данные, после изменения в админ… Десктопные приложения ∙ 5 дней 16 часов назад ∙ 10 ставок |
Разработка кастомного ПО (Android-приложения + CMS) для киосков самообслуживания SUNMI K2 (Фастфуд)
1000 UAH
Ищем опытную команду или Middle/Senior Android-разработчика (возможно, с Full-stack навыками) для создания собственного программного обеспечения для киосков самообслуживания сети заведений быстрого питания. Сейчас наши терминалы работают на базе готового облачного интегратора,… CMS, Десктопные приложения ∙ 10 дней 11 часов назад ∙ 23 ставки |