Matematisk formel

Prøv det her:

uses Math;

procedure TForm1.Button1Click(Sender: TObject);
var
A, B: Integer;
begin
A := 10;
B := 45;
ShowMessage(FloatToStr(Sqrt(Power(A, 2) +  Power(B, 2))));
end;

Hvis det skal være fra to edit felter erstatter du bare 10 og 45 med StrToFloat(<editnavn>.Text);

Kan du ikke lige skrive den færdige kode, hvor tallene bliver indsat i edit felterne og facit også angives i et edit felt.

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,facit:double;
begin
  a := StrToFloat(Edit1.Text);
  b := StrToFloat(Edit2.Text);
  facit := sqrt(Power(a,2)+Power(b,2));
  Edit3.Text := FloatToStr(facit);
end;

Den sidste ser meget rigtig ud, men jeg kan ikke få den til at virke. Hvis du sender programmet til [fjernet], så er der point.

Åbn Delphi --> Insæt 2 Edits (Edit1 og Edit2) og indsæt en knap. Så kopiere du bare denne her tekst ind i stedet for alt det andet der står. Bare alt.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    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
A, B: Integer;
begin
A := StrToInt(Edit1.Text);
B := StrToInt(Edit2.Text);
ShowMessage(FloatToStr(Sqrt(Power(A, 2) +  Power(B, 2))));
end;

end.


Steffmeister.

Du kan også indsætte en label og indsætte denne her tekst istedet for den med ShowMessage:

Label1.Caption := FloatToStr(Sqrt(Power(A, 2) + Power(B,2)));

Hvis du hellere vil have det på Formen!