Площадь по стороне и двум прилежащим углам, Задачка Опции

[Lykash]

Вычислить площадь S треугольника по одной стороне "а" и прилежащим к ней углам "альфа" и "бета", при этом углы можно задавать или в градусах или в радианах.

[Lykash]

вот помогли нормально на другом форуме:

uses crt;
var a,b,al,bt,gm,s:real;
    w:byte;
begin
clrscr;
write('Введите длину строны А a=');
readln(a);
writeln('Угол 1-в градусах 2-в радианах');
repeat
readln(w);
until w in [1..2];
repeat
writeln('Введите прилегающие углы');
readln(al,bt);
if w=1 then
 begin
  al:=al*pi/180;
  bt:=bt*pi/180;
 end;
if (al+bt>=pi)or(al<=0)or(bt<=0) then
writeln('Углы должны быть положительные и в сумме меньше 180 градусов');
until (al+bt<pi)and(al>0)and(bt>0);
gm:=pi-al-bt;{угол протмв стороны А}
b:=a*sin(bt)/sin(gm);{сторона В из теоремы синусов}
s:=0.5*a*b*sin(al);{площадь по двум сторонам и углу между ними}
write('S=',s:0:2);
readln
end.

Сообщение отредактировано: Lapp - 17.02.2012 2:47