Delphi решение примера?

Question

[andrey69rus]

(32/c)+31*b*39
Y = ----------------------------------- /b*8
6-a+ln(22+d*31)

нужно было решить без скобок

var b,a,d:integer;
Y,YY,YX:real;
Begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
d:=StrToInt(Edit3.Text);
с:=StrToInt(Edit4.Text);
Y:=32/c;
YY:=31∗b∗39;
Y:=Y+YY;
YY:=d∗31;
YY:=log(22+YY);
YX:=6-a;
YY:=YX+YY;
Y:=Y/YY;
Y:=Y/6∗8;
Label1.Caption:=IntToStr(Y);

ошибка неверно определены переменные. опечатка в арифметике

помогите исправить пожалуйста

Comments

[krypt3r]

Убиццо ап стену о_О. Пример выложите в нормальном виде,а не это гно

[Антон Федорян]

на первый взгляд уже видно что "с" не определена

Answer 1

[Vinatorul]

1) Забыли объявить переменную с (первая строчка)
2) В предпоследней строке делите на 6, а в примере на b
3) Y имеет тип Real, а вы используете IntToStr в последней строке

Comments

[andrey69rus]

спасибо)

Answer 2

[globuzer]

эх, старый добрый паскаль и дельфи....
пора переходить на пайтон уже!

Comments

[andrey69rus]

типо учебная программа...