Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Не добавляется модуль https://www.cyberforum.ru/ delphi-beginners/ thread328955.html
Не судите строго... так как я только осваиваю Дельфи (до этого С++)... Начал недавно ковырять одну прогу и столкнулся с проблемой подключения новых модулей.... начну попорядку... Сама прога ...
Listview текст в несколько строк Delphi
В общем такое дело необходимо в listview (ViewStyle:=vsReport) в один итем загнать несколько строчек текста чтоб было примерно как в AIMP2 где под названием мелодии указываеться её битрейт,размер и...
Запись в файл и считывание Delphi
Доброго времени суток!! У мене возник такой вопрос: у меня есть тип :inf= record firm:string; shyfr:integer; ...
Delphi Добавить строку в файл Блин, совсем из головы все повылетало. есть следующее: type TSpravTkan = packed record Number: Integer; Name: String; end; ... var SpravTkan: TSpravTkan; https://www.cyberforum.ru/ delphi-beginners/ thread328927.html
Delphi Описать процедуру AddRightDigit(D, K) https://www.cyberforum.ru/ delphi-beginners/ thread328918.html
Нужно в Delphi описать процедуру AddRightDigit(D, K), добавляющую к целому положительному числу K справа цифру D (D — входной параметр целого типа, лежащий в диапазоне 0–9, K — параметр целого...
Delphi Считывание массива из Edit
Ситуация такая - Пользователь должен ввести элемент вектора в Edit1 и после нажатия Button1 этот элемент должен быть выведен в Memo1 и добавлен в одномерный массив. После необходимо еще работать с...
Delphi построить массив A = (ai) элементы которого задаются формулой: аі=(1+1/2+...+1/і)/ і!, (і=1,2,...,n)
как сделать??? построить массив A = (ai) элементы которого задаются формулой: аі=(1+1/2+...+1/і)/ і!, (і=1,2,...,n)
Delphi крестики-нолики написал крестики-нолики,но не работает,так сказать "интелект"(он выражен в подпрограмме opas) при таком варианте как у меня сейчас,он иногда не ставит нолик вообще,если opas не испольщовать,то ход... https://www.cyberforum.ru/ delphi-beginners/ thread328866.html
Delphi delphi-компоненты https://www.cyberforum.ru/ delphi-beginners/ thread328865.html
обясните как написать... используя компоненты Edit, SpinEdit и StringGrid создать проект для решения следующей задачи. если введена последовательность чисел образует арифметическую прогрессию, то...
Delphi Максимально значение среди четных до первого нечетного Задан целочисленный массив a из n строк и m столбцов. Найти значение максимального элемента среди четных (по значению) элементов,расположенных до первого нечетного элемента. Матрицу расматривать по... https://www.cyberforum.ru/ delphi-beginners/ thread328846.html
13065 / 5851 / 1705
Регистрация: 19.09.2009
Сообщений: 8,807
03.07.2011, 02:44 0

Найти номера первого и последнего минимального элемента из данного набора

03.07.2011, 02:44. Просмотров 1711. Ответов 11
Метки (Все метки)

Ответ


Можно сделать так, чтобы размер можно было задавать. Здесь можно пойти двумя путями:
1. - Решение на основе статического массива. - Можно задать статический массив достаточно большого размера - т. е., задать M таким, чтобы хватало для решения задачи. А пользователь будет вводить количество значимых элементов - N. И обработка элементов будет вестись в диапазоне индексов: 1..N. При этом, в коде должна быть проверка - чтобы не позволить вводить N большее, чем M - чтобы не произошло переполнение массива.
2. - Решение на основе динамического массива. В этом случае, размер массива можно задавать во время работы программы. И размер этого массива будет ограничен только размером непрерывного участка динамической памяти, который доступен программе.
---
Вот, Kellendros, уже написал подсказку про динамический массив.

Добавлено через 5 минут
Вот как будет выглядеть решение с динамическим массивом:
Delphi
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
procedure TForm1.Button1Click(Sender: TObject);
var
  Arr : array of Integer;
  i, j, IMin1, IMin2 : Integer;
  S : String;
begin
  //Очистка Мемо2.
  Memo2.Clear;
 
  //Заполнение массива из Мемо1.
  j := -1;
  for i := 0 to Memo1.Lines.Count - 1 do begin
    if Memo1.Lines[i] <> '' then begin
      Inc(j);
      SetLength(Arr, j + 1);
      Arr[j] := StrToInt(Memo1.Lines[i]);
    end;
  end;
 
  //Распечатка исходного массива.
  Memo2.Lines.Add('Исходный массив:');
  S := '';
  for i := 0 to High(Arr) do begin
    if S <> '' then S := S + ', ';
    S := S + IntToStr(Arr[i]);
  end;
  Memo2.Lines.Add(S);
 
  //Решение задачи.
  IMin1 := 1;
  IMin2 := 0;
  for i := 1 to High(Arr) do begin
    if Arr[i] < Arr[IMin1] then begin
      IMin1 := i;
      IMin2 := 0;
    end else if Arr[i] = Arr[IMin1] then begin
      IMin2 := i;
    end;
  end;
 
  //Ответ распечатываем в Мемо2.
  Memo2.Lines.Add('Индексация в массиве принята от нуля.');
  if IMin2 = 0 then begin
    Memo2.Lines.Add('В массиве только один минимальный элемент. Его индекс: ' + IntToStr(IMin1));
  end else begin
    Memo2.Lines.Add('Индекс первого минимального элемента: ' + IntToStr(IMin1));
    Memo2.Lines.Add('Индекс последнего минимального элемента: ' + IntToStr(IMin2));
  end;
end;


Вернуться к обсуждению:
Найти номера первого и последнего минимального элемента из данного набора
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.07.2011, 02:44

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Найти номера первого и последнего минимального элемента из данного набора, и вывести их в указанном порядке
Помогите пожалуйста. Я не могу понять как найти этот нормер. Получается есть набор из чисел....

Найти номера первого максимального и последнего минимального элемента из данного набора и вывести их в указанном порядке
Дано целое число N и набор из N целых чисел. Найти номера первого максимального и последнего...

Найти номера первого и последнего максимального элемента из данного набора
Дано целое число N и набор из N целых чисел. Найти номера первого и последнего максимального...

Найти номера первого минимального и последнего максимального элемента из заданного набора
Дано целое число N и набор из N целых чисел. Найти номера первого минимального и последнего...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.