Case13. Элементы равнобедренного прямоугольного треугольника пронумерованы следующим образом: 1 — катет $$a$$, 2 — гипотенуза $$c = a*\sqrt{2}$$ , 3 — высота h, опущенная на гипотенузу ($$h=c/2$$), 4 — площадь $$S = c*h/2$$. Дан номер одного из этих элементов и его значение. Вывести значения остальных элементов данного треугольника (в том же порядке).
Решение:
|
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 Case13; var N:Integer; X,a,c,h,S:Real; begin Write('Введите номер элемента прямоугольного треугольника: '); Readln(N); Write('Введите длинну элемента: '); Readln(X); Case N of 1: begin a:=X; c:=a*sqrt(2); h:=c/2; S:=c*h/2; end; 2: begin c:=X; a:=c/sqrt(2); h:=c/2; S:=c*h/2; end; 3: begin h:=X; c:=2*h; a:=c/sqrt(2); S:=c*h/2; end; 4: begin S:=X; h:=Sqrt(S); c:=2*h; a:=c/sqrt(2); end; end; Writeln('Длина катета равна: ',a,'; Гипатенуза равна: ',c,'; Высота опущенная на гипотенузу равна: ',h, 'Площадь равна',S); end. |
Другие задачи из раздела Case можно посмотреть здесь.
Комментарии: