Корень квадратный - Общие вопросы Delphi

BETONOMESHALKA · 31.10.2007, 23:34

Как извлеч квадратный корень в делфи из Edit1.text???

AlDelta · 01.11.2007, 00:04

Код:

procedure TForm1.Button1Click(Sender: TObject);
var t:real;
begin
t:=StrToFloat(Edit1.text);
ShowMessage(FloatToStr(Sqrt(t)));
end;

BETONOMESHALKA · 01.11.2007, 10:06

Благодарю )))

31.10.2007, 23:34	#1
BETONOMESHALKA Пользователь Регистрация: 25.06.2007 Сообщений: 40	Корень квадратный Как извлеч квадратный корень в делфи из Edit1.text??? Граф дракула наш кумир Патамушта он ВОМПИР!

01.11.2007, 00:04	#2
AlDelta Реанимируюсь... Участник клуба Регистрация: 19.07.2007 Сообщений: 1,445	Функция Sqrt Код: `procedure TForm1.Button1Click(Sender: TObject); var t:real; begin t:=StrToFloat(Edit1.text); ShowMessage(FloatToStr(Sqrt(t))); end;` Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте. Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе... P.S.: форум не песочница (с) название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows"

01.11.2007, 10:06	#3
BETONOMESHALKA Пользователь Регистрация: 25.06.2007 Сообщений: 40	Благодарю ))) Граф дракула наш кумир Патамушта он ВОМПИР!