Практикум по решению задач на ЭВМ. Тарова И.Н - 21 стр.

UptoLike

ВУЗ: 

ЕГУ им. Бунина | Елец

Составители: 

Рубрика: 

Практикум по решению задач на ЭВМ
readln;{Задержка}
end.
4) Треугольник задан величинами углов и радиусом описанной окружности.
Найти длины сторон и площадь.
program treug2(input,output);
uses CRT;
var a,b,c,r,p,pi:real;x,y,z,s:real;
begin
clrscr;{Очистка экрана}
writeln('Введите значение углов a, b треугольника (в градусах)');
writeln('и значение r радиуса описанной окружности');
read(a,b,r);{a,b в градусах}
c:=180-a-b;
pi:=4*arctan(1);
a:=a*pi/180;{перевод углов из градусов в радианы}
b:=b*pi/180;
c:=c*pi/180;
x:=2*r*sin(a);
y:=2*r*sin(b);
z:=2*r*sin(c);
p:=(x+y+z)/2;
s:=sqrt(p*(p-x)*(p-y)*(p-z));
writeln('стороны треугольника равны: ',x:4,y:4,z:4);
writeln('площадь
треугольника равна: ',s:10);
readln;
end.
21
                  Практикум по решению задач на ЭВМ


    readln;{Задержка}
  end.




4) Треугольник задан величинами углов и радиусом описанной окружности.
Найти длины сторон и площадь.
   program treug2(input,output);
   uses CRT;
   var a,b,c,r,p,pi:real;x,y,z,s:real;
   begin
     clrscr;{Очистка экрана}
writeln('Введите значение углов a, b треугольника (в градусах)');
writeln('и значение r радиуса описанной окружности');
     read(a,b,r);{a,b в градусах}
     c:=180-a-b;
     pi:=4*arctan(1);
   a:=a*pi/180;{перевод углов из градусов в радианы}
     b:=b*pi/180;
     c:=c*pi/180;
     x:=2*r*sin(a);
     y:=2*r*sin(b);
     z:=2*r*sin(c);
     p:=(x+y+z)/2;
     s:=sqrt(p*(p-x)*(p-y)*(p-z));
   writeln('стороны треугольника равны: ',x:4,y:4,z:4);
     writeln('площадь треугольника равна: ',s:10);
     readln;
   end.




                                  21

Страницы