Разное - Составление процедуры для определения минимального элемента матрицы

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

Разное - Составление процедуры для определения минимального элемента матрицы

Boney

Новый участник

Сообщения: 1
Благодарности: 0

Профиль | Отправить PM | Цитировать

Используя данную процедуру, определить значение минимального элемента заданной матрицы Q и если оно отличается от нуля, то увеличить каждыйэлемент главной диагонали матрицы на модуль этого значения.В противном случаи отпечаталь сообщение ('Элемент не равен нулю')

0.8 -4 1.8
Q= - 3.1 0 2.0 {матрица Q (3 на 3)}
9.42 19.5 -1

Отправлено: 21:50, 27-05-2008

engwar

Новый участник

Сообщения: 34
Благодарности: 8

Профиль | Отправить PM | Цитировать

Язык ты не уточнял, так что пример на паскале

Пусть Q - глобальная переменная типа array [1..3, 1..3] of integer

procedure p1
var
i, j : byte ;
min : real ;
begin
min := Q[1,1];
for i := 1 to 3 do
for j:= 1 to 3 do
if Q[i,j] < min then min := Q[i,j]
if min = 0 then writeln('Зачение = 0')
else for i := 1 to 3 do Q[i,i] := Q[i,i]+abs(min)
end;

Отправлено: 22:39, 27-05-2008 | #2