Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
TopSecret96
0 / 0 / 3
Регистрация: 28.04.2015
Сообщений: 30
#1

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

25.05.2015, 20:34. Просмотров 163. Ответов 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):

Найти ошибку в вычислении выражения
program lab2v; var yn,yk,dy,y,F,x,c:real; i,n:integer; begin...

Найти ошибку в вычислении суммы ряда
Не могу найти ошибку в вычислении суммы ряда. program n93; var...

Найти ошибку в программе или формуле
Вот моя программа, но я не понимаю, вычисляет ли она правильно. Ручная проверка...

Найти ошибку в программе вычисления по заданной формуле
Здравствуйте помогите пожалуйста, в чем ошибка?Ответ меня смущает. uses crt;...

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

Исправить ошибку в вычислении выражения
Прога запускается,но на этой строчке останавливается ...

3
Puporev
Модератор
54149 / 41782 / 28889
Регистрация: 18.05.2008
Сообщений: 98,331
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 / 3
Регистрация: 28.04.2015
Сообщений: 30
25.05.2015, 21:12  [ТС] #3
ничего не понял( как мне это преподу объяснить то
0
Puporev
Модератор
54149 / 41782 / 28889
Регистрация: 18.05.2008
Сообщений: 98,331
25.05.2015, 21:18 #4
Лучший ответ Сообщение было отмечено TopSecret96 как решение

Решение

Цитата Сообщение от TopSecret96 Посмотреть сообщение
ничего не понял
Ну если арифметику не знаешь, то это вопросы не сюда.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.05.2015, 21:18
Привет! Вот еще темы с решениями:

Двумерный массив. Поиск нулей.Не могу найти ошибку ошибку в коде
Вот,например массив 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...

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

Найти Z по формуле
Приветствую! нужна помощь

Найти модуль f по формуле
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;...


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

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

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