Составить программу решение уравнения - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Помогите пожалуйста. Описать функцию y=arcсоsec(x). Составить программу решение уровнения (a/sin(bx))=c через функцию arcсоsec

Решение задачи: «Составить программу решение уравнения»

textual
Листинг программы
uses crt;
function arccosec(x:real):real;
var sn,cs:real;
begin
sn:=1/x;
if sn=1 then  arccosec:=pi/2
else if sn=-1 then  arccosec:=-pi/2
else arccosec:=arctan(sn/(sqrt(1-sn*sn)));
end;
var a,b,c,x:real;
    k:byte;
begin
clrscr;
writeln('Введите a,b,c');
readln(a,b,c);
k:=0;
if b=0 then k:=1
else if c=0 then
if a=0 then x:=0 else k:=1
else if abs(c/a)>1 then k:=1
else x:=arccosec(a/c)/b;
if k=0 then write('x=',x:0:2)
else write('Решений нет');
readln
end.

Оцени полезность:

13   голосов , оценка 3.923 из 5
Похожие ответы