Геометрия на Паскале

[NikiFX]

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

[kommunist]

Что не получается? Сначала всем значеним присвой номера
потом case номер of если первое тогда вычислям все значени и т.д.

[NikiFX]

У проблема с формулами, я формулы не помню, и проблема с составлением с оператором выбора. Завтра олимпиада и все из головы вылетело.

[kommunist]

program zadacha;
uses crt;
var
    nom:itnteger;
    a:real;
    h:real;
    b:real;
    s:real;
begin
    clrscr;
    wrteln('vvedite nomer:');
    readln(nom);
    case nom of
 1: writeln('vvedite a:');
     b :=sqrt(sqr(a)+sqr(a));
     h :=sqrt(sqr(b) - (sqr(b)/4));
     s := (h*b/2);
 2: writeln(vvedite b:');
     a :=sqrt(sqr(b) -sqr(a));
     h :=sqrt(sqr(b) - sqrt(sqr(b) - sqr(a)));
     s := (h*b/2);
     ....................
     . .................
// остальные значения по такому же принципу
end;
     writeln('s=',s);
     writeln('a=',a);
     writeln('b=',b);
     writeln('h=',h);
    readln;
end.

[NikiFX]

Огромное тебе спасибо!!!

[Sp1der_man]

А может кто-нибуть дописать эту программу до конца?
буду очень признателен!

[ОДИНОЧЕСТВО В СЕТИ]

>>А может кто-нибуть дописать эту программу до конца?
я могу! контакты в профиле!

[Sp1der_man]

пиши на форуме,у меня нет айсикью.

[sheka]

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

[Sp1der_man]

Откуда у бедных студентов деньги?
Я думал тут бесплатно делают((