@andrey69rus

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

(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);

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

помогите исправить пожалуйста
  • Вопрос задан
  • 2419 просмотров
Решения вопроса 1
Vinatorul
@Vinatorul
Developer
1) Забыли объявить переменную с (первая строчка)
2) В предпоследней строке делите на 6, а в примере на b
3) Y имеет тип Real, а вы используете IntToStr в последней строке
Ответ написан
Пригласить эксперта
Ответы на вопрос 1
globuzer
@globuzer
gezgrouvingus progreszive ombusgrander greyderzux
эх, старый добрый паскаль и дельфи....
пора переходить на пайтон уже!
Ответ написан
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы