Ответы на вопрос:
Var x,y,n,z,h,c: real; function arccos(x : real) : real; beginarccos : = 2 * arctan(sqrt((1 - x) / (1 + ; end; procedure ygls( a,b,c,t: real); var al,be,ga: real; beginal : = arccos((sqr(b) + sqr(c) - sqr(a))/(2 * b * c)) * 180 / pi; writeln('угол a= ',trunc(al)); writeln('угол b= ',trunc(180-al-t)); end; beginwrite('введите сторону а: '); readln(x); write('введите сторону b: '); readln(y); write('введите угол с: '); readln(c); n: =c; c: =cos(c*180/pi); z: =sqrt(x*x+y*y-2*x*y*c); h: =0.5*sqrt(2*(x*x+y*y)-c*c); ygls(x,y,z,n); writeln('сторона c: ',trunc(z)); writeln('высота h: ',trunc(h)); writeln('периметр p: ',trunc(x+y+z)); writeln('площадь s: ',trunc(z*h)); end.
Популярно: Информатика
-
aboderu19.03.2023 14:46
-
bellason27.11.2022 05:55
-
Remus127.02.2023 00:24
-
missstelmah200225.12.2022 07:03
-
AnnaDor22.04.2021 19:41
-
HNLLZ08.12.2022 20:22
-
балнур616.04.2021 22:22
-
baseke201810.11.2021 18:53
-
Mtaraska30.12.2020 16:20
-
Nastionka675725.12.2022 12:13