![]()
FunkieFoO
![]() ![]() offline
Опыт:
7,159Активность: |
трабла с TP
Здравствуйте.
У меня такая проблема, компилятор всевремя упирается в одном и том же месте. По теории работать должно :) Кто разбивается, подкажите в чем загвоздка ((код
program gr;
var a, x, y:real; begin writeLn('Vvedite x'); read(x); writeLn('Vvedite a'); read(a); if (a*x)>0 and (a*x)<0.3 then begin y:=1+ln(a+x); end; if a*x<=(-0.5) or a*x=>0.5 then begin y:=(a*a+(sin(x*x*x))/(cos(x*x*x))-5); end; else begin y:=sqrt(1+a*(sin(x*x))); end; writeLn('Y = ', y); end. )) FunkieFoO добавил: if (a*x)>0 and (a*x)<0.3 then в этой строке подсвечивает знаки сравнения, и глаголит о том что операция непременима к операндам данного типа о_О |
![]() |
#1
+0/−0
Профиль |
Приват |
Поиск |
Цитата |
IP: Записан
|
![]()
Doc
![]() offline
Опыт:
63,163Активность: |
попробуй скобки. поставить. |
![]() |
#2
+0/−0
Профиль |
Приват |
Поиск |
Цитата |
IP: Записан
|
![]()
Rewenger
The culprit will not die
![]() ![]() offline
Опыт:
35,873Активность: |
А если так? |
![]() |
#3
+0/−0
Профиль |
Приват |
Поиск |
Цитата |
IP: Записан
|
![]()
FunkieFoO
![]() ![]() offline
Опыт:
7,159Активность: |
все, разобрался.
((код
program gr; var a, x, y:real; begin writeLn('Vvedite x'); read(x); writeLn('Vvedite a'); read(a); if (a*x)>0 then if (a*x)<0.3 then begin y:=1+ln(a+x); end; if (a*x)<(-0.5) then if (a*x)>0.5 then y:=(a*a+(sin(x*x*x))/(cos(x*x*x))-5) else y:=sqrt(1+a*(sin(x*x))); writeLn('Y = ', y); end. )) так работает :) |
![]() |
#4
+0/−0
Профиль |
Приват |
Поиск |
Цитата |
IP: Записан
|