unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Label2: TLabel;
Label3: TLabel;
Edit3: TEdit;
BitBtn1: TBitBtn;
Label1: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses math; ……………………………………. používáme matematickou funkci, tak musíme zadat tuhle funkci
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var zaklad, vysledek: extended; ………………….reálné číslo
exponent: integer;
begin
edit3.text:=' '; ………… vymaže text z pole edit3
try ………………………………………………………………………... kontrola čísel
zaklad:=strToFloat(edit1.text); …………………………………….... převede na číslo
except
showMessage('Špatně zadané číslo'); …. když nezadáme číslo, které máme, objeví se zpráva
edit1.SetFocus;…………………………………………... umístí kurzor do editu
edit1.SelectAll;…………………………………………….… označí všechno v poli edit
exit;
end;
try
exponent:=strToInt(edit2.text);
except
showmessage('Špatně zadané číslo');
edit2.SetFocus;
edit2.SelectAll;
exit;
end;
vysledek:=IntPower(zaklad,exponent); …………………………………..tahle funkce umocní číslo
edit3.Text:=FloatToStr(vysledek);
end;
end.