Показать сообщение отдельно
Старый 02.10.2011, 18:23   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Код:
var
 a, b:real;
function f(x:real):real;
 begin
  if (x>=-9.0) and (x<-5.0) then
   f:=2.0-sqrt(4.0-sqr(x+7.0)) else
  if (x>=-5.0) and (x<-4.0) then
   f:=2.0 else
  if (x>=-4.0) and (x<0.0) then
   f:=-0.5*x else
  if (x>=0.0) and (x<Pi) then
   f:=sin(x) else
   f:=x-Pi;
 end;
Begin
 writeln('Enter the point coordinates:');
 write('a= ');
 readln(a);
 write('b= ');
 readln(b);
 if (a>=-9.0) and (a<=5.0) and (f(a)=b) then
  writeln('Yes, belongs')
 else
  writeln('No, does not belong');
 readln;
End.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070