Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 85 тыс рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.04.2011, 13:32   #1
ICE1589
 
Регистрация: 08.04.2011
Сообщений: 6
По умолчанию Поиск максимального (минимального) элемента массива в Delphi

Помогите пожалуйста как найти максимальное и минимальное значение массива вещественных чисел в компоненте RichEdit.
Для начало провожу расчет с выводом массива в компонент RichEdit. Вот потом необходимо вывести максимальный или минимальный элемент.
Вот код:
Код:
unit funk;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Label7: TLabel;
    Label9: TLabel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    PopupMenu1: TPopupMenu;
    yx1: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    Label6: TLabel;
    Button1: TButton;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    RichEdit1: TRichEdit;
    RichEdit2: TRichEdit;
    procedure Button1Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}




procedure TForm1.Button1Click(Sender: TObject);
var
a:integer;
y:real;
i:real;
x:integer;
st:string;
 label
raschet4;
begin
if length(Edit1.Text) = 0 then
begin
showmessage ('Введите одно и предложенных чисел');
exit;
end;
a:=strtoint (Edit1.Text);
case a of
-3: goto raschet4;
4: goto raschet4;
6: goto raschet4;
else
showmessage ('Введите одно из предложеннх чисел');
exit;
end;
 raschet4:
richedit1.lines.clear;
 x:=4;
 i:=1;
 while i<=x do
 begin
 i:=i+0.25;
y:=(ln(i)+a)/a;
richedit1.Lines.Add(st+floattostr(y));
end;
 x:=4;
 i:=1;
 richedit1.Lines.add('');
 while i<=x do
 begin
 i:=i+0.25;
y:=sin(i)*a;
richedit1.Lines.Add(st+floattostr(y));
end;
 x:=4;
 i:=1;
 richedit1.Lines.add('');
 while i<=x do
 begin
 i:=i+0.25;
y:=a-4*i;
richedit1.Lines.Add(st+floattostr(y));
end;
end;
procedure TForm1.N4Click(Sender: TObject);  // максимальный элемент массива
const
size=50;
var
i:byte;
m:array[0..size] of real;
max:real;
n:integer;
begin
n:=RichEdit1.Lines.Count;
if n = 0 then
begin
showmessage ('Проведите расчет y(x)');
exit;
end;
n:=size;
for i:=0 to n do
begin
m[i]:=RichEdit1.MaxLength;
end;
max:=m[0];
for i:=0 to n do
begin
if max < m[i] then
begin
max:=m[i];
showmessage (floattostr (max));
end;
end;
end;
end.
Что я тут неправельно делаю?



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

Последний раз редактировалось Serge_Bliznykov; 08.04.2011 в 14:02.
ICE1589 вне форума Ответить с цитированием