Задача на case

[klop.92]

Пожалуста памагите. Это у меня вапрос жизни и смерти. задача такая. пусть элементами прямоугольного равнобедренного треугольника; сторона а, площадь s, высота h, радиус вписанной окружнсти r, радиус описанной окруности R. составить программу которая по заданному номеру и значению соответствующего элемента вычисляла бы значения остальных элементов. очень сильно прошу помогите.надо к зафтрашнему дню. пожалуста. заранее благодарен.

[evg_m]

для однозначного определения треугольника небходмо задавать две
величины из предложенного списка

выберем например сторону a и высоту h тогда
площадь s = a*h /2 , остальные формулы смотри в учебнике геометрии

для конккретных ответов по написанию программы должен быть хотя какой-нибудь текст своей программы и вопросы по ней

[klop.92]

задача в паскале абц. вроде простая но я в паскале не бум бум. прошу помогите .

[klop.92]

У меня есть подобная задача . Тока она не идёт. Требуется какоето условие каторое надо гдето во врайт писать, обозначающее в еденицу измерения
Задача такая program nl;
Var a,b,s,h,n :integer;
Begin
Write ('вв элементы 1 катет, 2 гипотенуза итд');
Read (n)
Case n of
1: b:= sqrt (n*n+n*n);
Write ('b=',b);
End;
End.
И также все остальные элементы . Ват загвоздка в еденице измерения. Как это оформить???

[evg_m]

как вариант
var a,h,s,h,n: irecord val: integer; izm: string; end;
a.izm:='sm';
s.izm:='sm2';