Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
M1xer
0 / 0 / 0
Регистрация: 29.12.2008
Сообщений: 16
1

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

04.02.2009, 22:50. Просмотров 813. Ответов 1
Метки нет (Все метки)

Для вычисления величины Z по приведенной ниже формуле необходимо разбить вычислительный алгоритм на два блока - основную программу и пользовательскую функцию.Составить программу и для введенных с клавиатуры значений параметров рассчитать величину Z.
0
Изображения
 
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.02.2009, 22:50
Ответы с готовыми решениями:

Сколько существует натуральных значений n, при которых алгебраическая дробь является целым числом?
Задача: Сколько существует натуральных значений n, при которых алгебраическая дробь 18-n / n ...

Алгебраическая проблема собственных значений
Здравствуйте, Задача: Найти собственные значения трёхдиагональной матрицы. Для нахождения...

Алгебраическая функция
Привет всем! У функции есть 2 определения: 1) Функция - это зависимость одной величины от...

Алгебраическая сумма
Всем добрый день. Есть формула x = n1/\sum A, где n1=1, A-некоторые значения. Как записать эту...

Алгебраическая прогрессия
Есть программа, которая должна брать элементы из файла и заносить их в массив (как глобальный, так...

1
Puporev
Модератор
56594 / 43283 / 29926
Регистрация: 18.05.2008
Сообщений: 102,959
05.02.2009, 12:05 2
Лучший ответ Сообщение было отмечено M1xer как решение

Решение

Пару вопросов.
Под корнем |a^2,e^a|? последняя буква плохо различима.
Это все условие? "а" никак не ограничено? Дело в том, что функции arccos и arcsin определены на интервале [-1,1], поэтому |a^2+e^a|должно быть <=1, а следовательно a>sin(-pi/4) и a<=0.
Если про "а" в задании ничего не говорится, то программа будет выглядеть так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.02.2009, 12:05

Алгебраическая Сумма в си
Почему то постоянно изменяется последнее число z, кто может объяснить почему? #include &lt;stdio.h&gt;...

Алгебраическая форма
Люди добрые, кто-нибудь может помочь с решением? нужно выражение 5^5(cos( (5p) / (4))+i*sin( (5p) /...

Алгебраическая система
Помогите с заданием. Установить свойства операции умножения на множестве натуральных чисел N и тип...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru