Вычислить длину стороны треугольника, медиану и площади вписанного и описанного круга - Pascal

Узнай цену своей работы

Формулировка задачи:

С клавиатуры вводится число a и число b от 1 до 4. Если b = 1, то a – длина стороны правильного треугольника, если b = 2, то медиана, если b = 3, то площадь вписанного круга, если b = 4, то площадь описанного круга. Выведите на экран длину стороны, медиану и площади вписанного и описанного круга.

Решение задачи: «Вычислить длину стороны треугольника, медиану и площади вписанного и описанного круга»

textual
Листинг программы
uses crt;
var a,ds,dm,rv,ro,sv,so:real;
    b:byte;
begin
repeat
write('Введите число>0 a=');
readln(a);
until a>0;
repeat
write('Введите целое число от 1 до 4 b=');
readln(b);
until b in [1..4];
case b of
1:begin
  ds:=a;//длина стороны
  dm:=sqrt(3)*ds/2;//длина медианы
  rv:=sqrt(3)*ds/6;//радиус вписанной окружности
  ro:=2*rv;//радиус описанной окружности
  sv:=pi*sqr(rv); //площади кругов
  so:=pi*sqr(ro);
  end;
2:begin
  ds:=2*a/sqrt(3);
  dm:=a;
  rv:=sqrt(3)*ds/6;
  ro:=2*rv;
  sv:=pi*sqr(rv);
  so:=pi*sqr(ro);
  end;
3:begin
  rv:=sqrt(a)/pi;
  ro:=2*rv;
  ds:=6*rv/sqrt(3);
  dm:=sqrt(3)*ds/2;
  sv:=a;
  so:=pi*sqr(ro);
  end;
4:begin
  ro:=sqrt(a)/pi;
  rv:=ro/2;
  ds:=6*rv/sqrt(3);
  dm:=sqrt(3)*ds/2;
  sv:=pi*sqr(rv);
  so:=a
  end;
end;
writeln('Длина стороны=',ds:0:2);
writeln('Длина медианы=',dm:0:2);
writeln('Площадь вписанного круга=',sv:0:2);
writeln('Площадь описанного круга=',so:0:2);
end.

Объяснение кода листинга программы

  1. Задается значение переменной a, которая представляет собой длину стороны треугольника.
  2. Задается значение переменной b, которая представляет собой номер типа треугольника (1, 2, 3 или 4).
  3. В зависимости от значения переменной b выполняется расчет и вывод значений следующих переменных:
    • ds: длина стороны треугольника
    • dm: длина медианы треугольника
    • rv: радиус вписанной окружности
    • ro: радиус описанной окружности
    • sv: площадь вписанного круга
    • so: площадь описанного круга

Оцени полезность:

10   голосов , оценка 3.9 из 5
Похожие ответы