Решите пожалуста задачи по Pascal - Форум на исходниках

WWW.ИСХОДНИКИ.РУ cpp.sources.ru

java.sources.ru web.sources.ru soft.sources.ru

jdbc.sources.ru asp.sources.ru api.sources.ru

  Форум на исходниках
  Pascal
  Решите пожалуста задачи по Pascal
СПРОСИТЬ  ОТВЕТИТЬ
профайл | регистрация | faq

Автор Тема:   Решите пожалуста задачи по Pascal

fallen опубликован 25-12-2001 01:16 MSK
вычислить большие корни квадратных
уравнений(все корни действительные)
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)
и эту прогу на тоже мыло перекиньте пожалуста.

Valery Votintsev опубликован 25-12-2001 11:21 MSK
Дорогой падший (fallen) друг!
Ну какая польза от того, что кто-то решит за тебя твои задачки?!
Не лучше ли попытаться сделать это самому?
Ведь только таким образом можно перейти из категории ламеров в разряд чайников, а затем и профи.
> зарание спосибо
Всигда пажалусто.
AndreyK опубликован 01-01-2001 20:43 MSK
1)Как это большие корни ?
2)Матрицы квадратные или любые ?
7in опубликован 01-01-2001 22:19 MSK
Нулевые элементы считаются обычным 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]
А что такое _большие_ корни я тоже не знаю...
СПРОСИТЬ  ОТВЕТИТЬ
Перейти:

E-mail | WWW.ИСХОДНИКИ.RU

Powered by: Ultimate Bulletin Board, Freeware Version 5.10a
Purchase our Licensed Version- which adds many more features!
© Infopop Corporation (formerly Madrona Park, Inc.), 1998 - 2000.

Автор	Тема: Решите пожалуста задачи по Pascal
fallen	опубликован 25-12-2001 01:16 MSK вычислить большие корни квадратных уравнений(все корни действительные) 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) и эту прогу на тоже мыло перекиньте пожалуста.
Valery Votintsev	опубликован 25-12-2001 11:21 MSK Дорогой падший (fallen) друг! Ну какая польза от того, что кто-то решит за тебя твои задачки?! Не лучше ли попытаться сделать это самому? Ведь только таким образом можно перейти из категории ламеров в разряд чайников, а затем и профи. > зарание спосибо Всигда пажалусто.
AndreyK	опубликован 01-01-2001 20:43 MSK 1)Как это большие корни ? 2)Матрицы квадратные или любые ?
7in	опубликован 01-01-2001 22:19 MSK Нулевые элементы считаются обычным 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] А что такое _большие_ корни я тоже не знаю...