Интересная задача(поиск подобных столбцов матрицы)

[lolchto228]

ребят дана матрица 3 строки - 11 столбцов

столбцы упорядочены по возрастанию элементов

необходимо найти количество подобных столбцов в этой матрице

[min@y™]

подобных столбцов

что это значит?

[lolchto228]

Пропорциональных
то есть элементы одного столбца пропорциональны элементам другого

[Stilet]

то есть элементы одного столбца пропорциональны элементам другого

так что ли?:

function Propo(a:Array;N,ColA,ColB:Integer):Boolean; var i:integer; e:double;
begin
 Result:=False;
 e:=a[1,ColA]/a[1,ColB];
 for i:=1 to N do if abs(a[i,ColA]/a[i,ColB]-e)>0.001 then exit;
 Result:=True;
end;

Где
Array=array of double of double;
ColA, ColB - Проверяемые столбцы
N - Кол-во строк.

[Аватар]

Еще бы на нуль не мешало проверить. Столбцы 0,1,2 и 0,3,6 подобны или нет? Если подобны, то нуль все развалит

[Stilet]

Точняк, я не подумал.

[lolchto228]

Спасибо, можете это же написать на паскале или на фортране, да и попроще как-нибудь(в блок схемах вообще шикарно было бы）
количество строк у нас 3, а вот столбцов 11

[Stilet]

можете это же написать на паскале

Да легко: http://www.programmersforum.ru/showp...12&postcount=4

в блок схемах вообще шикарно было бы

Сего не производим...