Вычислить значение функции

@AleIIIka · Регистрация: 28.09.2011

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

10.Вычислить значение функции Y для заданного пользователем значения X.

@Zhexon · 28.09.2011, 19:05

Pascal

  uses TpCrt;
  var
    a,b,x,y : Real;
  Begin
    Write('Введите значение x='); ReadLn(x);
    if x<0 then b:=sin(x)
           else b:=cos(x);
    a:=1/(x+5)-1/(x-9);
    if(a+b)<0 then Writeln('подкоренное значение отрицательно!')
              else begin
                y:=sqrt(a+b);
                Write('y=',y:8:3);
              end;
    Readln;
  End.

@Puporev · 28.09.2011, 19:36

Еще x<>-5 и <>9

@Zhexon · 28.09.2011, 20:05

Согласен)) не учел

@AleIIIka 0 / 0 / 0 Регистрация: 28.09.2011 Сообщений: 6
		1
	Вычислить значение функции 28.09.2011, 18:22. Показов 515. Ответов 3 Метки нет (Все метки) 10.Вычислить значение функции Y для заданного пользователем значения X. Миниатюры 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	28.09.2011, 19:36	3
	Еще x<>-5 и <>9 0

@Zhexon 314 / 273 / 272 Регистрация: 25.09.2011 Сообщений: 477
	28.09.2011, 20:05	4
	Согласен)) не учел 0