известны длины сторон треугольника a,b,c. напишите на языке Паскаль программу, вычисляющую площадь этого треугольника. пример входных данных: а=3
5-9 класс
|
b=4c=5. пример выходных данных S=6.0
var
a, b, c, p, s : real;
begin
read (a, b, c);
p := (a + b + c) / 2;
s := sqrt (p * (p - a) * (p - b) * (p - c)); //формула Герона
writeln (s);
end.
program test;
var a, b, c:integer; s, p: real;
begin
write('Enter a: ');
readln(a);
write('Enter b: ');
readln(b);
write('Enter c: ');
readln(c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('S = ', s);
readln;
end.
Другие вопросы из категории
модулем, нулевые элементы заменить числом N(размер массива), а остальные отрицательные числа умножить на -2
1) 3510
2) 368
3) 3А16
4) 1001012
5) 1304
Читайте также
вычисления: а) y=x^10 б) y=x^15. Постараться использовать минимальное количество дополнительных переменных. 2) Дана сторона равностороннего треугольника. Найти площадь этого треугольника, его высоты, радиусы вписанной и описанной окружностей. Программу записать на языке Паскаль. 3) Дана величина А, выражающая объём информации в байтах. Перевести А в более крупные единицы измерения информации. Программу записать на языке Паскаль
целое число.
найти длину третьей стороны треугольника и два остальных угла.