Вычислить значение выражения и вывести его на экран

@дд · Регистрация: 31.10.2015

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

Вычислить значение выражения x = (b*f)3 - f/2 при b= - 3c-a, f=7+a и вывести его на экран.
Я не понимаю куда писать b= - 3c-a и f=7+а? Пробовал писать в раздел констант, но пишет ошибку компилятор.
Вот что у меня получилось в исходном коде:

Pascal

procedure TForm1.Button1Click(Sender: TObject);
const
  b:=-3c-a;
  f:=7+a;
var
  x:Real;
begin
   x:=exp(3*ln(b*f))-f/2;
   label1.caption:=FloatToStr(x);
end;

Что не так? Отвечайте в стиле "для чайников", я программированием никогда не занимался.

Добавлено через 1 час 8 минут
ответьте пожалуйста!! очень нужно

@volvo · 31.10.2015, 13:50

Откуда берутся a и c? Если это константы - то можно и в разделе констант описать:

Pascal

procedure TForm1.Button1Click(Sender: TObject);
const
  a = ... ; // подставь нужное значение a
  c = ... ; // тут подставь значение для c
  b = -3c-a;
  f = 7+a;
var
  x:Real;
begin
   x:=exp(3*ln(b*f))-f/2;
   label1.caption:=FloatToStr(x);
end;

, если должно вводиться пользователем - то все будет по другому.

@Puporev · 31.10.2015, 13:51

В эдиты ввести а,с .

Pascal

b:=-3*c-a;
f:=7+a;
y:=b*f;
x:=y*y*y-f/2;

@дд · 31.10.2015, 14:12 **[ТС]**

В том то и дело, что численные значение а и с не даны. На форме есть только кнопка и label. В итоге, нажимая на кнопку, у нас в lebal будет, как я понял, выражение, в котором будут присутствовать а и с.

Возможно вообще такое сделать?

@Puporev · 31.10.2015, 14:15

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

На форме есть только кнопка и label.

А положить на форму еще и 2 эдита никак?

Добавлено через 57 секунд
Если уж совсем никак, объявите абс константами.

@дд · 31.10.2015, 14:17 **[ТС]**

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

Если уж совсем никак, объявите абс константами.

как это делается?

@Puporev · 31.10.2015, 14:19

Delphi

procedure TForm1.Button1Click(Sender: TObject);
const
  a =2; 
  c = 3 ;

@дд · 31.10.2015, 14:59 **[ТС]**

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

a =2; c = 3 ;

Я никак не могу ставить произвольные значения а и с.
Мне нужно, чтобы результат вычисления был выражением, в котором а и с - переменные.
По сути дела нужно избавиться от b и f, заменив их соответствующими выражениями через а и с.

Я так понял это задание. Может я и ошибаюсь

Добавлено через 33 минуты
Ещё один вопрос, но по другой задаче, если можно. Как поставить знак математического модуля в выражении ( в исходном коде)?

@Puporev · 31.10.2015, 16:13

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

Как поставить знак математического модуля

Delphi

abs(x);

@дд · 01.11.2015, 16:26 **[ТС]**

А по первой задачи у меня что получается: программа или приложение?

Добавлено через 23 часа 20 минут
А вот если делать так, что в эдит1 будем писать значение а, а в эдит2 значение с, то у меня получается какое-то несоответствие класс исключение 203 и выделилась строка с иксом:

Pascal

procedure TForm1.Button1Click(Sender: TObject);
var
  x,b,f,a,c:real;
begin
  a:=StrToFloat(edit1.text);
  c:=StrToFloat(edit2.text);
  b:=-3*c-a;
  f:=7+a;
  x:=exp(3*ln(b*f))-f/2;
  Label1.caption:=FloatToStr(x);
end;
 
end.

Добавлено через 30 секунд
кто разбирается помогите пожалуйста!!

@Puporev · 01.11.2015, 16:57

Я тебе уже показал как писать

Delphi

b:=-3*c-a;
f:=7+a;
y:=b*f;
x:=y*y*y-f/2;

Если b*f<=0 то exp(3*ln(b*f)) работать не будет.

Добавлено через 1 минуту

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

А по первой задачи у меня что получается: программа или приложение?

Это Вы о чем?

@дд · 01.11.2015, 22:31 **[ТС]**

Puporev,
Спасибо, все работает!
И правда: там ведь под логарифмическое выражение не должно быть отрицательным или равным нулю.

@дд 0 / 0 / 0 Регистрация: 31.10.2015 Сообщений: 17
	31.10.2015, 14:12 [ТС]	4
	В том то и дело, что численные значение а и с не даны. На форме есть только кнопка и label. В итоге, нажимая на кнопку, у нас в lebal будет, как я понял, выражение, в котором будут присутствовать а и с. Возможно вообще такое сделать? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	31.10.2015, 14:15	5
	Сообщение от дд На форме есть только кнопка и label. А положить на форму еще и 2 эдита никак? Добавлено через 57 секунд Если уж совсем никак, объявите абс константами. 0

@дд 0 / 0 / 0 Регистрация: 31.10.2015 Сообщений: 17
	31.10.2015, 14:17 [ТС]	6
	Сообщение от Puporev Если уж совсем никак, объявите абс константами. как это делается? 0

@дд 0 / 0 / 0 Регистрация: 31.10.2015 Сообщений: 17
	31.10.2015, 14:59 [ТС]	8
	Сообщение от Puporev a =2; c = 3 ; Я никак не могу ставить произвольные значения а и с. Мне нужно, чтобы результат вычисления был выражением, в котором а и с - переменные. По сути дела нужно избавиться от b и f, заменив их соответствующими выражениями через а и с. Я так понял это задание. Может я и ошибаюсь Добавлено через 33 минуты Ещё один вопрос, но по другой задаче, если можно. Как поставить знак математического модуля в выражении ( в исходном коде)? 0

@дд 0 / 0 / 0 Регистрация: 31.10.2015 Сообщений: 17
	01.11.2015, 22:31 [ТС]	12
	Puporev, Спасибо, все работает! И правда: там ведь под логарифмическое выражение не должно быть отрицательным или равным нулю. 0