VPF::[Delphi] двумерный массив - Форум программистов

sketchh

Дата 19.3.2012, 21:11 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 11.3.2012

Репутация: нет
Всего: нет

Дан двумерный массив размером n*m, заполненный случайными числами из промежутка [-35,35]. Найти строку в которой сумма всех элементов является наименьшей, в этой строке найти максимальный элемент.

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
n:=strtoint(edit1.text);
m:=strtoint(edit2.Text);
setlength(a,n,m);
for i:=0 to n-1 do
for j:=0 to m-1 do
a[i,j]:=random(71)-35;
stringgrid1.rowcount:=n+1;
stringgrid1.colcount:=m+1;
with stringgrid1 do
begin
i:=0;
for j:=1 to rowcount do
cells[i,j]:=inttostr(j);
j:=0;
for i:=1 to colcount do
cells[i,j]:=inttostr(i);
end;
with stringgrid1 do
for i:=1 to n do
for j:=1 to m do
cells[j,i]:=inttostr(a[i-1,j-1]);
end;
// создан двумерный массив

bems

Дата 19.3.2012, 22:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 0
Всего: 88

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

--------------------

Обижено школьников: 8

IBS

Дата 19.3.2012, 22:48 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 214
Регистрация: 29.7.2008
Где: Белоруссия

Репутация: нет
Всего: 6

Цитата(sketchh @ 19.3.2012, 21:11

)

А код что делает, в чем косяк? что требутся?

sketchh

Дата 20.3.2012, 15:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 11.3.2012

Репутация: нет
Всего: нет

Цитата(IBS @ 19.3.2012, 22:48)

Цитата(sketchh @ 19.3.2012, 21:11

)

А код что делает, в чем косяк? что требутся?

Найти строку в которой сумма всех элементов является наименьшей, в этой строке найти максимальный элемент.
не знаю как это сделать :(

Mirkes

Дата 20.3.2012, 17:38 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 586
Регистрация: 18.8.2011
Где: Красноярск

Репутация: 4
Всего: 17

1. Вычисляете сумму элементов каждой строки.
2. Среди вычисленных сумм находите наименьшую
3. Определяете номер строки.
и т.д.
Примерно так

Код


  min=MaxInt; //здесь будет минимум
  minRow=-1;
  for i:=0 to n-1 do
  Begin
     sum:=0;
     for j:=0 to m-1 do
       sum:=sum+a[i,j];
     if sum<min then 
     begin
        min:=sum;
        minRow:=i;
     end;
  End;

После этого фрагмента кода Вы получите в min - минимальную сумму элементов строки.
В переменной minRow - номер строки, дающей эту сумму.
Потом найдете максимальный элемент в этой строке.

Что смущает в Вашем коде - там нет описания переменных. Они что, все глобальные?

--------------------

Mirkes

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »