Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.10.2011, 00:10   #1
gunis7
 
Регистрация: 16.10.2011
Сообщений: 6
По умолчанию принадлежность ответа к отрезкам

Нужна программа для решения примера

V:=((exp(x+t)+3*y-1)/(sin(abs(-x))))-cos(2*t);

при t:=0.1;
x:=sin(pi/4)/cos(pi/4);
y:=exp((x/t)*ln(t));

Код:
 uses crt;
 var t,x,y,V:real; w:boolean;
 begin
 clrscr;
 t:=0.1;
 x:=sin(pi/4)/cos(pi/4);
 y:=exp((x/t)*ln(t));
 V:=((exp(x+t)+3*y-1)/(sin(abs(-x))))-cos(2*t);
 writeln('vyvod znacheniya chisla v=',V);
 readln;
 end.
Программа решает данное уравнение, но мне нужно:

определить значание переменной w, равной true при V, принадлежащем одному из 2х отрезков: [-3;12] или [34;+бесконечность) и равной false в противоположном случае. Написать без использования if!

Помогите пожалуйста...


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

Последний раз редактировалось Serge_Bliznykov; 16.10.2011 в 00:42.
gunis7 вне форума Ответить с цитированием
Старый 16.10.2011, 00:43   #2
_Alerter_
Пользователь
 
Регистрация: 25.05.2011
Сообщений: 89
По умолчанию

Код:
w := ((V >= -3) and (V <= 12)) or (V >= 34);

Последний раз редактировалось _Alerter_; 16.10.2011 в 00:56.
_Alerter_ вне форума Ответить с цитированием
Старый 16.10.2011, 01:08   #3
gunis7
 
Регистрация: 16.10.2011
Сообщений: 6
По умолчанию

огромное спасибо!
gunis7 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Принадлежность точки Stereo Паскаль, Turbo Pascal, PascalABC.NET 0 14.12.2010 11:26
ПРИНАДЛЕЖНОСТЬ ТОЧКИ Dar93ina Помощь студентам 1 03.12.2010 16:41
Принадлежность точки Forro Помощь студентам 4 26.05.2008 14:33
Принадлежность точки UnFaithful Паскаль, Turbo Pascal, PascalABC.NET 1 08.01.2008 06:16