Нужна помощь. Матрицы. Паскаль
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя |
Сообщение |
<< Старые топики Новые топики >> |
|
|
Нужна помощь. Матрицы. Паскаль - 2010-10-31 12:56:34.963333
|
|
|
MarSeR
Сообщений: 375
Оценки: 0
Присоединился: 2010-07-13 13:16:33.393333
|
Доброго времени суток. Помогите, пожалуйста, решить пару задач по Turbo Pascal quote:
1. В каждом из массивов Х и У найти количество элементов по модулю больших сумме положительных элементов. Матрицы произвольные. 2. Для каждого столбца заданной матрицы А определить сумму элементов, лежащих ниже главной диагонали. В виде благодарности могу предложить ICQ 6dig. Заранее спасибо отклинувшемся.
|
|
|
RE: Нужна помощь. Матрицы. Паскаль - 2010-10-31 13:03:06.693333
|
|
|
Sрam
Сообщений: 2863
Оценки: 372
Присоединился: 2009-01-16 15:23:43.276666
|
Синтаксиса в упор уже не помню, но у 1 задачи алгоритм такой: 1.Заполняем матрицу Х 2.в цикле считаем сумму положительных элементов 3. в цикле смотрим числа по модулю и если они больше суммы то счетчик плюс 1 Аналогично для матрицы Y 2 задачу сейчас накалякаю..
|
|
|
RE: Нужна помощь. Матрицы. Паскаль - 2010-10-31 13:22:23.513333
|
|
|
MarSeR
Сообщений: 375
Оценки: 0
Присоединился: 2010-07-13 13:16:33.393333
|
Пример выолненной первой задачи. Надо отредактировать под условие задачи только процедуру обработки. Я бы и сам попробовал, но голова что-то после вчерашнего хеллоуина плохо соображает)
PROGRAM LAB4a;
USES CRT;
CONST N1=5; M1=4; N2=4; M2=3;
TYPE MATR=ARRAY[1..N1,1..M1] OF REAL;
VAR A,B:MATR; I,J:INTEGER;
PROCEDURE VVOD(VAR X:MATR;K,L:INTEGER);
BEGIN
WRITELN(' ВВЕДИТЕ МАТРИЦУ ',K:2,' х ',L:2);
FOR I:=1 TO K DO
BEGIN
WRITELN(I:2,' -Я СТРОКА');
FOR J:=1 TO L DO READ(X[I,J]);
WRITELN;
END;
END;
PROCEDURE VIVOD(VAR X:MATR;K,L:INTEGER);
BEGIN
WRITELN(' ИСХОДНАЯ МАТРИЦА ');
FOR I:=1 TO K DO
BEGIN
FOR J:=1 TO L DO WRITE(X[I,J]:5:2,' ');
WRITELN;
END;
WRITELN;
END;
PROCEDURE OBRAB(X:MATR;K,L:INTEGER);
VAR MIN:REAL; IMIN,JMIN:INTEGER;
BEGIN
MIN:=10E30; IMIN:=0; JMIN:=0;
FOR I:=1 TO K DO
FOR J:=1 TO L DO
IF (X[I,J]>0) AND (X[I,J]<MIN) THEN
BEGIN
MIN:=X[I,J]; IMIN:=I; JMIN:=J;
END;
IF IMIN=0 THEN WRITELN(' ПОЛОЖИТ. НЕТ') ELSE
BEGIN
WRITELN('МИНИМ. ПОЛОЖИТ. = ',MIN:6:2);
WRITELN(' СТРОКА -',IMIN:2,' СТОЛБЕЦ - ',JMIN:2);
END;
WRITELN;
END;
BEGIN
CLRSCR;
VVOD(A,N1,M1);
VVOD(B,N2,M2);
CLRSCR;
WRITELN('МАТРИЦА А'); VIVOD(A,N1,M1); OBRAB(A,N1,M1);
WRITELN('МАТРИЦА B'); VIVOD(B,N2,M2); OBRAB(B,N2,M2);
READKEY;
END.
|
|
|
RE: Нужна помощь. Матрицы. Паскаль - 2010-10-31 13:28:04.093333
|
|
|
Sрam
Сообщений: 2863
Оценки: 372
Присоединился: 2009-01-16 15:23:43.276666
|
2 задача Вроде работать должна (Это сам алгортим перед его использованием все объявляешь и инициализируешь массив а[]) begin for i:=1 to n do begin summ:=0; for j:=i+1 to n do begin summ:=summ+a[i,j]; Writeln(summ); end; end;
|
|
|
RE: Нужна помощь. Матрицы. Паскаль - 2010-10-31 13:35:31.773333
|
|
|
Sрam
Сообщений: 2863
Оценки: 372
Присоединился: 2009-01-16 15:23:43.276666
|
Чет на счет 1 задачи вообще не туда пошел… я же тебе алгоритм дал…
|
|
|
RE: Нужна помощь. Матрицы. Паскаль - 2010-10-31 13:39:56.690000
|
|
|
MarSeR
Сообщений: 375
Оценки: 0
Присоединился: 2010-07-13 13:16:33.393333
|
quote:
Чет на счет 1 задачи вообще не туда пошел… я же тебе алгоритм дал… С алгоритмом разобрался, спс. А что я выложил, это просто пример выполненной задачи но с другим условием. Думал, может понадобиться)
|
|
|
RE: Нужна помощь. Матрицы. Паскаль - 2010-10-31 13:49:33.353333
|
|
|
Sрam
Сообщений: 2863
Оценки: 372
Присоединился: 2009-01-16 15:23:43.276666
|
2 задача тоже готова) тебе её ввиде процедуры оформить?
|
|
|
RE: Нужна помощь. Матрицы. Паскаль - 2010-10-31 14:03:19.083333
|
|
|
MarSeR
Сообщений: 375
Оценки: 0
Присоединился: 2010-07-13 13:16:33.393333
|
quote:
2 задача тоже готова) тебе её ввиде процедуры оформить? 2 задачу я уже оформил. Вроде работает) Я бы не отказался от 1 оформленной по примеру. А то с алгоритмом разобрался, а вот с составление процедуры будет как-то сложнее)
|
|
|
RE: Нужна помощь. Матрицы. Паскаль - 2010-10-31 14:28:22.393333
|
|
|
Sрam
Сообщений: 2863
Оценки: 372
Присоединился: 2009-01-16 15:23:43.276666
|
Т.е. процедуру обработки первой задачи я через часок другой выложу….
|
|
|
RE: Нужна помощь. Матрицы. Паскаль - 2010-10-31 14:45:43.760000
|
|
|
MarSeR
Сообщений: 375
Оценки: 0
Присоединился: 2010-07-13 13:16:33.393333
|
quote:
Т.е. процедуру обработки первой задачи я через часок другой выложу…. Ок. Спс тебе
|
|
|
RE: Нужна помощь. Матрицы. Паскаль - 2010-10-31 16:09:31.566666
|
|
|
Sрam
Сообщений: 2863
Оценки: 372
Присоединился: 2009-01-16 15:23:43.276666
|
Личку проверь!
|
|
|
RE: Нужна помощь. Матрицы. Паскаль - 2010-10-31 16:33:13.960000
|
|
|
MarSeR
Сообщений: 375
Оценки: 0
Присоединился: 2010-07-13 13:16:33.393333
|
quote:
Личку проверь! Спасибо! Вставил твою процедуру в готовый вариант и немного подкорректировал. Всё работает! Ещё раз спасибо :)
|
|
|
RE: Нужна помощь. Матрицы. Паскаль - 2010-10-31 16:57:52.550000
|
|
|
Sрam
Сообщений: 2863
Оценки: 372
Присоединился: 2009-01-16 15:23:43.276666
|
Всегда пожалуйста.;)
|
|
|
|
|