Пусть элементами прямоугольного равнобедренного треугольника являются: 1) катет а; 2) гипотенуза
Пусть элементами прямоугольного равнобедренного треугольника являются: 1) катет а; 2) гипотенуза b; 3) вышина, опущенная из верхушки прямого угла на гипотенузу h; 4) площадь S. Составить программку, которая по заданному номеру и значению подходящего элемента вычисляла бы значение всех остальных частей треугольника.
Задать свой вопрос1 ответ
Анна Рабуева
USES Crt;
VAR
nbsp;nbsp;x: byte;
nbsp;nbsp;xx: REAL;
BEGIN
nbsp;nbsp;READ(x, xx);
nbsp;nbsp;CASE x OF
nbsp;nbsp;nbsp;nbsp;1: BEGIN
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WRITELN(b=, xx*sqrt(2):0:4);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WRITELN(h=, xx/sqrt(2):0:4);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WRITELN(S=, sqr(xx)/2:0:4);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;END;
nbsp;nbsp;nbsp;nbsp;2: BEGIN
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WRITELN(a=, xx/sqrt(2):0:4);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WRITELN(h=, xx/2:0:4);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WRITELN(S=, sqr(xx)/4:0:4);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;END;
nbsp;nbsp;nbsp;nbsp;3: BEGIN
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WRITELN(a=, xx*sqrt(2):0:4);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WRITELN(b=, xx*2:0:4);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WRITELN(S=, xx:0:4);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;END;
nbsp;nbsp;nbsp;nbsp;4: BEGIN
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WRITELN(a=, sqrt(xx*2):0:4);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WRITELN(b=, 2*sqrt(xx):0:4);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WRITELN(h=, sqrt(xx)/2:0:4);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;END;
nbsp;nbsp;END;
nbsp;nbsp;READLN;
nbsp;nbsp;READLN
END.
VAR
nbsp;nbsp;x: byte;
nbsp;nbsp;xx: REAL;
BEGIN
nbsp;nbsp;READ(x, xx);
nbsp;nbsp;CASE x OF
nbsp;nbsp;nbsp;nbsp;1: BEGIN
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WRITELN(b=, xx*sqrt(2):0:4);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WRITELN(h=, xx/sqrt(2):0:4);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WRITELN(S=, sqr(xx)/2:0:4);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;END;
nbsp;nbsp;nbsp;nbsp;2: BEGIN
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WRITELN(a=, xx/sqrt(2):0:4);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WRITELN(h=, xx/2:0:4);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WRITELN(S=, sqr(xx)/4:0:4);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;END;
nbsp;nbsp;nbsp;nbsp;3: BEGIN
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WRITELN(a=, xx*sqrt(2):0:4);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WRITELN(b=, xx*2:0:4);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WRITELN(S=, xx:0:4);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;END;
nbsp;nbsp;nbsp;nbsp;4: BEGIN
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WRITELN(a=, sqrt(xx*2):0:4);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WRITELN(b=, 2*sqrt(xx):0:4);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WRITELN(h=, sqrt(xx)/2:0:4);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;END;
nbsp;nbsp;END;
nbsp;nbsp;READLN;
nbsp;nbsp;READLN
END.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
Облако тегов