16.11.2011, 19:09 | #1 (permalink) |
Member
Регистрация: 10.11.2011
Сообщений: 65
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 9
|
Ветвящиеся вычислительные процессы
program lab2 real x,y,z,R integer M R=1.0 print*,' x=?';read*,x print*,' y=?';read*,y if(x<=0.0.AND.y>=-2.AND.x>=-1.AND.x>=0.0.AND.y>=x-2..OR.x*x+y*y<=R*R) then z=1/sin(x)+alog(abs(y)) M=1;print*,'YES' else z=x**3+x**2*y+y**3 M=2;print*,'NO' end if end |
16.11.2011, 19:09 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Эти темы скорее всего могут помочь вам в решении проблемы Все сетевые процессы Как отключить ненужные процессы? Странные процессы Процессы OS Windows Какие процессы можно завершить Как запретить процессы автозапуска |
19.11.2011, 14:10 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ап будет, когда мы увидим четкую, а не тяп-ляп, формулировку задачи. Как задана выделенная область (на рисунке кривая, извините, не замкнута)? К чему относятся функции f1(x,y) и f2(x,y), а также уравнение окружности в первой графе? Ничего не понятно! В общем, выложена какая-то малопонятная муть.
|
19.11.2011, 15:33 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
М-да... Более или менее. Но мне кажется, логическое условие сформулировано не совсем так, как надо. Я бы так:
if((x<=0.0.AND.x>=-1.AND.y>=-2.AND.y<=0.).OR.(x>=0.0.AND.x<=2.0.AND.y>=x-2.AND.y<=0.).OR.(x<=0.0.AND.x>=-1.AND.y>=0.AND.x*x+y*y<=R*R)) then z=1/sin(x)+alog(abs(y)) M=1;print*,'YES' else z=x**3+x**2*y+y**3 M=2;print*,'NO' end if |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
19.11.2011, 15:51 | #6 (permalink) |
Member
Регистрация: 10.11.2011
Сообщений: 65
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 9
|
Ой спасибо вам!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|