Форум программистов, компьютерный форум, киберфорум
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
7 / 7 / 0
Регистрация: 02.12.2009
Сообщений: 102
0

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

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


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

Данная программа есть на языке Pascal

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
uses crt;
var n,i,a,mn,i1,ip:integer;
begin
clrscr;
repeat
write('Количество элементов в наборе n>0 n=');
readln(n);
until n>0;
writeln('Введите ',n,' целых чисел:');
readln(mn);
i1:=1;
ip:=1;
for i:=2 to n do
 begin
  readln(a);
  if a<mn then
   begin
    mn:=a;
    i1:=i;
   end
  else if a=mn then ip:=i;
 end;
writeln('Минимум=',mn);
writeln('Номер первого=',i1);
if ip=1 then write('В массиве 1 минимальный')
else write('номер последнего=',ip);
readln
end.


Начал делать, окончательно запутался...

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
65
66
67
68
69
70
71
72
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, Grids;
type
  TForm1 = class(TForm)
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    edt1: TEdit;
    lbl6: TLabel;
    lbl7: TLabel;
    pnl2: TPanel;
    pnl3: TPanel;
    pnl4: TPanel;
    btn1: TBitBtn;
    btn2: TBitBtn;
    StringGrid1: TStringGrid;
    btn3: TBitBtn;
    procedure btn1Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  a:array of Integer; //ãëîáàëüíûå ïåðåìåííûå äèíàìè÷åñêèé ìàññèâ
  n:Integer;//è åãî ðàçìåð
 
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
 
begin
repeat
n:=StrToInt(edt1.text);
until n>0;
 
StringGrid1.ColCount:=n;
StringGrid1.RowCount:=1;
 
StringGrid1.Options:=StringGrid1.Options+[goEditing];
Setlength(a,n);
end;
 
procedure TForm1.btn3Click(Sender: TObject);
var n,i,mn,i1,ip:integer;
begin
i1:=1;
ip:=1;
for i:=2 to n do
 begin
 a[i]:=StrToInt(StringGrid1.Cells[i,0]);
  if a<mn then //где и как вводить mn?
  //(блин, тут же ещё одновременно типы array & integer..)
   begin
    mn:=a;
    i1:=i;
   end
  else if a=mn then ip:=i;
 end;
pnl2.Caption:=IntToStr(mn);
pnl3.Caption:=IntToStr(i1);
if ip=1 then pnl4.Caption:='В массиве 1 минимальный' else pnl4.Caption:='Номер последнего = '+IntTostr(ip);
 
end;
 
end.


Вернуться к обсуждению:
Найти номера первого и последнего минимального элемента из данного набора
0
Вложения
Тип файла: rar minmax8.rar (172.0 Кб, 22 просмотров)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.07.2011, 00:22
Готовые ответы и решения:

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

Найти номера первого и последнего минимального элемента из данного набора
#include &lt;stdio.h&gt; int main(void) { int i,n,ni,minn1,minn2,min1,min2; printf(&quot;N:&quot;); ...

Найти номера первого минимального и последнего максимального элемента из данного набора
Мальчики и девушки, помогите пожалуйста решить задачку на С++.... Дано целое число N и набор из N...

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

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