как вывести на экран локальные минимумы в среде delphi ?

[кристина19]

Здравствуйте. Мне по программированию дали задачи. Вычислить среднее арифметическое элементов массива, после этого найти и вывести на экран все локальные минимумы данного массива. С первой задачей я справилась, а как вторую делать не доходит. Может кто знает или объяснит хотя бы ? Просто предмет появился впервые, у меня физико-математическое образование, так что delphi даётся тяжеловато ) заранее спасибо.

что такое локальный минимум я знаю ( в моём одномерном массиве - это элемент меньший двух своих соседей по бокам). за ссылки на полезную теорию или минимальные объяснения также буду благодарна =)

[p51x]

что такое локальный минимум я знаю ( в моём одномерном массиве - это элемент меньший двух своих соседей по бокам).

Так в чем проблема? Готов алгоритм... Берем 3 элемента, если средний меньший - лок. минимум. Сдвигаемся на одну позицию, повторяем. Отдельно подумать над первым и последним.

[кристина19]

ок. спасибо ) когда будет готов полный вариант, выложу сюда. вместе посмотрим )

[кристина19]

так, ну вот я и вернулась ) прога работает , но с ошибкой. она мне почему-то выводить лишь один один лок.минимум, когда я явно задала элементы массива так, чтобы их было 2. ну и номер элемента выводит равным самому элементу.

например :

42 25 34 11 12

лок. минимум : 11

номер элемента : 11

это мне комп выводит. прога работает как-то не до конца.


вот мой код ( копирну всю прогу) :


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
StringGrid1: TStringGrid;
Button1: TButton;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

const

SIZE=5;

var

a : array[1..SIZE] of integer; // массив целых чисел
i: integer; // индекс
lokM: integer;// локальный минимум

begin

// ввод массива

// считаем, что если ячейка пустая, то соответствующий

// ей элемент массива равен нулю

for i:= 2 to SIZE do

if Length(StringGrid1.Cells[i-1, 0]) <>0

then a[i] := StrToInt(StringGrid1.Cells[i-1,0])

else a[i] := 0;

// обработка массива

for i :=1 to SIZE do

if (a[i] < a[i-1]) and (a[i] < a[i + 1]) then lokM:=a[i];

// вывод результата

Label2.Caption := 'Локальный минимум: ' + IntToStr(lokM) + #13+'номер элемента:' + FloatToStr(lokM);

end;
end.

[p51x]

'номер элемента:' + FloatToStr(lokM);

Что сказали то и выводит.

Label2.Caption :=

Вы перезатираете последним найденным локальным минимумом.

Заюзайте Мемо иличто-то подобное.

[кристина19]

Сообщение от p51x

'номер элемента:' + FloatToStr(lokM);

Что сказали то и выводит.

Label2.Caption :=

Вы перезатираете последним найденным локальным минимумом.

Заюзайте Мемо иличто-то подобное.

не поняла про мемо. а можно как-то иначе ?

[Alter]

Label2.Caption := Label2.Caption + 'Локальный минимум: ' + IntToStr(lokM) + #13+'номер элемента:' + FloatToStr(lokM);

[кристина19]

Alter, программа в итоге всё равно выводит лишь последний локальный минимум.

[vedro-compota]

скопипасть ещё раз код ( как он теперь выглядит ) и выложи исходник. Попробуем разобраться.

[Fuadik]

Поместите на форму ListBox и Button.
#
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
c: string;
begin
ListBox1.Clear;
for i:=2 to kol_vo-1 do
begin
if ((m[i]<m[i-1]) and (m[i]<m[i+1])) then
begin
c:=FloatToStr(m[i]);
ListBox1.Items.Add(c);
end;

end;
end;
#

m, kol_vo массив и кол-во элементов в массиве соответственно