Составить программу вычисления площади треугольника
10-11 класс
|
program perimeter_1;
uses crt;
var
P,a,b,c:real;
begin
clrscr;
writeln('введите a')
read (a);
writeln('введите b')
raed(b);
writeln('введите c')
raed(c);
P:=a+b+c;
writeln(P);
end.
var
a,b,c,p:real;
begin
writeln('Введите длины сторон треугольника: ');
write('A = ');read(a);
write('B = ');read(b);
write('C = ');read(c);
p:=(a+b+c)/2;
writeln('Площадь треугольника: ', sqrt(p*(p-a)*(p-b)*(p-c)):4:4);
end.
в программе free pascal
Другие вопросы из категории
int(6,9)
2. определите тип выражения : exp(43)
3. вычислите значение логического выражения : tranc(10*P), при P=0,1461
4. запишите математическое выражение на языке Pascal : 10 в степени 4 + In3!
Очень срочно нужно!!!!! заранее спасибо!!
Читайте также
Треугольник задан координатами своих вершин.Составить программу вычисления площади треугольника.
Сами формулы:
1.S=ah/2
2.S=1/2ab sin C
3.S=sqrt(p(p-a)(p-b)(p-c))
Составить программу вычисления значений функции F(x) на отрезке [а; b] с шагом h.
Результат представить в виде таблицы, первый столбец которой — значения
аргумента, второй — соответствующие значения функции: "F(x) = 1/2 ctg x/4+4"
Вычисление площади кольца
Введите исходные данные:
Радиус внешнего круга (см):
Радиус внутреннего круга (см):
Площадь внешнего круга:
Площадь внутреннего круга:
Площадь кольца: