Как поменять искомое в программе.(delphi)

  • Автор темы Nekitos
  • Дата начала
N

Nekitos

Гость
#1
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Series, TeEngine, ExtCtrls, TeeProcs, Chart, OleCtnrs, Menus,
StdCtrls,math;

type

TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
while1: TMenuItem;
repeat1: TMenuItem;
OleContainer1: TOleContainer;
Chart1: TChart;
Series1: TLineSeries;
Chart2: TChart;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
N2: TMenuItem;
Series2: TAreaSeries;
Label1: TLabel;
Label6: TLabel;
N3: TMenuItem;
procedure while1Click(Sender: TObject);
procedure repeat1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);


private
{ Private declarations }
public
{ Public declarations }
end;
type mass=array[1..19] of real;
var
Form1: TForm1;
h,a,b,c,f,y,x:real;
n,i:integer;
an:mass=(5.2,3.7,0.01,0.3,0.08,1.5,0,2,0.01,1.5,25,0.1,12,10,25,0.6,1.3,10.2,1);
implementation
function f1(l,m:real):real;
begin
if l<=m then F1:=-50*x+4.5
else F1:=-(3*ln(x+1))/6;
end;

{$R *.dfm}

procedure TForm1.while1Click(Sender: TObject);
begin
series1.Clear;

a:=strtofloat(Edit2.Text) ;
b:=strtofloat(Edit3.Text) ;
c:=strtofloat(Edit4.Text) ;
N:=strtoint(Edit5.Text);
X:=a;
h:=(b-a)/(N-1);
while x<b do
begin
series1.AddXY(x,F1(x,c));
x:=x+h;

end;

end;



procedure TForm1.repeat1Click(Sender: TObject);
begin
series2.Clear;
a:=strtofloat(Edit2.Text) ;
b:=strtofloat(Edit3.Text) ;
c:=strtofloat(Edit4.Text) ;
N:=strtoint(Edit5.Text);
X:=a;
h:=(b-a)/(N-1);
repeat

series2.AddXY(x,F1(x,c));
x:=x+h;
until x>b;

end;



procedure TForm1.N2Click(Sender: TObject);
var
str:string;

begin
label1.caption:='Удельный дебит'+#13;
for i:=1 to 19 do
str:=str+format('%10.1f',[an])+#13;
label1.Caption:=label1.Caption+str;

end;

procedure TForm1.N3Click(Sender: TObject);
var max:real;
begin
max:=an[1];
for i:=1 to 19 do
if max<an then
max:=an;
label6.Caption:='max удельный дебит'+#13+format('%3.2f',[max]);

end;

end.




Вместо максимального дебита необходимо найти количество элементов, удельный дебит которых превышает 8л/сек

Подскажите кто знает)