Задание:
Составить программу вычисления длин медиан треугольника, у которой длины сторон a,b,c
Решение:
Program asd; USES crt; var a,b,c,s1,s2,s3: real; BEGINClrscr; Writeln ('Vvedite dliny storony a: '); Readln (a); Writeln ('Vvedite dliny storony b: '); Readln (b); Writeln ('Vvedite dliny storony c: '); Readln (c); s1: =sqrt (2*a*a+2*b*b-c*c) /2; s2: =sqrt (2*a*a+2*c*c-b*b) /2; s3: =sqrt (2*c*c+2*b*b-a*a) /2; Writeln ('Dliny median: |',s1:2:2,'|',s2:2: 2,'|',s3:2:2,'|'); Readln; END.
Знаете другой ответ?