Составить программу решение уравнения - 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.