![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
Замарочка |
![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 9 Пол: Мужской Реальное имя: Михаил Репутация: ![]() ![]() ![]() |
Помогите доделать задачку...
Условие Ввести 3 вещественные матрицы a,b,c размером 3 на 5. Найти максимальные элементы в каждой строке каждой матрицы, произвести вычисление: z=(|сумма макс. элементов первых строк|+|сумма макс. элементов вторых строк|+|сумма макс. элементов третих строк|)/(|сумма трёх матриц|). Код program Pipes; const n=3, n=5; uses crt; var a,b,c:array [1..30,1..30] of real; i,j,i2,j2,i1,j1:integer; s:real; begin clrscr; {Ввод первой матрицы - 3 строки и 5 столбцов} writeln ('Vvod 1-oi matrix'); for i:=1 to n do for j:=1 to m do writeln ('a[',i,j,']='); readln (a[i,j]); {Ввод второй матрицы - 3 строки и 5 столбцов} writeln ('Vvod 2-oi matrix'); for i1:=1 to n do for j1:=1 to m do writeln ('b[',i,j,']='); readln (b[i1,j1]); {Ввод третьей матрицы - 3 строки и 5 столбцов} writeln ('Vvod 3-ii matrix'); for i2:=1 to n do for j2:=1 to m do writeln ('c[',i,j,']='); readln (c[i2,j2]); {Вывод 1-ой матрицы на экран} writeln ('Vasha 1-ay matrix'); for i:=1 to n do begin for j:=1 to m do write (a[i,j]); writeln; end; {Вывод 2-ой матрицы на экран} writeln ('Vasha 2-ay matrix'); for i1:=1 to n do begin for j1:=1 to m do write (b[i1,j1]); writeln; end; {Вывод 3-ий матрицы на экран} writeln ('Vasha 3-iy matrix'); for i2:=1 to n do begin for j2:=1 to m do write (c[i2,j2]); writeln; end; {Сумма трёх матриц} s:=a[i,j]+b[i2,j2]+c[i3,j3]; {Подсчёт максимального значения в строках в первой матрице} ............................................ ............................................ ............................................ ............................................ {Подсчёт максимального значения в строках во второй матрице} ............................................ ............................................ ............................................ ............................................ {Подсчёт максимального значения в строках в третий матрице} ............................................ ............................................ ............................................ ............................................ {Подсчёт итогового результата} z:=(abs(....)+abs(....)+abs(....))/abs(s); writeln ('Итоговый результат',z); readln; end. |
![]() ![]() |
![]() |
Текстовая версия | 28.07.2025 18:49 |