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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 27.03.2014, 20:05   #1
now2
Форумчанин
 
Регистрация: 12.03.2014
Сообщений: 217
По умолчанию PascalABC.Net

program b1;
uses crt;
var a,b,c,e,i,d:real;
function F(x:real):real;
begin
F:=(sin(0.5*x+0.1)/cos(0.5*x+0.1))/sqr(x);
end;
function F1(x:real):real;
begin
F1:=0.5/(sqr(cos(0.5*x+0.1)))-2*x;
end;
function F2(x:real):real;
begin
F2:=0.5*cos(0.5*x+0.1)*sin(0.5*x+0. 1)-2;
end;
Procedure K;
label 3;
begin
if F(a)*F2(a)>0 then begin c:=b; d:=a; end else begin c:=a; d:=b; end;
3:if abs(f(c))<e then writeln('koren =', c:5:5) else begin
c:=c-((c-d)/(f(c)-F(d)))*F(c); goto 3; end;
end;
Procedure H;
label 4;
begin
if f(a)*f2(a)>0 then c:=a else c:=b;
4:if abs(f(c))<e then writeln('koren=',c:5:5) else begin
c:=c-(f(c)/f1(c));
goto 4; end;
end;
begin
writeln('a and b');
readln(a,b);
writeln('e');
readln(e);
writeln('Каким методом решать?');
writeln('1:Метод хорд');
writeln('2:Метод касательных');
readln(i);
if i=1 then K else H;
readkey;

end.
РЕБЯТ НА МОГУ НАПИСАТЬ ПРАВИЛЬНО ПРОИЗВОДНУЮ ПРОГРАММА РАБОТАЕТ , РАБОТАЕТ ОБА МЕТОДА , НО КОРНИ ПОЛУЧАЮТСЯ РАЗНЫЕ, А ДОЛЖНЫ ОДИНАКОВЫЕ ПРОВЕРЬТЕ ПЛИЗ ПРОИЗВОДНЫЕ , ГДЕ ОШИБКА
now2 вне форума
Старый 27.03.2014, 20:28   #2
Streletz
Старожил
 
Регистрация: 03.01.2014
Сообщений: 2,870
По умолчанию

Цитата:
НАПИСАТЬ ПРАВИЛЬНО ПРОИЗВОДНУЮ
Сперва её надо найти. как это делать, написано в любом учебнике по мат.анализу.
Цитата:
ПРОВЕРЬТЕ ПЛИЗ ПРОИЗВОДНЫЕ
Исхъодное задание в студию!
Streletz вне форума
Старый 27.03.2014, 21:03   #3
now2
Форумчанин
 
Регистрация: 12.03.2014
Сообщений: 217
По умолчанию

tg 0,5x + 0,1 = x^2
исходное уравнение
now2 вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Гистаграммы, PascalABC.NET Ajmda Паскаль, Turbo Pascal, PascalABC.NET 0 02.05.2012 22:23
PascalABC.NET v1ktor Паскаль, Turbo Pascal, PascalABC.NET 0 21.06.2011 13:58
Типы PascalABC.NET ofenod Помощь студентам 0 14.05.2011 22:20
PascalABC.net gogomon93 Помощь студентам 5 17.04.2011 18:48
PascalABC.net *stRong* Помощь студентам 2 10.06.2010 17:50