• Ребят нужен человек который шарит в программировании. Задача такова нужно В программе описать каждую строчку подробно что она означает. Помогите пожалуйста.
    unit Unit1;

    interface

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

    type
    TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: 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
    x,y,z,p:real;
    begin
    x:=StrToFloat(Edit1.Text);
    y:=StrToFloat(Edit2.Text);
    z:=StrToFloat(Edit3.Text);
    p:=(3*x*(exp(3*ln(y)))+(sqrt(y+sqr(x)*z))+ln(Z));
    p:=p/(Abs(x-y+sqr(z))+(sin(x)*sin(x)));
    Label5.Font.color:=clBlue;
    Label5.Caption:='Результат:'+#13+'p='+ FloatToStr(5);
    end;
    end.

Ответы 0

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years