Арифметические выражения

@максимочка · Регистрация: 13.11.2014

Author24 — интернет-сервис помощи студентам

Доброго времени суток.Подскажите, пожалуйста , как правильно в Delphi записать выражение

@Chertenok_n_13 · 01.02.2017, 01:45

Ровным счетом точно так же, как и на Pascal. За исключением небольших нюансов.
Допустим, у тебя на форме Form1 есть Edit1, Edit2, Edit3, которые отвечает за x, y и z соответственно.
Edit4, который будет отвечать за результат
и кнопка Button1, клик на которой рассчитывает выражение.
тогда подсчет будет выглядеть следующим образом

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var a, x,y,z:real;
begin
  x:=StrToFloat(Edit1.Text);
  y:=StrToFloat(Edit2.Text);
  z:=StrToFloat(Edit3.Text);
  if (x+power(fabs(y), 1/4)) then Edit4.Text:="Ошибка вычислений. Под корнем отрицательное число"
  else 
   begin
       a:=power(2, -x)*sqrt(x+power(fabs(y), 1/4))*power(exp(x-1/sin(z)), 1/3);
       Edit4.Text:=FloatToStr(a);
   end;
end;

ну и в верху в разделе uses добавить Math

@droider · 01.02.2017, 09:32

Chertenok_n_13, только в Delphi апострофы будут обрамлять строку

Delphi

1	Edit4.Text:='Ошибка вычислений. Под корнем отрицательное число'

@Chertenok_n_13 · 01.02.2017, 11:38

droider, точно. Спасибо за поправку.

@D1973 · 01.02.2017, 15:03

Chertenok_n_13, это не С++, поэтому:
1. droider уже внес поправку со строкой
2. if (x+power(fabs(y), 1/4)) должно быть логическим выражением... Поэтому так

Delphi

1	if x+power(fabs(y), 1/4) < 0 then ...

3. Не fabs(), а abs()

@максимочка 0 / 0 / 0 Регистрация: 13.11.2014 Сообщений: 41
		1
	Арифметические выражения 01.02.2017, 01:16. Показов 1819. Ответов 4 Метки нет (Все метки) Доброго времени суток.Подскажите, пожалуйста , как правильно в Delphi записать выражение Изображения 0

@Chertenok_n_13 219 / 125 / 99 Регистрация: 14.03.2011 Сообщений: 628
	01.02.2017, 11:38	4
	droider, точно. Спасибо за поправку. 0

	01.02.2017, 15:03