Разработать пользовательские функции, модульное программирование

@Induin · Регистрация: 24.12.2018

Студворк — интернет-сервис помощи студентам

Помогите с программой, пожалуйста. Разработать пользовательские функции: функцию, возвращающую максимальный элемент числового массива целых чисел (его значение), функцию, возвращающую минимальный элемент массива, и функцию(процедуру в Паскале), упорядочивающую числовой массив по возрастанию и убыванию.

@Cyborg Drone · 28.12.2018, 20:10

Сообщение от Induin

Помогите с программой, пожалуйста. Разработать пользовательские функции

Так что, разработать программу или только описать функции? Непонятно. Если нужно, к подпрограммам допишите вызывающую программу самостоятельно.

Сообщение от Induin

функцию(процедуру в Паскале), упорядочивающую числовой массив по возрастанию и убыванию

Это как? Одновременно этого сделать нельзя. Но, если уж процедура одна, то, буду считать, что направление сортировки задаётся в формальных параметрах. Например, с помощью логической переменной.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
function min_elem(const x: array of integer): integer;
var i, min: integer;
begin
  min := x[low(x)];
  for i := low(x) + 1 to high(x) do if x[i] < min then min := x[i];
  min_elem := min
end;
 
function max_elem(const x: array of integer): integer;
var i, max: integer;
begin
  max := x[low(x)];
  for i := low(x) + 1 to high(x) do
    if x[i] > max then max := x[i];
  max_elem := max
end;
 
procedure sort(var x: array of integer; up: boolean);
var i, j, k, t: integer;
begin
  for i := low(x) to high(x) - 1 do
    begin
      k := i;
      for j := i + 1 to high(x) do
        if up and (x[j] < x[k]) or not up and (x[j] > x[k]) then k := j;
      if k > j then
        begin
          t := x[i];
          x[i] := x[k];
          x[k] := t
        end
    end
end;

@bormant · 29.12.2018, 09:45

Cyborg Drone,
пожалуй, условия внутри цикла стоило исключить

Pascal
24
25
26
      if up
      then for j:=i+1 to High(x) do if x[i]<x[k] then k:=j
      else for j:=i+1 to High(x) do if x[i]>x[k] then k:=j;

@Cyborg Drone · 29.12.2018, 21:03

bormant, точно.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Induin 0 / 0 / 0 Регистрация: 24.12.2018 Сообщений: 1

	Разработать пользовательские функции, модульное программирование 24.12.2018, 18:34. Показов 1210. Ответов 3 Метки нет (Все метки) Помогите с программой, пожалуйста. Разработать пользовательские функции: функцию, возвращающую максимальный элемент числового массива целых чисел (его значение), функцию, возвращающую минимальный элемент массива, и функцию(процедуру в Паскале), упорядочивающую числовой массив по возрастанию и убыванию. 0

@Cyborg Drone Модератор 10422 / 5710 / 3401 Регистрация: 17.08.2012 Сообщений: 17,366
	29.12.2018, 21:03
	bormant, точно. 0