27.10.2012, 22:01 | #1 (permalink) |
Member
Регистрация: 16.10.2012
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите решить уравнение методом половинного деления
Const e=0.00001; Var x,dx:real; Function F(z:real):Real; begin F:=z*z*z-z*2-13; end; Begin x:=10; dx:=1; Repeat repeat x:=x-dx; until F(x)<0; x:=x+dx; dx:=dx/10; Until dx<e; Writeln('x= ',x:0:5,' F(x)= ',F(x):0:8); Readln End. |
27.10.2012, 22:01 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Возможно, после прочтения аналогичных тем вы найдете ответ на вопрос Решить дифференциальное уравнение в Паскале Решить систему уравнений методом Ньютона, Pascal Помогите решить дифференциальное уравнение |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|