Laekgilzh
5 год назад
Определить стороны треугольника, заданного величинами своих углов и радиусом описанной окружности. Применить теорему синусов(Basic)
ОТВЕТЫ
Вельяшев
Aug 8, 2019
PASCAL
a,b,c:real;
a1,b1,c1,r: integer;
begin
writeln(введите угол А=);
readln (a1);
writeln (введите угол B=);
readln (b1);
c1:=180-(a1+b1);
writeln (введите радиус r=);
readln (r);
a:=2*r*sin(a1);
b:=2*r*sin(b1);
c:=2*r*sin(c1);
writeln(сторона А=,a);
writeln(сторона B=,a);
writeln(сторона C=,a);
readln;
end.
BASIC
cls
input "a=",a1
input "b=",b1
c1=180-(a1+b1)
input "r=",r
a=2*r*sin(a1)
b=2*r*sin(b1)
c=2*r*sin(c1)
print "a=";a
print "b=";b
print "c=";c
a,b,c:real;
a1,b1,c1,r: integer;
begin
writeln(введите угол А=);
readln (a1);
writeln (введите угол B=);
readln (b1);
c1:=180-(a1+b1);
writeln (введите радиус r=);
readln (r);
a:=2*r*sin(a1);
b:=2*r*sin(b1);
c:=2*r*sin(c1);
writeln(сторона А=,a);
writeln(сторона B=,a);
writeln(сторона C=,a);
readln;
end.
BASIC
cls
input "a=",a1
input "b=",b1
c1=180-(a1+b1)
input "r=",r
a=2*r*sin(a1)
b=2*r*sin(b1)
c=2*r*sin(c1)
print "a=";a
print "b=";b
print "c=";c
41
Смежные вопросы:
