Работа с процедурами в Delphi - процедура для поиска min, max в массиве и обмена их местами - Помощь студентам

kolia_y · 12.12.2013, 18:06

Помогите с задачей:
Дано 3 массива в которых 6, 7, 8 действительных числ соответственно.
Найти максимальный и минимальный элементы в массивах и поменять их местами.
За помощь буду благодарен!!!

ZX Spectrum-128 · 12.12.2013, 18:28

http://www.programmersforum.ru/showthread.php?t=70310

Человек_Борща · 12.12.2013, 18:56

Поменять между массивами?

type_Oleg · 12.12.2013, 19:08

Создать тип - динамический массив

Код:

type arRe=array of Double;

Описать 2 функции - поиск индекса мин. и макс. элемента в массиве.

Код:

function PoiskIndMax(ar:arRe):Integer;
function PoiskIndMin(ar:arRe):Integer;

Описать процедуру, которая меняет местами мин. и макс. элементы

Код:

procedure ChMinMax(var ar:arRe);

Внутри этой процедуры использовать функции PoiskIndMax, PoiskIndMax
Применить процедуру к каждому из массивов.

PS Имена подпрограмм можно конечно другие придумать.

kolia_y · 12.12.2013, 19:21

Цитата:

Сообщение от Человек_Борща

Поменять между массивами?

Нет поменять местами max и min в каждом масиве.

12.12.2013, 18:06	#1
kolia_y Регистрация: 05.10.2013 Сообщений: 4	Работа с процедурами в Delphi - процедура для поиска min, max в массиве и обмена их местами Помогите с задачей: Дано 3 массива в которых 6, 7, 8 действительных числ соответственно. Найти максимальный и минимальный элементы в массивах и поменять их местами. За помощь буду благодарен!!!

12.12.2013, 19:08	#4
type_Oleg Старожил Регистрация: 02.03.2008 Сообщений: 2,504	Создать тип - динамический массив Код: `type arRe=array of Double;` Описать 2 функции - поиск индекса мин. и макс. элемента в массиве. Код: `function PoiskIndMax(ar:arRe):Integer; function PoiskIndMin(ar:arRe):Integer;` Описать процедуру, которая меняет местами мин. и макс. элементы Код: `procedure ChMinMax(var ar:arRe);` Внутри этой процедуры использовать функции PoiskIndMax, PoiskIndMax Применить процедуру к каждому из массивов. PS Имена подпрограмм можно конечно другие придумать. Последний раз редактировалось type_Oleg; 12.12.2013 в 19:11.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
списке целых чисел все элементы между max и min заменить полусуммой max и min	Roman one	C/C++ Базы данных	0	20.12.2012 12:14
Одномерный массив(найти max и min и поменять их местами в массиве)	Monry	Паскаль, Turbo Pascal, PascalABC.NET	1	09.04.2012 18:28
найти min max в массиве	lubafffka	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	4	08.06.2011 15:48
процедура перестановки max и min эл.мас	Draips	Паскаль, Turbo Pascal, PascalABC.NET	3	27.04.2010 21:46
Как поменять местами в массиве max и min элемент.	Stager	Общие вопросы C/C++	2	13.01.2009 02:03

12.12.2013, 18:28	#2
ZX Spectrum-128 Участник клуба Регистрация: 05.11.2013 Сообщений: 1,601	http://www.programmersforum.ru/showthread.php?t=70310

12.12.2013, 18:56	#3
Человек_Борща Старожил Регистрация: 30.12.2009 Сообщений: 11,434	Поменять между массивами?