Радиус окружности - Pascal

  1. Радиус окружности, вписанной в равносторонний треугольник, равен R. Составить программу для вычисления стороны (признак N=1), высоты (признак N=2) или площади треугольника (признак N=3).


textual

Код к задаче: «Радиус окружности - Pascal»

var a,S,r,h:real;
begin
{  r - радиус вписанной окружности в равносторонний треугольник
   a - длина стороны треугольника (AB=BC=AC)
   h - высота треугольника (за т.Пифагора)
   S - площадь треугольника   }
read(r);
a:=r*(2*sqrt(3));
S:=(sqr(a)*sqrt(3))/4;
h:=sqrt(sqr(a)-sqr(a/2));
write('a=',a:4:2,'     S=',S:4:2,'     h=',h:4:2);
end.

СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 3.800 из 5



Похожие ответы
  1. Даны две окружности одинакового радиуса R , заданные координатами их центров (X1Y1) (X2Y2) -целыми числами. Определить пересекаются ли они, в этом случае вычислить координаты, (вещественные числа)точек их пересечения

  1. Напишите программу для подсчета числа точек с целочисленными координатами, находящихся внутри круга с центром в начале координат и радиусом 1000.

  1. Помогите пожалуйста решить. Попарно заданы своими координатами 2N точек на плоскости. Определить в каком числе случаев обе точки из одной пары находятся на одной окружности с центром у начале координат а также средний радиус окружностей

  1. вводятся по очереди координаты n точек определить сколько из них попадает в кольцо с внутреним радиусом r1 и внешним радиусом r2

  1. Всем привет ребят, нужна Ваша помощь. Так как я в программировании не шарю, но учусь на программиста... Мне нужно написать 2 программы для рубежного контроля. 1 задача: Даны окружность радиуса r с центром в точке О с координатами и две точки А и В с координатами и , соответственно. Выяснить, является ли отрезок АВ диаметром заданной окружности. 2 задача: Даны окружность радиуса r с центром в точке О с координатами и две точки А и В с координатами и , соответственно. Выяснить, является ли отрезок АВ диаметром заданной окружности. Может просто кто нибудь уже решал эти задачи, очень нужна Ваша помощь!

  1. Вычислить длины окружностей, площади кругов и объемы шаров для ряда заданных радиусов. Признаком окончания счета является нулевое значение радиуса. Используя оператор цикла Repeat.

  1. Составить программу в Pascal ABC, определяющую, принадлежит ли точка с координатами (x,y) данной окружности.

  1. треугольник задан значениями углов и радиусом вписанной окружности. Найти стороны этого треугольника.

  1. Даны два числа x и y. Можно ли через точку (x,y) провести окружность единичного радиуса с центром в начале координат. помогите решить эту задачу?