10.01.2013, 12:16 | #1 (permalink) |
Member
Регистрация: 05.12.2012
Сообщений: 27
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Паскаль, подпрограммы функций
Размеры исходных массивов задавать именованными константами в головной программе. Элементы исходных массивов задавать целыми случайными числами в диапазоне от v_min до v_max. Границы диапазона v_min и v_max задать с консоли. Ввод исходных данных и вывод результатов производить в головной программе. Запрещается использовать в подпрограммах глобальные переменные и рабочие массивы. Векторы передавать в подпрограммы как открытые массивы. Не использовать конкретные числа в качестве фактических параметров процедур – только имена переменных, массивов или имена констант. 1 Создать функцию, определяющую в целочисленном прямоугольном массиве matrixnm сумму всех элементов, соприкасающихся углами с его максимальным элементом. 2 Создать процедуру, переворачивающую квадратный массив matrixnn на 90 градусов по часовой стрелке. |
10.01.2013, 12:16 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Обсуждения которые так или иначе похожи на вашу тему уже встречались, рекомендую вам их просмотреть Паскаль, подпрограммы функции Паскаль, подпрограммы Подпрограммы Подпрограммы Паскаль АВС, сортировка в одномерном массиве без функций и операций Паскаль. Задача. Массивы. Подпрограммы. Процедуры |
11.01.2013, 10:49 | #5 (permalink) | |
Member
Регистрация: 05.12.2012
Сообщений: 27
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Можно посмотреть мою программу, вроде бы все написал а результат при пересчете не верный.
Она должна. Создать функцию, определяющую в целочисленном прямоугольном массиве сумму всех элементов, соприкасающихся углами с его максимальным элементов. Цитата:
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
11.01.2013, 14:12 | #6 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Две ошибки.
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; {Лучше так} for i:=1 to n do for j:=1 to c do if max<m[i,j] then begin max:=m[i,j]; imax:=i; jmax:=j; end; S:=S+m[imax,jmax]; Надо: Код:
S:=S+m[i,j]; |
11.01.2013, 14:30 | #7 (permalink) |
Member
Регистрация: 05.12.2012
Сообщений: 27
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо еще раз
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|