Вычислить значение функции с указанным шагом, представив sin как сумму ряда с заданной точностью

18.03.2014, 11:38. **Показов** 1515. **Ответов** 1

Author24 — интернет-сервис помощи студентам

И так, срочно нужно решить поставленную задачу.
Необходимо составить блок схему и программу на Turbo Pascal.

@Puporev · 18.03.2014, 13:54

Pascal

uses crt;
const e=0.0001;
      h=pi/10;
      n=0;
      k=pi/2;
function Y(z:real):Real;
begin
Y:=(sin(z*z)+0.44)/sin(2*(z+0.3))*sqrt(sin(1.7))
end;
function S(x:real):real;
var t,r:real;
    n:integer;
begin
n:=0;
t:=x;
r:=t;
while abs(t)>e do
 begin
  n:=n+1;
  t:=-t*x*x/(2*n*(2*n+1));
  r:=r+t;
 end;
S:=r
end;
var z,y1,y2:real;
begin
clrscr;
z:=n;
while z<=k+h/2 do
 begin
  y1:=Y(z);
  y2:=(S(z*z)+0.44)/S(2*(z+0.3))*sqrt(S(1.7));
  writeln('z=',z:5:2,'  y1=',y1:7:4,'  y2=',y2:7:4);
  z:=z+h
 end;
readln
end.

Добавлено через 1 минуту

Сообщение от bratsk-shop

И так, срочно нужно решить поставленную задачу.

Советовал бы не обращаться так по хамски, не запряг....

bratsk-shop
		1
	Вычислить значение функции с указанным шагом, представив sin как сумму ряда с заданной точностью 18.03.2014, 11:38. Показов 1515. Ответов 1 Метки нет (Все метки) И так, срочно нужно решить поставленную задачу. Необходимо составить блок схему и программу на Turbo Pascal. Миниатюры

	18.03.2014, 13:54

Опции темы

Вычислить значение функции с указанным шагом, представив sin как сумму ряда с заданной точностью

Решение