11.12.2012, 21:00 | #22 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Как-то так:
Код:
Const a=-2.0; b=1.2; Var x,y:Real; Function F(z:real):real; begin F:=Sin(z)/Cos(z)-Cos(z+3)/Sin(z+3); end; Function H(p:real):real; begin If (p>-1) and (p<1) then H:=0.1 else H:=0.2; end; Begin x:=a-H(a); Repeat x:=x+H(x); y:=F(x); Writeln('x= ',x:4:1,' y= ',y:9:5); Until x>b-H(b)/2; Readln; End. |
11.12.2012, 21:13 | #23 (permalink) |
Member
Регистрация: 11.12.2012
Сообщений: 26
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо помог очень
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|