Скачать: CL | DM;

Найти сумму елементов   Найти похожие ветки 

← →
Wor   (2007-10-27 01:44) [0]

Помогите с таким заданием

Найти сумму елементов столбика в котором находится
минимальный елемент. Данна матрица размером 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.

---

← →
DrPass ©   (2007-10-27 02:12) [1]

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

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

---

← →
Германн ©   (2007-10-27 02:29) [2]

Осталось только определиться который из индексов массива "столбик", а который "строчечка".
:)

---

← →
DrPass ©   (2007-10-27 02:39) [3]

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

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

---

← →
Германн ©   (2007-10-27 03:00) [4]

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

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

---

← →
Wor   (2007-10-27 10:31) [5]

НУ и как мне дальше искать. ТАк чтоли.

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

---

← →
Putnik   (2007-10-27 11:41) [6]

Изменить
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];

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c