---

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text:='3.74*10^(-2)';
  Edit2.Text:='-0.825';
  Edit3.Text:='0.16*10^2';
  Memo1.Clear;
end;

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d,v,x,y,z:Extended;
begin
  Memo1.Clear;
  //Çàïîëíåíèå Memo1
  Memo1.Lines.Add('Ââåäåííûå äàííûå');
  x:=StrToFloat(Edit1.Text);
  Memo1.Lines.Add('x='+FloatToStrF(x,ffFixed,8,4));
  y:=StrToFloat(Edit2.Text);
  Memo1.Lines.Add('y='+FloatToStrF(y,ffFixed,8,5));
  z:=StrToFloat(Edit3.Text);
  Memo1.Lines.Add('z='+FloatToStrF(z,ffFixed,8,5));
  // Âûïîëíåíèå ðàññ÷åòîâ
  a:=1+sqr(Sin(x+y));
  b:=abs(x-2*y/(1+sqr(x)*sqr(y)));
  d:=Abs(y)
  c:=(a/b)*(x^(d));
  v:=c+sqr(arctan(1/z));
  // Âûâîä äàííûõ
  Memo1.Lines.Add(' Ðåçóëüòàò v = '+FloatToStrF(v,fffixed,8,5));
end;
end.

---

---

  [Error] Unit1.dpr(59): Missing operator or semicolon
  [Error] Unit1.dpr(59): Pointer type required
  [Error] Unit1.dpr(22): Unsatisfied forward or external declaration: 'TForm1.Memo1Change'
  [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.dpr'

---

---

procedure TfrmMain.GetSquare;
var
  I, J: integer;
  CurLength: integer;
  IsCross: boolean;
begin
  VSquare := 0;
  CurLength := 0;
  IsCross := false;
  for J := y1 to y2 do
  begin
    VSquare := VSquare + CurLength;
    CurLength := 0;
    IsCross := false;
    for I := x1 to x2 do
    begin
      Inc(CurLength);
      if imgCanvas.Canvas.Pixels[I, J] = clRed then
      begin
        Crossing := true;
        IsCross := true;
        Break;
      end;
    end;
    if IsCross = false then
    begin
      CurLength := 0;
    end;
  end;
  if Crossing = false then
    VSquare := 0;
  edtSquare.Text := IntToStr(VSquare);
end;

---

---

lpDDSZBufferDest            : PDirectDrawSurface; // Surface to use as Z buffer for dest

---

---

Function ArcSin(X:Variant):Variant;stdcall;
Var T:Variant;
Begin
      If (X>=-1) and (X<=1) Then
      Begin
            T:=Arctan(x/(sqrt(1-sqr(x))));
            ArcSin:=RadToDeg(T);
      End;
End;

Function ArcCos(X:Variant):Variant;stdcall;
Var T:Variant;
Begin
      If (X>=-1) and (X<=1) Then
      Begin
            T:=2*Arctan(sqrt((1-x)/(1+x)));
            ArcCos:=RadToDeg(T);
      End;
End;

Function ArcTg(X:Variant):Variant;stdcall;
Begin
      If X<>0 Then
      ArcTg:=ArcSin(X)/ArcCos(X)
      Else ArcTg:=0;
End;

Function ArcCtg(X:Variant):Variant;stdcall;
Begin
      If Arctg(X)<>0 Then
      ArcCtg:=1/ArcTg(X)
      Else
      ArcCtg:=0;
End;
     
End;

---