|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
24.12.2008, 16:28 | #1 |
Пользователь
Регистрация: 07.12.2008
Сообщений: 13
|
Поиск минимального (максимального) элемента массива
Люди как создать программу чтобы она одновременно считала и минимальные и максимальные элементы массива??? вроде бы с помощью двух stringGrid...но как именно???
заранее спс |
24.12.2008, 16:38 | #2 |
Пользователь
Регистрация: 07.12.2008
Сообщений: 13
|
это в Delphi...если чё
|
24.12.2008, 16:44 | #3 |
Форумчанин
Регистрация: 31.10.2008
Сообщений: 500
|
А нормально написать Слабо ?
Если речь идет чисто про поиск без Вывода и Ввода То зачем СтригГрид а если нужен Ввод и Вывод ТО напишите как именно, а размер массива ? !
Skype : UASm1Le.
|
24.12.2008, 16:55 | #4 |
Пользователь
Регистрация: 07.12.2008
Сообщений: 13
|
Ну вот по такой схеме,только это чисто для нахождения минималки,а надо и мин и макс вместе в одной проге!!!
type TForm1 = class(TForm) Label1: TLabel; Button1: TButton; Label2: TLabel; StringGridl: TStringGrid; procedure ButtonlClick(Sender: TObject); private { Private declarations ) public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.ButtonlClick(Sender: TObject); const SIZE=5; var a:array[l..SIZE]of integer; // массив целых min:integer; // номер минимального элемента массива i:integer; // номер элемента, сравниваемого с минимальным begin // ввод массива for i:=1 to SIZE do a[i]:=StrToInt(StringGridl.Cells[i-1,0]); // поиск минимального элемента min:=1; // пусть первый элемент минимальный for i:=2 to SIZE do if a[i]< a[min]then min:=i; // вывод результата label2.caption:='Минимальный элемент массива:' +IntToStr(a[min] +#13+'Номер элемента:'+ IntToStr(min); end; end. |
24.12.2008, 17:01 | #5 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
поиск min max на Паскале
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
24.12.2008, 17:04 | #6 |
Пользователь
Регистрация: 07.12.2008
Сообщений: 13
|
НУЖНО DELPHI!!!!
|
24.12.2008, 17:07 | #7 | |
Форумчанин
Регистрация: 31.10.2008
Сообщений: 500
|
Цитата:
Skype : UASm1Le.
|
|
24.12.2008, 17:10 | #8 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
24.12.2008, 17:18 | #9 |
Пользователь
Регистрация: 07.12.2008
Сообщений: 13
|
|
24.12.2008, 17:41 | #10 |
Форумчанин
Регистрация: 31.10.2008
Сообщений: 500
|
Skype : UASm1Le.
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Для массива определить сумму всех элементов, стоящих после максимального | HECTOR.A. | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 17.06.2009 22:04 |
вычислить номер и величину максимального элемента массива, произведение элементов, среднее арифметическое | Romer9999 | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 19.01.2009 16:35 |
Написать подпрограмму-процедуру поиска максимального элемента в массиве | Noxil | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 27.11.2008 21:39 |
Составить программу нахождения максимального элемента | Red Devel | Помощь студентам | 3 | 25.12.2007 19:08 |
Поиск позиции элемента несортированного массива | gdneon | Microsoft Office Excel | 4 | 16.04.2007 08:08 |