Готовое решение задачи Паскаль. Решения Pascal. Задачи паскаль. Задачи pascal

Условие Задачи:

Даны действительные числа x, y. Вычислить значение функции z = arcsin(x) – y.

Просмотров: 1400
Объяснение: -

РЕШЕНИЕ:

Program PascalGuru; var x,y,z:real; {---------------------------------------------------------------------} Function arcsinala(X : real):real; Const E = 2.9e-19; Var Temp : real; arcsin : real; N : Word; Function Pow(A,B:real):real; Var T:Real; Begin T := Abs(A); Pow := Exp(B*Ln(T)); End; Function ElemMakloren(A:integer):Real; Var I : integer; Result : Real; Begin If A > 1 Then Begin Result := 1; For I := 1 To A-1 Do Begin If I mod 2 = 0 Then Result := Result / I Else Result := Result * I; End; If A mod 2 = 0 Then Result := 0; If A >= 3 Then Result := Result * Pow(X,A) / A; End Else Result := A * X; ElemMakloren := Result; End; Begin arcsin := 0; N := 1; Temp := 1; While Temp >= E Do Begin Temp := ElemMakloren(N); arcsin := arcsin + Temp; N := N + 2; End; arcsinala:=arcsin; End; {---------------------------------------------------------------------} begin write('x: '); readln(x); write('y: '); readln(y); z:=arcsinala(x)-y; writeln('Z= ',z:4:3); readln; end.

нажми на эту область и скопируй решение


	© 2008 - 2014 Pascal, Паскаль, Турбо Паскаль, Turbo pascal.