Case14. Элементы равностороннего треугольника пронумерованы следующим образом: 1 — сторона $$a$$, 2 — радиус $$R_1$$ вписанной окружности ($$R_1 = a\sqrt{3}/6$$ ), 3 — радиус $$R_2$$ описанной окружности ($$R_2 = 2*R_1$$), 4 — площадь $$S = a^2*\sqrt{3} / 4$$ . Дан номер одного из этих элементов и его значение. Вывести значения остальных элементов данного треугольника (в том же порядке).
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 |
program Case14; var N:Integer; X,a,R1,R2,S:Real; begin Write('Введите номер равностороннего треугольника: '); Readln(N); Write('Введите длинну элемента: '); Readln(X); Case N of 1: begin a:=X; R1:=a*sqrt(3)/6; R2:=2*R1; S:=Sqr(a)*sqrt(3)/4; end; 2: begin R1:=X; a:=R1*6/sqrt(3); R2:=2*R1; S:=Sqr(a)*sqrt(3)/4; end; 3: begin R2:=X; R1:=R2/2; a:=R1*6/sqrt(3); S:=Sqr(a)*sqrt(3)/4; end; 4: begin S:=X; a:=Sqrt(S*4/sqrt(3)); R1:=a*sqrt(3)/6; R2:=2*R1; end; end; Writeln('Длина стороны равна: ',a,'; Радиус R1 равен: ',R1,'; Радиус R2 равен: ',R2, 'Площадь равна',S); end. |
Другие задачи из раздела Case можно посмотреть здесь.
Комментарии: