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 |
|
это уже из области нейронных сетей пошло по принципу распознай букву 
