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 в этой строке подсвечивает знаки сравнения, и глаголит о том что операция непременима к операндам данного типа о_О |
27.05.2011, 12:38 | #1
+0/−0
Профиль |
Приват |
Поиск |
Цитата |
IP: Записан
|
Doc
offline
Опыт:
63,163Активность: |
попробуй скобки. поставить. |
27.05.2011, 12:50 | #2
+0/−0
Профиль |
Приват |
Поиск |
Цитата |
IP: Записан
|
Rewenger
The culprit will not die
offline
Опыт:
35,873Активность: |
А если так? |
27.05.2011, 12:53 | #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. )) так работает :) |
27.05.2011, 12:55 | #4
+0/−0
Профиль |
Приват |
Поиск |
Цитата |
IP: Записан
|