вторник, 23 июня 2009 г.

Разделить элементы k-й строки на диагональный элемент

Заданы матрица порядка n и число k. Разделить элементы k-й строки на диагональный элемент расположенный в этой строке. Двумерный массив.

сама соль такая

...
{делим элементы К-ой строки на диагональный элемент}
for i:=1 to N do begin
if a[i,i] = 0 then begin
writeln('внимание! деление на 0!');
break;
end;
a[K, i]:=round(a[K, i]/a[i,i]); {округляем до целого}
end;
...


ну а полный вариант программы можно скачать тут

Комментариев нет:

Отправить комментарий