Алгебраическая функция

@M1xer · Регистрация: 29.12.2008

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

Для вычисления величины Z по приведенной ниже формуле необходимо разбить вычислительный алгоритм на два блока - основную программу и пользовательскую функцию.Составить программу и для введенных с клавиатуры значений параметров рассчитать величину Z.

@Puporev · 05.02.2009, 12:05

Пару вопросов.
Под корнем |a^2,e^a|? последняя буква плохо различима.
Это все условие? "а" никак не ограничено? Дело в том, что функции arccos и arcsin определены на интервале [-1,1], поэтому |a^2+e^a|должно быть <=1, а следовательно a>sin(-pi/4) и a<=0.
Если про "а" в задании ничего не говорится, то программа будет выглядеть так:

Pascal

uses crt;
function F(u,v:real):real; {наша функция}
begin
if u+v>0 then F:=arctan((u+v)/sqrt(1-sqr(u+v)))
{поскольку в Паскале функций arcsin и arccos нет, приходится пользоваться функцией arctan.
Для этого надо только знать что tg=sin/cos и sin^2+cos^2=1}
else if u+v<0 then F:=arctan(sqrt(1-sqr(u+v))/(u+v))
else if u+v=0 then F:=u*u+v*v;
end;
var a,Z:real;
begin
clrscr;
write('a=');readln(a);
if a=0 then Z:=(pi/2)*sqrt(pi/2){при а=0, cos=1 и sqrt(1-sqr(u+v))=0, а на 0 нельзя делить, хотя функция определена}
else if(a>=sin(-pi/4))and(a<0)then Z:=F(sin(a),cos(a))*sqrt(abs(F(a*a,exp(a)))){если попадаем в область определения}
else
  begin
    write('Z ne opredelen!');{если не попадаем}
    readln;
    exit;
  end;
write('Z=',Z:0:5);
readln
end.

@M1xer 0 / 0 / 0 Регистрация: 29.12.2008 Сообщений: 16
		1
	Алгебраическая функция 04.02.2009, 22:50. Показов 1312. Ответов 1 Метки нет (Все метки) Для вычисления величины Z по приведенной ниже формуле необходимо разбить вычислительный алгоритм на два блока - основную программу и пользовательскую функцию.Составить программу и для введенных с клавиатуры значений параметров рассчитать величину Z. Изображения 0

	05.02.2009, 12:05

Алгебраическая функция

Решение