написать программу на паскале Треугольник задан координатами (x1, y1), (x2, y2), (x3, y3)
10-11 класс
|
своих вершин. Вычислить радиус окружности, вписанной в треугольник
Var x1,y1,x2,y2,x3,y3,a,b,c,p,r:real;
Begin
write('A='); readln(x1,y1);
write('B='); readln(x2,y2);
write('C='); readln(x3,y3);
a:=sqrt(sqr(x1-x2)+sqr(y1-y2));
b:=sqrt(sqr(x2-x3)+sqr(y2-y3));
c:=sqrt(sqr(x1-x3)+sqr(y1-y3));
p:=(a+b+c)/2;
r:=sqrt(((p-a)*(p-b)*(p-c))/p);
writeln('r=',r:0:2);
End.
Другие вопросы из категории
(n+m)*(n+2m)*(n+3m)*...*(n+m^2)
Помогите пожалуйста, срочно!!
a. 254
b. 54
c. 1257
d. 84762
e. FA5D
f. E8A
g. 55
h. 879
i. 478
j. 19
если известно, что он был представлен в кодировке Unicode, а на одной странице -3072 символа.
Читайте также
ли он параллелограммом, если ДА – вычислите выражение |(a+b)2+| с точностью до сотых, где а и b смежные стороны параллелограмма.
(X1,Y1)(X2,Y2)(X3,Y3)(X4,Y4)(X5,Y5) соответственно. Найти площадь этого пятиугольника используя в качестве подпрограммы a) функцию
4. Известны периметр первого треугольника Р1, координаты вершин второго x1, y1, x2, y2,x3, y3 и длины сторон третьего – а3, в3, с3. Найти и вывести на экран периметр меньшего треугольника.
Алгоритмы ветвления
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
2.написать программу в паскале
f(x)=2(sin*sin)x+1