Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.11.2008, 15:26   #1
(Kate)
Пользователь
 
Регистрация: 23.11.2008
Сообщений: 12
По умолчанию Определить максимальный по модулю элемент каждой строки.

Снова прошу помощи по массивам, сдав предыдущую работу думала на этом и конец, а оказывается ещё одна лаба по массивам.

1) Представить математическую запись фрагмента программы и вычислить значение переменной Х после его выполнения, если элементы массива А (который описывается как var A:array [1..3,1..3] of integer; ) определяются по формулам А[L,M]=B[I] (L, M=1, 2, 3; I=1, 2, … , 9) и B[I+1]=(37*B[I]+3) mod 64 (I=1, 2, … , 8 ). Значение В[1] равно 12.
Фрагмент программы.
X:=A[1,3]; N1:=1; N:=3;
for I:=1 to N do
for J:=N-I+1 to N do
if X<A[I,J] then
begin X:=A[I,J];
N1:=I
end;

2) Дана квадратная матрица A порядка k. Определить максимальный по модулю элемент каждой строки. Результаты записать в одномерный массив.

Заранее благодарна:-[
(Kate) вне форума Ответить с цитированием
Старый 29.11.2008, 16:28   #2
YurVas
 
Регистрация: 27.11.2008
Сообщений: 5
По умолчанию

Задача 2 на скорую руку
program mas;
var a:array [1..100,1..100] of integer;
b:array [1..100] of integer;
i,j,k,max:integer;
begin
writeln ('vved k');
readln (k);
randomize;
writeln ('ishodnay tabl');
writeln;
for i:=1 to k do
begin
for j:=1 to k do
begin
a[i,j]:=-random(50)+25;
write (a[i,j],' ');
end;
writeln;
end;
for i:=1 to k do
begin
max:=abs(a[i,1]);
for j:=1 to k do
if max<abs(a[i,j]) then max:=abs(a[i,j]);
b[i]:=max;
end;
writeln ('polush tabl');writeln;
for i:=1 to k do
write (b[i],' ');
readln;
end.
YurVas вне форума Ответить с цитированием
Старый 29.11.2008, 21:05   #3
(Kate)
Пользователь
 
Регистрация: 23.11.2008
Сообщений: 12
По умолчанию

спасибо тебе большое=)
(Kate) вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
одномерный массив, каждый элемент которого равен наибольшему по модулю элементу соответствующего столбца ruslan09-93 Помощь студентам 2 15.11.2008 20:26
Максимальный элемент массива j_Q Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 0 04.11.2008 22:48
В каждой строке массива выбирается максимальный элемент sergeyfsd Общие вопросы Delphi 2 13.05.2008 00:10
найти минимальный элемент в каждой строке матрицы и записать все минимальные элементы в отдельный массив W_P Помощь студентам 6 28.12.2007 00:24
Функция которая в массиве ищет максимальный по модулю элемент Absent Помощь студентам 5 19.11.2007 21:23