Условие if

@Szamarmadar · Регистрация: 29.01.2010

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

Добрый день!Не подскажите,как правильно написать if для условия(двойное неравенство)
if 5<(abs(sqr(x)+y*y*y)) AND (abs(sqr(x)+y*y*y))<13

program la2;
var x,y,u,hx,hy,xn,yn,xk,yk:real;
begin
writeln('vvedite xn,xk,hx');
readln(xn,xk,hx);
writeln('vvedite yn,yk,hy');
readln(yn,yk,hy);
x:=xn;
repeat
y:=yn;
repeat
if abs(sqr(x)+y*y*y)<=5
then u:=cos(x+y)/sin(x+y)
else
begin
if 5<(abs(sqr(x)+y*y*y))
AND (abs(sqr(x)+y*y*y))<13
then u:=sqr(x)+y*y*y
else u:=x-y;
end;
writeln('u= ',u:7:2,'x= ',x:4:2,'y= ',y:4:2);
y:=y+hy;
until y>yk;
x:= x+hx;
until x>xk;
end.

@Dekio · 06.12.2010, 10:23

Pascal
1
if (5<abs(sqr(x)+y*y*y)) AND (abs(sqr(x)+y*y*y))<13) then

@Szamarmadar · 06.12.2010, 10:44 **[ТС]**

Почему то постоянно выдает ошибку:
Operation "and" not supported for types "Extended" and "Extended"

@Dekio · 06.12.2010, 10:46

для сравнивания нельзя использовать тип Extended

@Szamarmadar · 06.12.2010, 10:48 **[ТС]**

А как тогда ещё можно записать двойное неравенство?

@Dekio · 06.12.2010, 10:54

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program la2;
var x,y,u,hx,hy,xn,yn,xk,yk:real;
begin
writeln('vvedite xn,xk,hx');
readln(xn,xk,hx);
writeln('vvedite yn,yk,hy');
readln(yn,yk,hy);
x:=xn;
repeat
y:=yn;
repeat
if abs(sqr(x)+y*y*y)<=5
then u:=cos(x+y)/sin(x+y)
else
begin
if (5<abs(sqr(x)+y*y*y)) AND ((abs(sqr(x)+y*y*y))<13) then
 u:=sqr(x)+y*y*y
else u:=x-y;
end;
writeln('u= ',u:7:2,'x= ',x:4:2,'y= ',y:4:2);
y:=y+hy;
until y>yk;
x:= x+hx;
until x>xk;
end.

пробуйте, у меня прога ваша работает

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

@Szamarmadar 0 / 0 / 1 Регистрация: 29.01.2010 Сообщений: 68

	Условие if 06.12.2010, 10:19. Показов 29401. Ответов 5 Метки нет (Все метки) Добрый день!Не подскажите,как правильно написать if для условия(двойное неравенство) if 5<(abs(sqr(x)+yyy)) AND (abs(sqr(x)+yyy))<13 program la2; var x,y,u,hx,hy,xn,yn,xk,yk:real; begin writeln('vvedite xn,xk,hx'); readln(xn,xk,hx); writeln('vvedite yn,yk,hy'); readln(yn,yk,hy); x:=xn; repeat y:=yn; repeat if abs(sqr(x)+yyy)<=5 then u:=cos(x+y)/sin(x+y) else begin if 5<(abs(sqr(x)+yyy)) AND (abs(sqr(x)+yyy))<13 then u:=sqr(x)+yyy else u:=x-y; end; writeln('u= ',u:7:2,'x= ',x:4:2,'y= ',y:4:2); y:=y+hy; until y>yk; x:= x+hx; until x>xk; end. 0

@Szamarmadar 0 / 0 / 1 Регистрация: 29.01.2010 Сообщений: 68
	06.12.2010, 10:44 [ТС]
	Почему то постоянно выдает ошибку: Operation "and" not supported for types "Extended" and "Extended" 0

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,373 Записей в блоге: 1
	06.12.2010, 10:46
	для сравнивания нельзя использовать тип Extended 1

@Szamarmadar 0 / 0 / 1 Регистрация: 29.01.2010 Сообщений: 68
	06.12.2010, 10:48 [ТС]
	А как тогда ещё можно записать двойное неравенство? 0