Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Найти сумму елементов [D6, D7, Win95/98, WinXP]

Wor © (2007-10-27 01:44:00)
Помогите с таким заданием

Найти сумму елементов столбика в котором находится
минимальный елемент. Данна матрица размером 3х3.

Вот моя программка. Я нахожу минимальный елемент,
но я незнаю как в этом столбике подсичитать сумму.
Как это сделать?

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
matrix : array [1..3,1..3] of Integer;
i,j,min: Integer;

begin

// Заполняю матрицу

for I := 1 to 3 do
for j := 1 to 3 do
begin
write('M','[',i,',',j,'] = ');
readln(matrix[i,j]);
end;

// пусть первый елемент будет минимальный

min := matrix[1,1];

// поиск минимального елемента

for I := 1 to 3 do
for j := 1 to 3 do
begin
if min > matrix[i,j] then min := matrix[i,j];
end;

writeln('min = ',min);

readln;
end.

Putnik (2007-10-27 11:41:00) [1]
Изменить
if min > matrix[i,j] then min := matrix[i,j];
на
if min > matrix[i,j] then begin min := matrix[i,j];index:=j;end;

А дальше
S:=0;
for I := 1 to 3 do
S := S + matrix[i,index];

Wor (2007-10-27 10:31:00) [2]
НУ и как мне дальше искать. ТАк чтоли.

for I := 1 to 3 do
S := S + matrix[i];

Германн (2007-10-27 03:00:00) [3]

> DrPass © (27.10.07 02:39) [3]
>
>
> > Германн © (27.10.07 02:29) [2]
>
> I - это столбик. Это инь и янь программирования!
>

В программировании нет этих терминов. Программирование слишком далеко от философии, тем более китайской. Или не дай боже японской! :-)

DrPass (2007-10-27 02:39:00) [4]

> Германн © (27.10.07 02:29) [2]

I - это столбик. Это инь и янь программирования!

Германн (2007-10-27 02:29:00) [5]
Осталось только определиться который из индексов массива "столбик", а который "строчечка".
:)

DrPass (2007-10-27 02:12:00) [6]

> Вот моя программка. Я нахожу минимальный елемент

Когда сохраняешь элемент, вместе с ним сохраняй и номер его столбца. Вот по этому номеру потом будешь считать сумму

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »