Pascal. Массивы. 2 Задачи

Ответить
(kate)
Сообщения: 9
Зарегистрирован: 23 ноя 2008, 12:13

Ребята нужна помощь по лабе с массивами! Помогите, пожалуйста кто шарит :)

Представить математическую запись (+описание решения) фрагмента программы и вычислить значение переменной Х после его выполнения, если элементы массива определяются по формуле А[I+1]=(37*A+3) mod 64. Значение А[1] равно номеру
варианта (мой вариант 12).


Вот фрагмент программы:
N:=4; X:=A[1];
For J:=2 to N do
If A[J]<X then X:=A[J];


Вот всё, что я смогла сделать, только сомневаюсь в правильности:
X= A[1];
A[1]=12;
A[2]=(37*12+3) mod 64=63;
A[3]=(37*63+3) mod 64=30
A[4]=(37*30+3) mod 64=25

J=2, A[2]< A[1], X=A[1]=12;
J=3, A[3]< A[1], X=A[1]=12;
J=4, A[4]< A[1], X=A[1]=12.
Хыиуду
Сообщения: 2442
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

(kate) писал(а): Представить математическую запись (+описание решения) фрагмента программы и вычислить значение переменной Х после его выполнения, если элементы массива определяются по формуле А[I+1]=(37*A+3) mod 64. Значение А[1] равно номеру
варианта (мой вариант 12).


Вот фрагмент программы:
N:=4; X:=A[1];
For J:=2 to N do
If A[J]<X then X:=A[J];

Ужас какой-то...

Код: Выделить всё

A[1]:=12;
for i:=2 to N do А[i]=(37*A[i-1]+3) mod 64;

N:=4; X:=A[1];
For J:=2 to N do
If A[J]<X then X:=A[J];

writeln(x)
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
(kate)
Сообщения: 9
Зарегистрирован: 23 ноя 2008, 12:13

Ребята, помогите пожалуйста кто понимает "массивы" да и паскаль вообще (((

1) Представить математическую запись фрагмента программы и вычислить значение переменной Х после его выполнения, если элементы массива А (который описывается как var A:array [1..3,1..3] of integer; ) определяются по формулам А[L,M]=B (L, M=1, 2, 3; I=1, 2, … , 9) и B[I+1]=(37*B+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. Определить максимальный по модулю элемент каждой строки. Результаты записать в одномерный массив.

Заранее благодарна:-[
Хыиуду
Сообщения: 2442
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

1 - что-то где-то такое же было несколько недель назад. Ищите здесь же.
2. Проходим в цикле по всем строкам массива, в каждой строке находим максимум (см. раздел Алгоримты). Только проверка будет не вида if a>b, а вида if abs(a)>abs(b). Потом записать в одномерный массив под номером, соответствующим номеру строки.
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Аватара пользователя
Naeel Maqsudov
Сообщения: 2570
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

(kate), Я перенес сюда Ваш вопрос и ответ на него из другой темы. (они сюда легли, как сообщения #1 и #2)
Вам же уже ответили, зачем еще раз спрашивать?
Уточните, что было непнятно в первый раз.
Ответить