Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.12.2012, 21:38   #1
naty7773
Пользователь
 
Регистрация: 11.01.2012
Сообщений: 55
Печаль Ошибка в методе половинного деления

Задание на фотографии.Сделала программу,но где-то ошибка,и считает не всегда правильно....проверьте пожалуйста!!!!
Изображения
Тип файла: jpg DSC02821.jpg (124.2 Кб, 142 просмотров)
naty7773 вне форума Ответить с цитированием
Старый 03.12.2012, 21:38   #2
naty7773
Пользователь
 
Регистрация: 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.
naty7773 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Метод половинного деления 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