|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.12.2012, 21:38 | #1 |
Пользователь
Регистрация: 11.01.2012
Сообщений: 55
|
Ошибка в методе половинного деления
Задание на фотографии.Сделала программу,но где-то ошибка,и считает не всегда правильно....проверьте пожалуйста!!!!
|
03.12.2012, 21:38 | #2 |
Пользователь
Регистрация: 11.01.2012
Сообщений: 55
|
Вот я что сделал.Но не считает правильно
Program PolDel; uses crt; var a,alfa,b,beta,e,p,x:real; k:integer; function f(x:real):real; begin {f:=sqr(x)*x-x+exp(-x);} f:=x*x; end; begin clrscr; k:=1; writeln ('Vvedite a,b'); readln(a,b); writeln('Vvedite tochnost: '); readln(e); write('Vvedite konstanty razlichimosti: '); readln(p); while (b-a)>e do begin alfa:=((b+a)/2)-p; beta:=((b+a)/2)+p; if f(alfa)>f(beta) then begin a:=alfa; b:=b; end else begin a:=a; b:=beta; end; k:=k+1; end; begin x:=(a+b)/2; end; writeln ('x=',x:4:4,' f(x)=',f(x):5:5); readkey end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Метод половинного деления | qwerty55 | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 28.05.2012 16:31 |
метод половинного деления | Poli-007 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 25.12.2011 00:14 |
F(x) методом половинного деления | akum905 | Microsoft Office Excel | 11 | 11.11.2011 18:37 |
Метод половинного деления | serhan | Паскаль, Turbo Pascal, PascalABC.NET | 10 | 03.10.2011 22:39 |
Метод половинного деления | Hichcog | Помощь студентам | 0 | 13.12.2010 17:33 |