Форум на Исходниках.RU

Решите пожалуста задачи по Pascal

Jin X — Mon, 01 Jan 2001 19:19:00 +0000

Jin X: Нулевые элементы считаются обычным For:
Procedure Zeros(N, M: Integer; var ZA, ZD: Integer);
Var i, j: Integer
Begin
ZA := 0;
ZD := 0;
For i := 1 to N do
For j := 1 to M do
Begin
If A[i,j] = 0 then Inc(ZA);
If D[j,i] = 0 then Inc(ZD)
End
End;
В результате ZA получает кол-во нулей в A[n,m] , а ZD - в D[m,n]
А что такое _большие_ корни я тоже не знаю...

Решите пожалуста задачи по Pascal

AndreyK — Mon, 01 Jan 2001 17:43:00 +0000

AndreyK: 1)Как это большие корни ?
2)Матрицы квадратные или любые ?

Решите пожалуста задачи по Pascal

vot — Tue, 25 Dec 2001 08:21:00 +0000

vot: Дорогой падший (fallen) друг!
Ну какая польза от того, что кто-то решит за тебя твои задачки?!
Не лучше ли попытаться сделать это самому?
Ведь только таким образом можно перейти из категории ламеров в разряд чайников, а затем и профи.
> зарание спосибо
Всигда пажалусто.

Решите пожалуста задачи по Pascal

fallen — Mon, 24 Dec 2001 22:16:00 +0000

fallen: вычислить большие корни квадратных
уравнений(все корни действительные)
x^2-ax+b=0
cy^2-dy-f=0
решить спомошью Function
и пошлите пожалйста эту прогу на
mf.fallen.m7@mail.ru
зарание спосибо
Подсчитать количество 0-ых элементов для матриц A[n,m]и D[m,n]
где n<=20,m<=20(решить спомошью Procedure)
и эту прогу на тоже мыло перекиньте пожалуста.