Delphi Программирование С Использованием Подпрограмм

Тема в разделе "Pascal and Delphi", создана пользователем QPW, 15 апр 2012.

  1. QPW

    QPW Гость

    Условие: Посмотреть вложение Условие.doc



    unit Unit111;

    interface

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

    type
    TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Label3: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form1: TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.Button1Click(Sender: TObject);
    var b,z,a,h,m,p,j,y,u,s,t:extended;
    Procedure n(a,b:extended);
    begin
    H:=(a/1+b*:)+(b/1+a*a)-(a-;)*(a-B)*(a-B);
    end;


    begin
    s:=StrToFloat(Edit1.Text);
    t:=StrToFloat(Edit2.Text);
    z:=n(s,t);
    j:=n(1,1);
    y:=n(s-t,s*t);
    u:=n(s-t,s+t);

    p:=n+(max(y*y,u*u)+j;
    end;

    end.
     
Загрузка...
Похожие Темы - Delphi Программирование Использованием
  1. avizer
    Ответов:
    5
    Просмотров:
    729
  2. cybert
    Ответов:
    0
    Просмотров:
    94
  3. Shouldercannon
    Ответов:
    0
    Просмотров:
    156
  4. antares
    Ответов:
    0
    Просмотров:
    439
  5. Луиза
    Ответов:
    0
    Просмотров:
    295

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