Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Заменить четные элементы матрицы на число 99 Дан двумерный массив А, заполненный случайным образом. Заменить четные элементы массива на число 99.и вывести новый массив ввиде таблицы????? https://www.cyberforum.ru/ turbo-pascal/ thread823864.html	Игра с шариком Turbo Pascal Кто нибудь может написать программу: нарисовать шарик. нарисовать перекрестие прицела. шарику присвоить движение и случайное появления на экране. прицелу присвоить движения с помощью кнопок на...
Turbo Pascal Нарисовать автомобиль. Реализовать алгоритм, движения автомобиля по экрану(с вращением колес) https://www.cyberforum.ru/ turbo-pascal/ thread823849.html Помогите пожалуйста.	Turbo Pascal Вычислить первую и вторую производную заданных функций Здравствуйте уважаемые форумчане , у кого есть свободное время помогите пожалуйста написать программу. Задание: Вычислить первую и вторую производную заданных функций. ... https://www.cyberforum.ru/ turbo-pascal/ thread823822.html
обработка массивов Turbo Pascal в двумерном массиве чисел,хранящемся на внешнем носителе,найти пару строк,среднеквадратическое отклонение одноименных элементов которых наименьшее. программа +тестовые исходные данные для проверки...	Turbo Pascal Преобразовать массив таким образом, чтобы сначала располагались все элементы, равные нулю, а потом все остальные https://www.cyberforum.ru/ turbo-pascal/ thread823815.html В одномерном массиве, состоящем из n целых элементов, вычислить 1. Минимальный элемент массива. 2. Сумму элементов массива, расположенных между первым и последним положительными элементами....
Turbo Pascal Вывод на экран надпись Здравствуйте. Мне нужна программа которая будет выводить на экран надпись с помощью линий https://www.cyberforum.ru/ turbo-pascal/ thread823814.html	Turbo Pascal Опишите тип объектов – равносторонних секторов с параметрами: координаты центра, радиус, угол, цвет Опишите тип объектов – равносторонних секторов с параметрами: координаты центра, радиус, угол, цвет. Пусть методами будут А) порождение сектора; Б) изменение его цвета; В) изменение его размера....
Turbo Pascal Написать программу, которая выводит на экран изображение четырехугольной звезды https://www.cyberforum.ru/ turbo-pascal/ thread823785.html Написать программу, которая выводит на экран изображение четырехугольной звезды на желтом фоне. Используйте перемещение фигуры по экрану с помощью клавиш перемещения курсора. Выход из программы по...	Turbo Pascal Заполнить массив С(10) случайными значениями Заполнить массив С(10) случайными значениями. Организовать вывод на экран. Присвоить указателю адрес начала размещения массива в памяти. Напечатать значения каждого второго элемента массива.... https://www.cyberforum.ru/ turbo-pascal/ thread823778.html
Turbo Pascal Программная реализация алгоритмов внутреней сортировки Помогите пожалуйста решить. Заранее большое спасибо Дана действительная матрица А размерности (n x n ). Если среднее арифметическое элементов первой строки превышает среднее арифметиче-ское...	Turbo Pascal Вычислить сумму ряда https://www.cyberforum.ru/ turbo-pascal/ thread823749.html помогите пожалуйста

Андрей1230

0 / 0 / 1

Регистрация: 26.03.2013

Сообщений: 8

31.03.2013, 19:07 [ТС]

Поиск минимального элемента в массиве - Turbo Pascal - Ответ 4339246

31.03.2013, 19:07. Показов 7377. Ответов 2

Метки (Все метки)

Ответ

Сообщение от Cyborg Drone

Андрей1230, никакой модификации. Вся разница - при поиске минимального элемента используется не "<", а "<=". Тогда будет найден последний минимальный элемент, если есть несколько равных минимальных элементов. И, так как необходимо просканировать весь массив, то по-любому сравнений нужно на единицу меньше количества элементов массива. Алгоритм:

Вложение 250577

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

Pascal

function min(x: array of real): integer;
var min: real; //минимум
    i: integer; //счётчик
begin
  min := x[1]; //пока минимум - первый элемент массива
  Result := 1; //пока номер минимального элемента = 1
  for i := 2 to length(x) do begin
    if x[i] <= min then begin //если меньше или равно, то
      min := x[i]; //минимум - элемент массива x[i]
      Result := i; //номер минимального элемента = i
    end;
  end;
end;

Всего Вам доброго.

Спасибо

Вернуться к обсуждению:
Поиск минимального элемента в массиве Turbo Pascal

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

31.03.2013, 19:07

Готовые ответы и решения:

Поиск минимального элемента в массиве
пожалуйста помогите, напишите мне программу поиска минимального элемента в массиве A(10.10) с...

Поиск минимального нечетного элемента в заданном целочисленном массиве из 50 элементов
Уважаемые форумчане! Для вас не будет сложным решить 4 простейшие программки (они действительно...

Нахождение в массиве минимального элемента среди положительных и его номера в массиве
• Нахождение в массиве минимального элемента среди положительных и его номера в массиве. •...

Нахождение минимального элемента в массиве
Не получается составить программу на нахождение минимального элемента в одномерном массиве. помогите

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

31.03.2013, 19:07

Помогаю со студенческими работами здесь

Функция поиска минимального элемента в массиве
написать программу перезагрузки функции поиска минимального элемента в массиве. элементы массива...

Перестановка в массиве максимального и минимального элемента
В квадратной матрице в каждой строке переставить ее максимальный и минимальный элементы

Замена минимального элемента в массиве, максимальным.
Доброго всем времени суток. Подскажите пожалуйста, как сделать программу, по замене первого...

Поиск индекса минимального элемента
Вводится квадратная матрица с клавиатуры( не более 10 чисел). Найти и вывести индекс минимального...

Наверх