DrYogi
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Masi4ka вопросы еще актуальны? Здание 3 function ugol(c,b,gamma:real):real // gamma лежит против c, находим угол против B begin ugol=b*sin(gamma*PI/180)/c; ugol=arctg(ugol/sqrt(1-ugol*ugol)) end; function storona(b,c,alfa:real):real //alfa между b и c, находиv сторону против alfa begin storona=sqrt(c*c+b*b-2*c*b*COS(PI*alfa/180)); end; begin write ('введите AC ') readln(AC); write ('введите BC ') readln(BC); write ('введите ABC ') readln(ABC); CAB=ugol(AC,BC,ABC); BCA=PI-CAB-ABC; AB=storona(AC,BC,BCA); writeln('Строны' AC,BC,AB); writeln('Углы',ABC*180/PI,CAB*180/PI,BCA*180/PI); writeln('Периметр',AC+BC+AB); writeln('Площадь',AB*BC*sin(ABC)/2) end. | Всего записей: 3 | Зарегистр. 09-07-2008 | Отправлено: 18:24 27-09-2009 | Исправлено: DrYogi, 18:25 27-09-2009 |
|