|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.10.2012, 20:50 | #1 |
Новичок
Джуниор
Регистрация: 12.10.2012
Сообщений: 1
|
Не работает программа
Написал программу, а она считает не правильно(( Не могу понять почему. program summa; uses crt; var n: integer; xn, xk, dx, e, x, y, f: real; begin clrscr; write ('Введите начало интервала: '); readln (xn); write ('Введите конец интервала: '); readln (xk); write ('Введите шаг: '); readln (dx); write ('Введите точность: '); readln (e); writeln ('-------------------------'); if (xn >= -1) and (xk < 1) and (xk > xn) then while xk >= xn do begin x := xn; n := 1; f :=x+(x*x)/2; while abs(f) > e do begin n := n + 1; f := -(exp(ln(abs(x))*n))/n; y := y + f; end; writeln (x:10:6, y-x:14:6, n:9); xn := xn + dx; end else writeln ('Интервал введён не верно'); readln end. |
12.10.2012, 21:47 | #2 | |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
Код:
Цитата:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" Последний раз редактировалось Mad_Cat; 12.10.2012 в 21:51. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программа работает в WinXP и не работает в Win7 | blblbl-org | Общие вопросы Delphi | 4 | 23.04.2012 19:50 |
не работает программа | cyber922 | Общие вопросы C/C++ | 10 | 12.03.2012 14:23 |
Программа работает пошагово, но не работает при запуске | -Katerina- | Microsoft Office Excel | 3 | 12.07.2011 03:40 |
Почему программа на С++ не работает с локальным описанием массива, но работает с глобальным? | >>STINGER<< | Помощь студентам | 4 | 08.03.2011 09:56 |
Программа не работает | ZYRGiX | Помощь студентам | 2 | 22.07.2008 21:44 |