Форум программистов, компьютерный форум, киберфорум
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, 01:42 0

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

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

Ответ


Можно сделать так:
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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
procedure TForm1.Button1Click(Sender: TObject);
const
  M = 15;
var
  Arr : array[1..M] of Integer;
  i, j, IMin1, IMin2 : Integer;
  S : String;
begin
  //Очистка Мемо2.
  Memo2.Clear;
 
  //Заполнение массива из Мемо1.
  j := 0;
  for i := 0 to Memo1.Lines.Count - 1 do begin
    if Memo1.Lines[i] <> '' then begin
      Inc(j);
      Arr[j] := StrToInt(Memo1.Lines[i]);
    end;
    if j = M then begin
      ShowMessage('Достигнута граница массива: ' + IntToStr(M) + ' элементов.');
      Break;
    end;
  end;
 
  if j < M then begin
    ShowMessage(
      'Значения недостающих элементов массива в количестве: ' + IntToStr(M - j)
      + ' заданы случайным образом.'
    );
    Randomize;
    for i := j + 1 to M do begin
      Arr[i] := Random(21); //0..20.
    end;
  end;
 
  //Распечатка исходного массива.
  Memo2.Lines.Add('Исходный массив:');
  S := '';
  for i := 1 to M do begin
    if S <> '' then S := S + ', ';
    S := S + IntToStr(Arr[i]);
  end;
  Memo2.Lines.Add(S);
 
  //Решение задачи.
  IMin1 := 1;
  IMin2 := 0;
  for i := 2 to M 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.
  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 вводятся элементы массива - каждый элемент на отдельной строке. Если какие-то строки в Мемо1 оказываются пустыми - они пропускаются при заполнении массива. Если в Мемо1 задано меньше элементов, чем может поместиться в массив, то значения оставшихся элементов задаются случайным образом с помощью вызова функции Random(). Если элементов в Мемо1 введено больше, чем размер массива, тогда в массив будет записано столько элементов, сколько поместится. При этом будет выведено соответствующее сообщение.
Исходный массив и результаты решения задачи выводятся в Мемо2.

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

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

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

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

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

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

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