Liu kang вот твоя задача Program Liu_Kang; Var elem : integer; znach, a, s, h, r1, r2 : real; BEGIN Writeln ("Введите элемент треугольника и его значение:"); Writeln ("1 - сторона a, см;"); Writeln ("2 - площадь s, см2;"); Writeln ("3 - высота h, см;"); Writeln ("4 - радиус вписанной окружности r, см;"); Writeln ("5 - радиус описанной окружности R, см."); Read (elem, znach); Writeln; case elem of 1: a := znach; 2: a := sqrt(2
znach); 3: a := znach sqrt(2); 4: a := znach
(2 + sqrt(2)); 5: a := znach sqrt(2); end;
Ссылка на пост
ts 28 апр 2008 в 18:09
Пожалуста памагите. Это у меня вапрос жизни и смерти. задача такая. пусть элементами прямоугольного равнобедренного треугольника; сторона а, площадь s, высота h, радиус вписанной окружнсти r, радиус описанной окруности R. составить программу которая по заданному номеру и значению соответствующего элемента вычисляла бы значения остальных элементов. очень сильно прошу помогите.надо к зафтрашнему дню. пожалуста. заранее благодарен.