калькулятор

[Olya1985]

скажите, пожалуйста, в чем ошибка

знак деления / не работает

когда ставлю +, - или * то все нормально

procedure Division;
begin
Form1.edt1.text:=inttostr(y/strtoint(Form1.edt1.text));
end;

[Larboss]

1. Проверяйте деление на нуль.
2. Переменные должны быть не целочисленные!
3. Ошибку какую выдает? или просто не работает?

[Olya1985]

ошибка следующая

there is no overloaded version of inttostr than can be called with these arguments

насоклько я пониманию знак / несовместим с inttostr

как же быть в данном случае?

[Аватар]

Результат выражения y/strtoint(Form1.edt1.text) вещественный, с которым inttostr не умеет работать

[FaTaL]

Вместо IntToStr используйте FloatToStr

[Olya1985]

помогло

спасибо!

[Olya1985]

а как вычислить корень квадратный из числа, введенного в edt1.text не подскажете?

procedure TForm1.btn18Click(Sender: TObject);

begin

edt1.text:= FloatToStr(Sqrt(edt1.text));

end;

[HyperZen]

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

а как вычислить корень квадратный из числа, введенного в edt1.text не подскажете?

procedure TForm1.btn18Click(Sender: TObject);
begin
 edt1.text:= FloatToStr(Sqrt(edt1.text));
end;

procedure TForm1.btn18Click(Sender: TObject);
begin
 edt1.text:= FloatToStr(Sqrt(StrToFloat(edt1.text)));
end;

[Anfall]

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

а как вычислить корень квадратный из числа, введенного в edt1.text не подскажете?

procedure TForm1.btn18Click(Sender: TObject);

begin

edt1.text:= FloatToStr(Sqrt(edt1.text));

end;

Надо не забыть строковую переменную перевести в числовую

edt1.text:= FloatToStr(Sqrt(strtofloat(edt1.text)));

[Olya1985]

и еще почему то в этой строке выводит ошибку y:=strtofloat(edt1.text);

incompatible types integer and extended

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

procedure Extent;
begin

form1.edt1.Text:=FloatToStr(exp(y*l n(strtofloat(form1.edt1.Text))));



end;