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