![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
Redlle |
![]() ![]()
Сообщение
#1
|
![]() Группа: Пользователи Сообщений: 2 Пол: Мужской Репутация: ![]() ![]() ![]() |
Здравствуйте. Спасибо, что заглянули.
Вот условие задачи по которой будет вопрос: " Имеется k селений. Если в селении i расположена больница, то поездка в се- ление j займет время a[i, j] . Найти номер селения, в котором выгоднее всего разместить больницу (суммарное время поездок из него во все другие селения должно быть минимальным). " Так вот. Что-то не получается занулить элементы матрицы по диагонали. т.е. у которых как я думаю i=j. Для чего это нужно, объясняю в виде алгоритма с примером: 1) Задаем случайным образом массив. 1/2/3 это как пример селений. ___1 2 3 1__1 7 3 2__5 6 8 3__2 3 7 2) Зануляем массив по диагонали. (i=j) {На примере, из села 1 в село 1 расстояние 0} ___1 2 3 1__0 7 3 2__5 0 8 3__2 3 0 3) Складываем элементы в каждой строке. ___1 2 3 1__0 7 3 {0+7+2=9} 2__5 0 8 {5+0+8=13} 3__2 3 0 {2+3+0=5} 4)Выводим результат суммы каждой строки ввиде Расстояние 1 =... Селение 1 расстояние 9 Селение 2 расстояние 13 Селение 3 расстояние 5 5) Находим из суммы min и выводим его как кратчайшее расстояние в котором и надо построить больницу. селение 3 расстояние 5 - минимально, строим больницу. Program ex;
Const max=10;
Var i,j,k,n:integer;
A: array [1..max,1..max] of real;
BEGIN
{A_Enter}
RANDOMIZE;
WriteLn('Введите размер массива < 10.');
ReadLn(n);
for i:=1 to n do
for j:=1 to n do
A[i,j]:=random(10);
If i=j then j:=0; i:=0; {не знаю как занулить}
{A_Output}
WriteLn('Селения');
for i:=1 to n do
Begin
WriteLn;
for j:=1 to n do
Write(A[i,j]
0);
End;
ReadLn;
END.
Вообщем: пункты 2 и 3 не получается сделать, над 3тьим думал, но пока еще что-то не пришла мысль как сложить их можно. Помогите пожалуйста, буду очень благодарен ![]() Сообщение отредактировано: Redlle - 20.12.2010 19:23 |
![]() ![]() |
![]() |
Текстовая версия | 28.07.2025 13:16 |