|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.12.2009, 19:12 | #1 |
Новичок
Джуниор
Регистрация: 28.11.2009
Сообщений: 2
|
Basic.проверьте,пожалуйста,решение
Текст программы
CLS FOR x = 0 TO 1 STEP .04 PRINT "X="; x; PRINT "d="; EXP(SIN((x + 1) \ 2)) / (1 + ((1 + x ^ 2) / 2)) ^ (-.5 * x) NEXT x Результаты вычислений X= 0 d= 1 X= .04 d= 1.008 X= .08 d= 1.016 X= .12 d= 1.024 X= .16 d= 1.033 X= .2 d= 1.042 X= .24 d= 1.052 X= .28 d= 1.062 X= .32 d= 1.072 X= .36 d= 1.083 X= .4d= 1.095 X= .44 d= 1.108 X= .48 d= 1.121 X= .52 d= 2.636 X= .56 d= 2.672 X= .6 d= 2.710 X= .64 d= 2.751 X= .68 d= 2.795 X= .72 d= 2.842 X= .76 d= 2.893 X= .8 d= 2.947 X= .84 d= 3.005 X= .88 d= 3.067 X= .92 d= 3.133 X= .96 d= 3.204 X= 1 d= 3.280 |
10.12.2009, 20:45 | #2 |
Удален
Форумчанин
Регистрация: 02.12.2009
Сообщений: 309
|
не правильно. ты берешь экспоненту от всей дроби, а нужно на нее просто домножить.
должно быть что-то типо этого: (SIN((X + 1) / 2) / (1 + (1 + X^2) / 2)) * EXP(-0.5 * x) |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Проверьте,код пожалуйста! | -ushёl- | Общие вопросы C/C++ | 0 | 08.12.2009 13:22 |
Решение задач в Basic | DeathLisenok | Помощь студентам | 1 | 06.12.2009 11:14 |
Проверьте пожалуйста.. | NSvirus | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 24.11.2008 01:39 |
проверьте моё решение | sverhuVniz | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 25.10.2008 09:26 |