ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
двойные массивы ( турбо паскаль ) |

28.12.2008, 22:55
|
|
Участник форума
Регистрация: 08.03.2007
Сообщений: 191
Провел на форуме: 4081574
Репутация:
214
|
|
двойные массивы ( турбо паскаль )
нужно хвост закрыть по двойным массивам 1 курс , щас лазил по инету , скачал с торрента самую сидируемую книжку по турбопаскалю и там нашёл тему по двойным массивам , но там до такой степени много лишнего , что я ещё не изучал , что пришлось тут спросить , посоветуйте что-нибудь почитать по двойным массивам для новичков , самое простенькое , например вот на такие примерно задачки на кр .
1) В массиве [4..6] найти ср. арифм. эл-тов каждого столбца и образовать из них одномерный массив Q[6] это как бе первый тип
2)В массив A[4..4] вычислить ср арифм. нечётных эл-ов расположенных на главной диагонале и max эл-т среди эелементов расположенных выше главной диагонали образовать одномерный массив D из отрицательных эл-тов массива A распр. на побочной диагонали .
Короче мне надо где -то почитать про побочные диагонали , как записать для элементов выше или ниже побочной итд. ну и в общем по двойным массивам
|
|
|

28.12.2008, 22:58
|
|
Участник форума
Регистрация: 08.03.2007
Сообщений: 191
Провел на форуме: 4081574
Репутация:
214
|
|
вот что-то записывали для побочных или для главных я не разобрался
if (i<j) and (A[i,j]>M) then M:=A[i,j];
|
|
|

28.12.2008, 23:13
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.12.2006
Сообщений: 195
Провел на форуме: 14023893
Репутация:
2163
|
|
1.
PHP код:
for i:=1 to 6 do
begin
for j:=1 to 4 do
b[i]:=b[i]+a[i,j];
b[i]:=b[i] / 4;
end;
2.1
PHP код:
for i:=1 to 4 do
sr:=sr+a[i,i];
sr:=sr/4;
2.2
PHP код:
temp:=a[1,2];
for i:=1 to 4 do
for j:=1 to 4 do
if (j<i) and (a[i,j]>temp) than
temp:=a[i,j]
|
|
|

28.12.2008, 23:28
|
|
Участник форума
Регистрация: 08.03.2007
Сообщений: 191
Провел на форуме: 4081574
Репутация:
214
|
|
а где б почитать про это всё
|
|
|

28.12.2008, 23:32
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.12.2006
Сообщений: 195
Провел на форуме: 14023893
Репутация:
2163
|
|
у посещающего пары одногрупника в лекционной тетрадке).
|
|
|
|
 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|