Задание:
Составьте блок-схему и программуна языке Pascal для вычисления длин высот треугольника, у которого длины сторон a, b, c (a, b, c вводятся с клавиатуры).
Решение:
Var a, b, c, S, p, Ha, Hb, Hc: Real; begin readln (a, b, c); if (a=0) or (b=0) or (c=0) then writeln ('Error') else begin p: =(a+b+c) / 2; S: =Sqrt (p*(p-a)*(p-b)*(p-c); Ha: =2*S / a; Hb: =2*S / b; Hc: =2*S / c; writeln ('Ha=', Ha: 4:5); writeln ('Hb=', Hb: 4:5); writeln ('Hc=', Hc: 4:5); end; end.-Фух… Удачи
Знаете другой ответ?