Не могу довести до ума задачу в Паскале. Кому неспицца?) - Помощь студентам

Ilotoshka · 24.11.2010, 04:30

Задание: Дана кв. матрица. Транспонировать матрицу, если суммы элементов строк различны.
Я не пойму как сравнить суммы?!
Вот что пока что есть...

Naive · 24.11.2010, 05:02

S - массив сумм строк; N - его длина; trans - просудура транспонирования(ну, или функция)

Код:

rez:=true;
for i:=1 to N do
for j:=1 to N do
if ((i<>j)and(S[i]=S[j])) then rez:=false;
if rez then trans;

т.е. когда мы найдем первые одинаковые значения сумм строк, rez станет фолс, если не найдем вовсе - не станет=)

Ilotoshka · 24.11.2010, 05:18

всё гениальное просто.

24.11.2010, 05:02	#2
Naive Раздолбайских Дел Старожил Регистрация: 22.05.2009 Сообщений: 3,828	S - массив сумм строк; N - его длина; trans - просудура транспонирования(ну, или функция) Код: `rez:=true; for i:=1 to N do for j:=1 to N do if ((i<>j)and(S[i]=S[j])) then rez:=false; if rez then trans;` т.е. когда мы найдем первые одинаковые значения сумм строк, rez станет фолс, если не найдем вовсе - не станет=) Alar, верни репу!

24.11.2010, 05:18	#3
Ilotoshka Новичок Джуниор Регистрация: 24.11.2010 Сообщений: 2	Всё! Спасибо ОГРОМНОЕ :) всё гениальное просто.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Не могу фильтр на форме довести до ума. Помогите пожалуйста.	lg140980bav	Microsoft Office Access	5	28.11.2009 18:31
Помогите довести до ума	andresan	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	2	27.11.2009 07:46
Помогите довести до ума две процедуры!	Mr.User	Помощь студентам	9	28.11.2007 10:21