Калькулятор

[manick]

Пишу калькулятор,
и не знаю как написать кнопку "у^x"

а именно как дважды считывать с эдита (табло калькулятора)

вот например
кнопка n!

procedure TForm1.Butt_nClick(Sender: TObject);
begin
x:=StrToFloat(form1.Edit1.Text);
y:=fact(x);
Form1.Edit1.Text:=FloatToStr(y);
end;

где fact функция

function fact(k:real):real;
begin
  if (k=0) or (k=1) then fact:=1
  else fact:=k*fact(k-1);
end;

или кнопка sin(x)

procedure TForm1.Butt_sinClick(Sender: TObject);
begin
x:=StrToFloat(form1.Edit1.Text);
y:=sinT(x);
Form1.Edit1.Text:=FloatToStr(y);
end;

а вот как y^x не могу понять(формулу возведения в степень я знаю , не знаю как с одного эдита считать число и степень) ,подскажите плиз

From Stilet: Код Делфи и Си выделяй кнопкой # а не <>

[Marsel737]

procedure TfrmMain.btnResultClick(Sender: TObject);
var
  I, J, K: LongInt;
  Res: LongInt;
begin
  if lbledtValue.Text = '' then
    Exit;
  for I := 0 to Length(lbledtValue.Text) do
  begin
    if lbledtValue.Text[I] = '^' then
    begin
      K := I;
      Break;
    end;
  end;
  Res := 1;
  for J := 0 to StrToInt(Copy(lbledtValue.Text, K + 1,
    Length(lbledtValue.Text) - K)) - 1 do
  begin
    Res := Res * StrToInt(Copy(lbledtValue.Text, 0, K - 1));
  end;
  lbledtValue.Text := IntToStr(Res);
end;

[CraftR14]

Не совсем понятно для чего этот велосипед?? Мэй би качнуть иходник и просто покавырявшись создать более умную машину? ))

[manick]

[QUOTE=Marsel737;504452]

procedure TfrmMain.btnResultClick(Sender: TObject);
var
  I, J, K: LongInt;
  Res: LongInt;
begin
  if lbledtValue.Text = '' then
    Exit;
  for I := 0 to Length(lbledtValue.Text) do
  begin
    if lbledtValue.Text[I] = '^' then
    begin
      K := I;
      Break;
    end;
  end;
  Res := 1;
  for J := 0 to StrToInt(Copy(lbledtValue.Text, K + 1,
    Length(lbledtValue.Text) - K)) - 1 do
  begin
    Res := Res * StrToInt(Copy(lbledtValue.Text, 0, K - 1));
  end;
  lbledtValue.Text := IntToStr(Res);
end;

[/QUOTE

спасибо, можешь немного коментариев сделать что за что отвечает?

[Marsel737]

К примеру такая запись в edit'е 2^3. Сначала ищем положение знака ^ в строке, потом копируем все до этого знака и в цикле от одного до "всё что после знака ^" перемножаем:

procedure TfrmMain.btnResultClick(Sender: TObject);
var
  I, J, K: LongInt;
  Res: real;
begin
  if lbledtValue.Text = '' then 
    Exit;
  for I := 0 to Length(lbledtValue.Text) do // Считываем по символу, пока не встретится знак ^
  begin
    if lbledtValue.Text[i] = '^' then // Если встретился, то в К записываем номер символа
    begin
      K := I;
      Break; // Выходим из цикла
    end;
  end;
  Res := 1; // Результат
  for J := 0 to StrToInt(Copy(lbledtValue.Text, K + 1,
    Length(lbledtValue.Text) - K)) - 1 do // Начинаем новый цикл, в котором перемножаем число определенно количество раз. Цикл выполняем от 0 до числа, которое берем копированием после знака ^
  begin
    Res := Res * StrToFloat(Copy(lbledtValue.Text, 0, K - 1)); // Это и есть число возводимое в степень, берем его копированием текста до знача ^
  end;
  lbledtValue.Text := FloatToStr(Res); // Выводим резульата
end;

[пауэрлифтинг]

или можно например 2^3. сначала выписываться 2 потом нажимается кнопка "у^x". 2ка запоминается в переменную и едит отчищаетса. потом вписывается 3 и нажимаеться "=" и считаетса и результат заноситься в едит

[manick]

Сообщение от пауэрлифтинг

или можно например 2^3. сначала выписываться 2 потом нажимается кнопка "у^x". 2ка запоминается в переменную и едит отчищаетса. потом вписывается 3 и нажимаеться "=" и считаетса и результат заноситься в едит

а как это в коде будеть выглядить? =)

[пауэрлифтинг]

var stepx: real; step: boolaen=false;
..
procedure TForm1.ButtClick(Sender: TObject);  //нажатие на кнопку "у^x"
begin
stepx:=StrToFloat(form1.Edit1.Text);
step:=true;
form1.Edit1.Text:='';
end;

function fstep(x: real;y:integer): real; //возведение в степень можеш свою функцию написать
var i: integer;
begin
result:=1;
for i:=1 to y do 
result:=result*x;
end;

procedure TForm1.ButtClick(Sender: TObject);  //кнопка "="
begin
if step then form1.Edit1.Text:=floattostr(fstep(stepx,strtoint(form1.Edit1.Text)));
...
step:=false;
end;

[manick]

Сообщение от пауэрлифтинг

var stepx: real; step: boolaen=false;
..
procedure TForm1.ButtClick(Sender: TObject);  //нажатие на кнопку "у^x"
begin
stepx:=StrToFloat(form1.Edit1.Text);
step:=true;
form1.Edit1.Text:='';
end;

function fstep(x: real;y:integer): real; //возведение в степень можеш свою функцию написать
var i: integer;
begin
result:=1;
for i:=1 to y do 
result:=result*x;
end;

procedure TForm1.ButtClick(Sender: TObject);  //кнопка "="
begin
if step then form1.Edit1.Text:=floattostr(fstep(stepx,strtoint(form1.Edit1.Text)));
...
step:=false;
end;

спасибо =)