Програмування . Мова Паскаль. Завдання Дискр. Метт Негайно .
І так, завдання потрібно виконувати на мові pascal.
Додатки 1
Результати роботи
Відгук замовника про співпрацю з Юрою Абрикосовим
Програмування . Мова Паскаль. Завдання Дискр. Метт Негайно .Дуже дякую, зробив дуже швидко. Я взяв за не дуже простий проект. Молодь
![]()
Відгук фрилансера про співпрацю з замовником
Програмування . Мова Паскаль. Завдання Дискр. Метт Негайно .Все пройшло успішно. Я рекомендую .
-
почему цена такая высокая? давайте сразу за еду
-
Я не понимаю, так ты же выбрал исполнителя...
Ты хочешь поручить одно и тоже задание 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. Він мені дуже сподобався, але там є недоліки. Є адмін панель, але вона відкривається вільно, але не закривається взагалі. Закривається тільки разом з додатком. А дані, після зміни в адмін панелі -… Десктопні додатки ∙ 7 днів 8 годин тому ∙ 10 ставок |
Розробка кастомного ПЗ (Android-додатка + CMS) для кіосків самообслуговування SUNMI K2 (Фастфуд)
1000 UAH
Шукаємо досвідчену команду або Middle/Senior Android-розробника (можливо, з Full-stack навичками) для створення власного програмного забезпечення для кіосків самообслуговування ритейл-мережі закладу швидкого харчування. Зараз наші термінали працюють на базі готового хмарного… CMS, Десктопні додатки ∙ 12 днів 4 години тому ∙ 23 ставки |