Паскаль

← →
Chainic (2008-03-11 21:37) [0]

Спасите меня!
Привет всем!
Дана квадратичная матрица А(?,?). Составить программу подсчета количества элементов расположенных ниже гл.диагонали. Использовать функции.
program fun;
uses crt;
const N=3;
type
tArr=array[1..N,1..N] of integer;
var Massiv:tArr;
i,j,k,a: integer;
Function kol(const Mas:tArr; i,j,k: integer):integer;
var a:integer;
begin
k:=0;
for i:=1 to N do for j:=1 to N do if(i>j) and (Mas[i,j]<0) then
begin
k:=k+1;
exit;
end;
end;

begin randomize;

for i:=1 to N do for j:=1 to N do
begin read (massiv[i,j]);
write("",Massiv[i,j]);
end;
a:=kol(Massiv,N);
writeln;
writeln ("аҐ§г«мв в"); writeln(a);
readkey;
end.

что не так?

← →
MetalFan © (2008-03-11 22:00) [1]

на лекции надо было ходить)
только зачем бегать по матрице, если можно формулой обойтись?

← →
MetalFan © (2008-03-11 22:01) [2]

и в догонку

> что не так?

а что не так? тебе виднее

← →
palva © (2008-03-11 22:05) [3]

> на лекции надо было ходить)
> только зачем бегать по матрице, если можно формулой обойтись?

Это еще вопрос. Он же написал не квадратная матрица а квадратичная. Здесь наверняка какой-то подвох. Пусть сначала по человечески объяснит задачу и выложит по человечески отформатированный код без крязозябр.

← →
Servy (2008-03-11 22:55) [4]

> что не так?

Все не так. Функция kol возвращает неопределенное значение для начала :).

Для квадратной матрицы N на N, количество элементов (строго) ниже главной диагонали будет (N * N - N) / 2 вне зависимости от содержимого матрицы (как это не удивительно).

← →
Amoeba © (2008-03-12 01:04) [5]

Способ решения задачи автором вопроса достоин орешника. Просто "шедевр"!
Трудно встретить более перректальный подход при решении элементарнейшей задачи школьного уровня.

Умри достойно.

IncDay все равно круче.

Паскаль Найти похожие ветки