Страница 1 из 1
Девочка просит помощи:)
Добавлено: 06 апр 2007, 11:40
Небо Принстона
С помощью процедур и функций надо решить вот эту задачу
Спасайте ребята!! Ну ни фига не понимаю.
Для заданной матрицы размером 1010 найти такие k, что k-я строка совпадает с k-м столбцом.
Re: Новое испытание:)
Добавлено: 06 апр 2007, 13:45
Хыиуду
Функция, которая считает, совпадает ли k-я строка с k-м столбцом
function sovpad(k:integer):boolean;
begin
sovpad:=(A[k,1]=A[1,k]) and (A[k,2]=A[2,k]) and {и так далее, надеюсь, закономерность понятна} and (A[k,10]=A[10,k]);
end;
Собственно, все
осталось только со помощью функции проверить все 10 значений
Re: Новое испытание:)
Добавлено: 06 апр 2007, 14:09
somewhere
Ай, как не рационально!
Код: Выделить всё
function sovpad(k:integer):boolean;
var x:Integer;
begin
sovpad := true;
For x:=1 to 10 do sovpad:=sovpad and (A[k,x]=A[x,k]);
end;
Re: Новое испытание:)
Добавлено: 09 апр 2007, 11:27
Хыиуду
somewhere писал(а):Ай, как не рационально!
Знаю, зато пишется методом Ctrl-Ins, Shift-Ins и работает быстрее на несколько миллисекунд
Иногда, когда цикл короткий, тянет обойтись без него
Кстати, somewhere, для вящей скорости в цикле не мешало бы еще сделать break, как только sovpad обратится в false