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

Тема в разделе "Pascal and Delphi", создана пользователем Nekitos, 17 янв 2011.

  1. Nekitos

    Nekitos Гость

    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л/сек

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

    acorn PHP Developer

    Регистрация:
    29 авг 2004
    Сообщения:
    599
    Симпатии:
    3
Загрузка...

Поделиться этой страницей