raskharazm
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору вот так я написвл программу но ругается! ( identifier not found "arccos"/ arcsin) var A,B,C,alfa,beta,gamma,s,r: real; begin A:=strtofloat(edit1.text); B:=strtofloat(edit2.text); C:=strtofloat(edit3.text); r:=(a+b+c)/2; s:=sqrt(r*(r-a)*(r-b)*(r-c)); alfa:=arccos((sqr(b)+sqr(c)-sqr(a))/2/b/c); beta:=arcsin(b/a*sin(alfa)); gamma:=pi-(alfa+beta); alfa:=alfa*180/pi; beta:=beta*180/pi; gamma:=gamma*180/pi; edit4.text:=floattostr(alfa); edit5.text:=floattostr(beta); edit6.text:=floattostr(gamma); label7.caption:='S='+ floattostrF(S,ffFixed,5,2); label8.caption:='R='+ floattostrF(2*r,ffFixed,5,2); end; |