Страница 1 из 1
Pascal. Массивы. 2 Задачи
Добавлено: 24 ноя 2008, 09:47
(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];
Вот всё, что я смогла сделать, только сомневаюсь в правильности:
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.
Re: Paskal.3 задачи.
Добавлено: 25 ноя 2008, 19:38
Хыиуду
(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)
Pascal. Массивы. 2 Задачи
Добавлено: 29 ноя 2008, 15:24
(kate)
Ребята, помогите пожалуйста кто понимает "массивы" да и паскаль вообще (((
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. Определить максимальный по модулю элемент каждой строки. Результаты записать в одномерный массив.
Заранее благодарна:-[
Re: Pascal. Массивы. 2 Задачи
Добавлено: 30 ноя 2008, 17:19
Хыиуду
1 - что-то где-то такое же было несколько недель назад. Ищите здесь же.
2. Проходим в цикле по всем строкам массива, в каждой строке находим максимум (см. раздел Алгоримты). Только проверка будет не вида if a>b, а вида if abs(a)>abs(b). Потом записать в одномерный массив под номером, соответствующим номеру строки.
Re: Pascal. Массивы. 2 Задачи
Добавлено: 30 ноя 2008, 21:26
Naeel Maqsudov
(kate), Я перенес сюда Ваш вопрос и ответ на него из другой темы. (они сюда легли, как сообщения #1 и #2)
Вам же уже ответили, зачем еще раз спрашивать?
Уточните, что было непнятно в первый раз.