VPF::[Delphi] Сформировать массив из наименьших

Alex103

Дата 15.11.2006, 23:23 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 416
Регистрация: 5.1.2005
Где: Украина, г. Харьк ов

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

Дана такая задача нужно сформировать из двумерного массива одномерный. Задание в приложении!
помогите пожалуйста мне завтра модуль сдавать!

Присоединённый файл ( Кол-во скачиваний: 8 )

2.JPG 16,03 Kb

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

Мой адресс не дом и не улица, мой адресс WWW

anwe

Дата 16.11.2006, 00:03 (ссылка)

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

Загрузка ...

Опытный

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

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

Код


var
b:array[1..3]of Real;
min:Real;
i,j:Byte;
const
a:array[1..3,1..3]of Real=((3,-5,7),(1,1.5,15),(45,-1,8));
begin
for i:=1 to 3 do
        begin
        min:=a[i,1];
        for j:=2 to 3 do
        if a[i,j]<min then
        min:=a[i,j];
        b[i]:=min;
        end;
end;

Alex103

Дата 16.11.2006, 00:50 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 416
Регистрация: 5.1.2005
Где: Украина, г. Харьк ов

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

Цитата(anwe @ 16.11.2006, 00:03)

Код


var
b:array[1..3]of Real;
min:Real;
i,j:Byte;
const
a:array[1..3,1..3]of Real=((3,-5,7),(1,1.5,15),(45,-1,8));
begin
for i:=1 to 3 do
        begin
        min:=a[i,1];
        for j:=2 to 3 do
        if a[i,j]<min then
        min:=a[i,j];
        b[i]:=min;
        end;
end;

Такой вариант не подходит пото-му что у меня начальный массив дан двумерный! Это вопервых а во вторых нужна другая идея!

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

Мой адресс не дом и не улица, мой адресс WWW

anwe

Дата 16.11.2006, 02:10 (ссылка)

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

Загрузка ...

Опытный

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

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

Alex103, а ты хоть внимательно посмотрел код?
Вот он двумерный массив:

Код

const
a:array[1..3,1..3]of Real=((3,-5,7),(1,1.5,15),(45,-1,8));

А какая другая идея? Эта что ль?

Код


var
...
//min:Real;
m:Real;        //вместо строки выше
...
for i:=1 to 3 do
        begin
        m:=Min(a[i,1],a[i,2]);
        b[i]:=Min(m,a[i,3]);
        end;

Это сообщение отредактировал(а) anwe - 16.11.2006, 02:20

Всемогущий

Дата 16.11.2006, 06:08 (ссылка)

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

Загрузка ...

Опытный

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

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

задача (по русски )звучит так:
найти норму матрици?

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

Цитата(smartov @ 16.1.2007, 13:26

)

Видел я PHP код, который пишут наСильники, никогда на php не писавшие :D То еще зрелище. Все пытаются сделать руками и через ж (как в С привыкли). Все пытаются память освобождать итд итп.

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