Нуждаюсь в решении этой задачи. kvikvek86@mail.ru
Задана система двусторонних дорог. Найти два города и соединяющий их путь, который проходит через каждую из дорог системы только один раз.
Задача про граф |
Начальные контакты ТОЛЬКО через личку!!
Задача про граф |
Kvikvek |
Сообщение
#1
|
Гость |
Нуждаюсь в решении этой задачи. kvikvek86@mail.ru
Задана система двусторонних дорог. Найти два города и соединяющий их путь, который проходит через каждую из дорог системы только один раз. |
klem4 |
Сообщение
#2
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
2.Разработать программу, предполагая заданной матрицу А из 5 строк и 5 столбцов.
Если средне арифметическое элементов C1, C2, …, C7 больше минимального элемента матрицы, уменьшить на величину последнего каждый из элементов C1, C2, …, C7. Если правильно понял условие, то что-то типат того: Код uses crt; const n=5; p=7; k=7; var a:array[1..n,1..n] of integer; c:array[1..p] of integer; i,j,s,min:integer; sr:extended; Begin clrscr; randomize; i:=1; j:=1; min:=a[i,j]; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(10); write(a[i,j]:2); write(' '); if a[i,j]<min then min:=a[i,j]; end; writeln; end; writeln; s:=0; for i:=1 to p do begin c[i]:=random(11); write(c[i]); write(' '); s:=s+c[i]; end; sr:=s/k; writeln; writeln('sr=',sr:2:2); writeln('a[i,j]min=',min); if sr>min then for i:=1 to p do begin c[i]:=c[i]+min; write(c[i]); write(' '); end; end. Сообщение отредактировано: klem4 - -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Текстовая версия | 29.04.2024 2:11 |