Пусть элементами прямоугольного равнобедренного треугольника являются: 1) катет а; 2) гипотенуза b; 3) высота, опущенная из вершины
Вопрос посетителя
Пусть элементами прямоугольного равнобедренного треугольника являются: 1) катет а; 2) гипотенуза b; 3) высота, опущенная из вершины прямого угла на гипотенузу h; 4) площадь S. Составить программу, которая по заданному номеру и значению соответствующего элемента вычисляла бы значение всех остальных элементов треугольника.
Ответ эксперта
USES Crt;
VAR
x: byte;
xx: REAL;
BEGIN
READ(x, xx);
CASE x OF
1: BEGIN
WRITELN(‘b=’, xx*sqrt(2):0:4);
WRITELN(‘h=’, xx/sqrt(2):0:4);
WRITELN(‘S=’, sqr(xx)/2:0:4);
END;
2: BEGIN
WRITELN(‘a=’, xx/sqrt(2):0:4);
WRITELN(‘h=’, xx/2:0:4);
WRITELN(‘S=’, sqr(xx)/4:0:4);
END;
3: BEGIN
WRITELN(‘a=’, xx*sqrt(2):0:4);
WRITELN(‘b=’, xx*2:0:4);
WRITELN(‘S=’, xx:0:4);
END;
4: BEGIN
WRITELN(‘a=’, sqrt(xx*2):0:4);
WRITELN(‘b=’, 2*sqrt(xx):0:4);
WRITELN(‘h=’, sqrt(xx)/2:0:4);
END;
END;
READLN;
READLN
END.