Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
TopSecret96
0 / 0 / 0
Регистрация: 28.04.2015
Сообщений: 30
#1

Найти ошибку в вычислении по формуле - Pascal ABC

25.05.2015, 20:34. Просмотров 143. Ответов 3
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
{Программа вычисления}
Var
z,x,y:real;
{Выполняемая часть прграммы}
Begin
writeln('Введите x,y');
read(x);
z:=(5*(exp(2*ln(x)))*(exp(1/2*ln(exp(3*ln(cos(exp(2*ln(x))))*(exp(2*ln(y)))))))+exp(-1*ln(sin(x*cos(x)/cos(x*cos(x))))))/exp(x+1)*exp(y+1)+1;
{Вывод результатов}
writeln('Z=',Z:5:3,'x=':5,x:2:1,'y=':5,y:5:2);
end.
при вводе любых х и у выдает вот что:

Введите x,y
20 30
Z= NaN x=20.0 y= 0.00

вот оригинал формулы
http://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
z=\frac{5x^2\left[cos^3\left(x^2-y^2 \right)+tg^{-1}\left(x\,cos\,x \right) \right]^{\frac{1}{2}}}{e^{x+1}\,*\, e^{y+1}+1}<br />
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.05.2015, 20:34
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Найти ошибку в вычислении по формуле (Pascal ABC):

Найти ошибку в вычислении выражения - Pascal ABC
program lab2v; var yn,yk,dy,y,F,x,c:real; i,n:integer; begin write('Введите yn='); readln(yn); write('Введите...

Найти ошибку в программе вычисления по заданной формуле - Pascal ABC
Здравствуйте помогите пожалуйста, в чем ошибка?Ответ меня смущает. uses crt; var x:integer; y:real; begin write(x,y); ...

Найти ошибку в формуле. Ветвление - Pascal
Помогите найти ошибки в мат. формулах if x&gt;0 then p:=(a/(1-x)) + (b+ sqr(sin(x*x*x)/cos(x*x*x))/ (a*(exp(a*x) - exp(-x)) )); ...

Исправить ошибку в вычислении выражения - Pascal ABC
Прога запускается,но на этой строчке останавливается F1:=x+1-((Pi*Pi)/12)-(ln(x-1));

Двумерный массив. Поиск нулей.Не могу найти ошибку ошибку в коде - Pascal
Вот,например массив 5 5 0 1 0 1 0 1 1 1 1 1 0 0 0 0 1 0 0 1 0 0 1 0 0 0 0 считываются два числа m и n и далее в выходной...

Программа пишет ошибку!! Помогите найти ошибку - Pascal
Program Summa; var i, N, M: integer; begin Writeln ('Введите значение N:'); Read (N); M:=0; For i:=1 To N ...

3
Puporev
Модератор
52824 / 40635 / 13884
Регистрация: 18.05.2008
Сообщений: 94,253
25.05.2015, 20:47 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Pascal
1
2
3
4
5
6
7
8
9
10
11
if sin(x*cos(x))=0 then writeln('z не определено')
else
 begin
  t:=sqr(cos(x*x-y*y))*cos(x*x-y*y)+cos(x*cos(x))/sin(x*cos(x));
  if t<0 then writeln('z не определено')
  else
   begin
    z:=5*x*x*sqrt(t)/(exp(x+1)*exp(y+1)+1);
    writeln('z=',z:0:3);
   end;
 end;
1
TopSecret96
0 / 0 / 0
Регистрация: 28.04.2015
Сообщений: 30
25.05.2015, 21:12  [ТС] #3
ничего не понял( как мне это преподу объяснить то
0
Puporev
Модератор
52824 / 40635 / 13884
Регистрация: 18.05.2008
Сообщений: 94,253
25.05.2015, 21:18 #4
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Цитата Сообщение от TopSecret96 Посмотреть сообщение
ничего не понял
Ну если арифметику не знаешь, то это вопросы не сюда.
1
25.05.2015, 21:18
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.05.2015, 21:18
Привет! Вот еще темы с ответами:

Найти модуль f по формуле - Pascal
alfa=0 for(i=0;i&lt;=n;i++) alfa+=func(2*pi*i)/(n+1) for(p=1;p&lt;=m;p++) alfa=0; beta=0; { for(i=0;i&lt;=n;i++); x:=2*pi*i/(n+1) ...

Найти значение функции по формуле - Pascal ABC
Составить алгоритм и написать программу нахождения значении функции по формуле F\left(x \right)=\begin{cases} 3x-9 &amp; \text{ , } x...

Найти значение функции по формуле - Pascal ABC
Составить алгоритм и написать программу нахождения значении функции по формуле F\left(x \right)=\begin{cases} 9 &amp; \text{ , } x \le...

Найти по формуле последовательность элементов массива - Pascal ABC
Помогите с задачкой пожалуйста. При заданных элементах массива X: X1,X2,Xn,Xn+1; Найти по формуле Yk=XkXk+1, последовательность элементов...


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

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

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