Паскаль, подпрограммы функций
Помогите с двумя программами.
Размеры исходных массивов задавать именованными константами в головной программе. Элементы исходных массивов задавать целыми случайными числами в диапазоне от v_min до v_max. Границы диапазона v_min и v_max задать с консоли. Ввод исходных данных и вывод результатов производить в головной программе. Запрещается использовать в подпрограммах глобальные переменные и рабочие массивы. Векторы передавать в подпрограммы как открытые массивы. Не использовать конкретные числа в качестве фактических параметров процедур – только имена переменных, массивов или имена констант. 1 Создать функцию, определяющую в целочисленном прямоугольном массиве matrixnm сумму всех элементов, соприкасающихся углами с его максимальным элементом. 2 Создать процедуру, переворачивающую квадратный массив matrixnn на 90 градусов по часовой стрелке. |
Второе задание не надо. Объясните как найти сумму всех элементов вокруг максимального в матрице?
|
Цитата:
Код:
S:=0; |
Огромное спасибо
|
Можно посмотреть мою программу, вроде бы все написал а результат при пересчете не верный.
Она должна. Создать функцию, определяющую в целочисленном прямоугольном массиве сумму всех элементов, соприкасающихся углами с его максимальным элементов. Цитата:
|
Две ошибки.
1. У Вас: begin max:=0; for i:=1 to n do begin for j:=1 to c do begin if max<m[i,j] then max:=m[i,j]; imax:=i; jmax:=j; end; end; Надо: Код:
max:=vmin; {Лучше так} S:=S+m[imax,jmax]; Надо: Код:
S:=S+m[i,j]; |
Спасибо еще раз
|
Часовой пояс GMT +4, время: 21:26. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.