Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
22 / 5 / 8
Регистрация: 07.12.2009
Сообщений: 122
1

Вычислить значение функции y:=sqrt(exp(x)-b)+arctan(sqrt(x/(b-x)))

08.12.2009, 21:36. Показов 1899. Ответов 2
Метки нет (Все метки)

Вычислить значение функции y:=sqrt(exp(x)-b)+arctan(sqrt(x/(b-x)))
-1<=b<=1 db=0.1
0.39<=x<=0.99 dX.1
нужно написать так чтобы было 2 цикла: 1 For , а 2 либо While либо Repeat.

Вот я сдела , но он мне выдает ошибку при прогоне,,видимо на том месте где (b-x)<=0 в [arctan(sqrt(x/(b-x))) ],,,сделайте Плиз!!! как нить по другому...

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 Uses wincrt;
 Var
   x,b,y,Bn,Bk,dB,Xn,Xk,dX:Real;
   i,N: Integer;
Bn:=-1.0; Bk:=1.0; dB:=0.1; b:=Bn;
N:=trunc((Bk-Bn)/dB)+1;
Xn:=0.39; Xk:=0.99; dX:=0.1;
For i:=1 to N do
  Begin
  x:=Xn;
  While (x<=Xk)  do
    Begin
      y:=sqrt(exp(x)-b)+arctan(sqrt(x/(b-x)));
      Writeln('При b=',b:2:1,' и x=',x:1:2,' y=',y:5:4);
      x:=x+dX;
     End;
  b:=b+dB;
   End;
 End.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.12.2009, 21:36
Ответы с готовыми решениями:

Даны натуральные числа n и k. Вычислить: sqrt(k+sqrt(2k+...+sqrt(k(n-1)+sqrt(kn))))
Даны натуральные числа n и k. Вычислить: sqrt(k+sqrt(2k+...+sqrt(k(n-1)+sqrt(kn))))

Вычислить значение выражения: Sqrt(x+sqrt(x+...sqrt(x)))
Для данного натурального N и вещественного x(x&gt;0) вычислить значение выражения:...

Вычислить выражение: S= 1+sqrt(2)+sqrt(3)+sqrt(4)+...+sqrt(N)
Составить программу вычисления значения выражения S= 1+sqrt(2)+sqrt(3)+sqrt(4)+...+sqrt(N) при 1...

Вычислить значение функции: y=(1/x)+2*sqrt(x) на интервале [-4; 16].
Задача №1 Составьте блок-схему алгоритма и программу для вычисления значений функции:...

2
1 / 1 / 0
Регистрация: 27.12.2008
Сообщений: 10
08.12.2009, 21:41 2
V mesto etogo
y:=sqrt(exp(x)-b)+arctan(sqrt(x/(b-x)));
Budet
y:=sqrt(exp(x)-b)+1/sin(sqrt(x/(b-x)));
0
22 / 5 / 8
Регистрация: 07.12.2009
Сообщений: 122
09.12.2009, 00:07  [ТС] 3
Цитата Сообщение от Erponec Посмотреть сообщение
V mesto etogo
y:=sqrt(exp(x)-b)+arctan(sqrt(x/(b-x)));
Budet
y:=sqrt(exp(x)-b)+1/sin(sqrt(x/(b-x)));

Все равно ошибку выдает!!!

Добавлено через 22 минуты
Цитата Сообщение от Rodik Посмотреть сообщение
Все равно ошибку выдает!!!
Кто что посоветует???

Добавлено через 59 минут
Цитата Сообщение от Rodik Посмотреть сообщение
Все равно ошибку выдает!!!

Добавлено через 22 минуты

Кто что посоветует???
?????

Добавлено через 50 минут
Цитата Сообщение от Rodik Посмотреть сообщение
Вычислить значение функции y:=sqrt(exp(x)-b)+arctan(sqrt(x/(b-x)))
-1<=b<=1 db=0.1
0.39<=x<=0.99 dX.1
нужно написать так чтобы было 2 цикла: 1 For , а 2 либо While либо Repeat.

Вот я сдела , но он мне выдает ошибку при прогоне,,видимо на том месте где (b-x)<=0 в [arctan(sqrt(x/(b-x))) ],,,сделайте Плиз!!! как нить по другому...

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 Uses wincrt;
 Var
   x,b,y,Bn,Bk,dB,Xn,Xk,dX:Real;
   i,N: Integer;
Bn:=-1.0; Bk:=1.0; dB:=0.1; b:=Bn;
N:=trunc((Bk-Bn)/dB)+1;
Xn:=0.39; Xk:=0.99; dX:=0.1;
For i:=1 to N do
  Begin
  x:=Xn;
  While (x<=Xk)  do
    Begin
      y:=sqrt(exp(x)-b)+arctan(sqrt(x/(b-x)));
      Writeln('При b=',b:2:1,' и x=',x:1:2,' y=',y:5:4);
      x:=x+dX;
     End;
  b:=b+dB;
   End;
 End.
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Сво и версии!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.12.2009, 00:07

Вычислить с точностью E значение функции y=1/sqrt(x) при х=2 воспользовавшись итерациональной формулой
Вычислить с точностью е=10^-5 значение функции y=1/sqrt(x) при х=2 воспользовавшись итерациональной...

Вычислить: sqrt(3+sqrt(6+...+sqrt(3*(n-1)+sqrt(3*n)...)))
Дано натуральное n. Вычислить: sqrt(3+sqrt(6+...+sqrt(3*(n-1)+sqrt(3*n)...))). Люди, помогите...

Рекурсия. S=sqrt(1+sqrt(2+sqrt(3+...+sqrt(n))))
Нужно вычислить методом рекурсии: S=sqrt(1+sqrt(2+sqrt(3+...+sqrt(n)))) Добавлено через 1 час 7...

С++ рекурсия S=sqrt(1+sqrt(2+sqrt(3+.+sqrt(n)
Задали написать программу на С++ которая высчитывает S=sqrt(1+sqrt(2+sqrt(3+...+sqrt(n)))) . Нашла...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru