Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.07;
Скачать: CL | DM;

Вниз

Идет экзамен...нужен текст проги   Найти похожие ветки 

 
Vampire ©   (2003-06-19 06:16) [0]

Написать и оттестировать функцию.Двумерный массив вещественных переменных( типа MARTIX)с равным числом строк и столбцов. и возвращает произведение элементов массива лежащих на и выше побочной диагонали. массив:
2 3 8
4 5 9
1 6 7
произведение=960


 
Наталия ©   (2003-06-19 06:56) [1]

Напиши и оттестируй. В чём проблема?


 
Hooch ©   (2003-06-19 07:28) [2]

>> Vampire ©
ты случайно не из НГТУ ?


 
Rol   (2003-06-19 07:28) [3]

Побочная диагональ?! Новое слово в современной математике?!


 
Rol   (2003-06-19 07:36) [4]

Прошу прощения за оффтоп.
>Hooch а ты, случайно, не из Новосибирска? :)
Судя по твоему посту, ты из НГУ?!


 
Кен ©   (2003-06-19 07:46) [5]

> Rol
А ты случайно не его препод ?


 
Препод   (2003-06-19 08:28) [6]

Профессор канечна лапух, но аппаратура принём, повторяю: принём...


 
Жук ©   (2003-06-19 08:29) [7]

Что за диагональ такая ? Может "на и выше главной диагонали" ?


 
me2   (2003-06-19 09:23) [8]

Если предположить, что "побочная" - это антипод главной диагонали, то что-то типа этого

var
mas: array[1..3, 1..3] of Float;
i, j: Integer;
proiz: Float;
begin
proiz := 1;
for i := 1 to 3 do
for j := 1 to 3 do
if j >= i then
proiz := proiz * mas[i, j];
end.



 
Hooch ©   (2003-06-19 10:19) [9]

>> Rol я из Новосиба но не с НГУ :-) просто в НГТУ есть препод у которого "двумерный массив вещественных переменных( типа MARTIX)" - любимая фраза :-)


 
Препод   (2003-06-19 10:26) [10]

Да, да. И учти: matrix has you...


 
Bel ©   (2003-06-19 10:45) [11]

2 all: Главная диагональ идёт сверху-слева вниз-вправо. Побочная - сверху-справа вниз-влево.

2 > Vampire ©

const
n = 3;
var
mas: array[1..n, 1..n] of Float;
i, j: Integer;
result: Float;
begin
result := 1;
for i := 1 to n do
for j := 1 to (n - i + 1) do
result := result * mas[i, j];
end;</CODE



Страницы: 1 вся ветка

Текущий архив: 2003.07.07;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.016 c
11-20029
blackalex
2002-10-29 15:28
2003.07.07
@Gandalf : TMHFontDialog


1-20047
Aleksandr
2003-06-25 12:52
2003.07.07
Как присваивать PChar у нетипизированные значения?


14-20220
Till
2003-06-22 15:36
2003.07.07
EhLib for Delphi 7


14-20274
Yakudza
2003-06-18 14:45
2003.07.07
MIME multipart/mixed


3-19951
AkaSaint
2003-06-10 19:15
2003.07.07
Зачем в 3-звенке свой ADOConnection для каждого клиента?