|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.11.2016, 12:50 | #1 |
Регистрация: 18.11.2016
Сообщений: 3
|
Поиск корней сложной функции с использованием подпрограмм
здравствуйте
program lab5; uses crt; const e=0.001; c=0.1; var a,b,x,xi,d,z,h,s1,s2,l,l1,e1:real; n,i:integer; function g(x:real):real; begin g:=(ln(0.25*x)+exp(0.1*x))/(exp(ln(sin(x)))+1.5); end; function f(d:real):real; begin n:=2; z:=g(c)+g(d); h:=(d-c)/n; s2:=0; s1:=g((c+d)/2); l:=h/3*(z+4*s1); repeat l1:=l; n:=n*2; h:=(d-c)/n; s2:=s2+s1; i:=1; s1:=0; repeat xi:=c+i*h; s1:=s1+g(xi); i:=i+2; until i>n-1; l:=h/3*(z+2*s2+4*s1); until abs(l-l1)<e1; e1:=e1*2; f:=l; end; begin clrscr; a:=0.2; b:=8; e1:=0.2; repeat x:=(a+b)/2; if f(a)*f(x)<0 then b:=x else a:=x; until abs(b-a)<e; writeln('Корень уравнения = ',a:5:2); writeln('Значение функции = ',f(a):8:5); readln; end. exitcode=207 помогите пожалуйста исправить |
18.11.2016, 15:25 | #2 | |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,528
|
ln(sin(x)) x[0.2 ... 8 ]
Цитата:
x>3.14 sin(x)<0 =>ln(sin(x)) =???
программа — запись алгоритма на языке понятном транслятору
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Решить задачу с использованием подпрограмм функции (ПАСКАЛЬ) | Вероника_94 | Помощь студентам | 7 | 13.06.2012 22:49 |
Программа с использованием подпрограмм и макросов | Freezy | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 0 | 02.11.2010 22:42 |
Программирование с использованием подпрограмм. | Александр181189 | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 14.06.2010 17:13 |