Возведение числа в степень

[Gross]

Помогите решить задачу в Delphi, звучит она так:
Создайте приложение,на форму которого помещены компоненты:
Edit-2шт
Button-1шт
Напишите обработчик событий OnClick компонента Button, который возводит число, записанное в первом компоненте Edit, в степень, указанную во втором компоненте, и отображает результат с помощью компонента Label.
Показатель и основание степени могут быть как положительные, так и отрицательные.Возведение в степень осуществить с помощью многократного умножения.
Заранее благодарен.

[KiDoki]

Давай свои нароботки, поможем.

Помогите решить задачу

означает, что ты пытался решить, но у тебя что-то не получилось. И ты просишь помощи по данному поводу.

[Deight]

В гугле введи "Delphi возведение числа в степень" без кавычек.

[Gross]

Сообщение от KiDoki

Давай свои нароботки, поможем.
означает, что ты пытался решить, но у тебя что-то не получилось. И ты просишь помощи по данному поводу.

Пытался но вся проблема в возведение числа в степень многократным умножением. В поисковике ето описывается но все через процедуру Math

[Deight]

В гугле вторая страница x^y=exp(ln(x)*y), еще через цикл можно.

[Gross]

Да этого делал подобную программу на деление думаю её можно подправить под возведение в степень:

unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var res, num1, num2:real;
begin
num1:= strtofloat(edit1.text);
num2 := strtofloat(edit2.text);

Begin
res:= num1 / num2;
label1.Caption := floattostr (res);
end;
end;

end.

[Gross]

Сообщение от Deight

В гугле вторая страница x^y=exp(ln(x)*y), еще через цикл можно.

Да кстати мне препод тоже что-то говорил про цикл! Если тебя не затруднит не мог бы по подробнее.

[LexFreeman]

Цикл представляет повторное умножение числа на первоначальное свое значение. Естественно число итераций равно степени, в которую нужно возвести. Все вроде просто.

Примерная схема
х:=y;
for i:=1 to <требующаяся степень> do x:=x*y; // где х - получаемый результат, у - первоначальное число,

Думаю, с вводом-выводом разберешься.
А так, легче конечно работать с модулем Math.

[Gross]

LexFreeman!
Если просто и не сложно не мог бы показать на примере задачи, код которой я выкладывал в предыдущем посте что именно нада там вписать, буду очень благодарен.