Question

Пусть элементами прямоугольного равнобедренного треугольника являются: 1) катет а; 2) гипотенуза b; 3) высота, опущенная из вершины прямого угла на гипотенузу h; 4) площадь S. Составить программу, которая по заданному номеру и значению соответствующего элемента вычисляла бы значение всех остальных элементов треугольника.

Answer 1

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.