|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.03.2012, 11:59 | #1 |
Пользователь
Регистрация: 16.12.2011
Сообщений: 25
|
Применение подпрограмм(часть2)
Вычислить значение функции y=(sqrt(cos(z+1.3))/(cos(z)*cos(z)+cos(0.7)) на интервале [0.2;1.2] c шагом 0.2.Значение cos(x) вычислить как сумму ряда(я ее уже переделал на -x*x/((2*n+1)*(2*n+2))) с точностью е=0.0001.Проверить вычисление функции y,используя cos(x) как стандартную.
Исправте ошибки program lab_6a; var q,x,y:real; function sum(x:real):real; var p,s,pred,e:real; n:integer; begin p:=0; s:=0; e:=0.0001; n:=1; repeat pred:=p; q:=-x*x/((2*n+1)*(2*n+2)); p:=p*q; s:=s+p; n:=n+1; until(abs(pred-p)<=e); sum:=s; end; begin x:=0.2; while(x<=1.2) do begin y:=(sqrt(cos(x)+0.27))/(cos(x)*cos(x)+cos(0.7)); writeln(y); y:=(sqrt(sum(x)+0.27))/(sum(x)*sum(x)+sum(0.7)); writeln(y); x:=x+0.2; end; readln; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Применение подпрограмм | desnet | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 12.03.2012 17:58 |
Использование подпрограмм | swillrocker | Помощь студентам | 1 | 22.05.2011 14:25 |
Про ежа... часть2... | IIIABKAT | Microsoft Office Excel | 6 | 09.02.2011 10:48 |