КОРЕНЬ ИЗ МИНУСА

@Гуру · Регистрация: 08.03.2009

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

Подскажите пожалуйсто как полсчитать в паскале такую функцию
f:=(sqrt((sqr(2)-sqr(200))))*ln(3);

@Puporev · 09.03.2009, 20:49

А как выглядела функция до ее переделки, что она должна найти?

Добавлено через 1 минуту 34 секунды
Потому что в этом виде ясно что функция не определена.

@Гуру · 09.03.2009, 20:59 **[ТС]**

PHP

var f,a,b,c,e,x,xx:real;
begin
cls;
e:=2.41828;
writeln('Введите переменные a,b,c: ');
readln(a,b,c);
x:=power(e,(2*a-b));
xx:=sqr(x);
If xx<c then f:=a+b*cos(x)
else
If xx=c then f:=a*xx+((b*(xx*x))*(sin(x)))
else
If xx>c then f:=(sqrt(sqr(a)-sqr(xx)))*ln(x);
write(f);

end.
ВОТ ИСХОДНИКИ))) ну как сказать, в задании дана функция, и в любом случае должна считать, без всяких окон с надписями об ошибке

@Puporev · 09.03.2009, 21:08

Я Вас просил привести задание, а не его интепретацию. Функция лично Вам ничего не должна. Как напишите, так и считать будет. Если для С нет никаких ограничений, то при sqr(xx))> sqr(a) функция не определена и в таких случаях пишут

Pascal

else If xx>c then 
  if sqr(a)<sqr(xx) then writeln('Functia ne opredelena!')
   else 
     begin     
      f:=(sqrt(sqr(a)-sqr(xx)))*ln(x);
      writeln('f=',f:0:5);
    end;

@Гуру 2 / 2 / 1 Регистрация: 08.03.2009 Сообщений: 12
		1
	КОРЕНЬ ИЗ МИНУСА 09.03.2009, 20:42. Показов 1305. Ответов 3 Метки нет (Все метки) Подскажите пожалуйсто как полсчитать в паскале такую функцию f:=(sqrt((sqr(2)-sqr(200))))*ln(3); 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	09.03.2009, 20:49	2
	А как выглядела функция до ее переделки, что она должна найти? Добавлено через 1 минуту 34 секунды Потому что в этом виде ясно что функция не определена. 0

	09.03.2009, 21:08

Опции темы