нужно решить 3 задачи в делфи а то у меня завтра конец практики а я все не успею

[volia.92]

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

[fbus]

пишите в аську. сделаю

[Stilet]

volia.92

А на бумажке это как ты бы решил?

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

program Project3;

{$APPTYPE CONSOLE}

uses
  SysUtils,Math;
 var c:Char;
    s,a,h:Real;
begin
  try
    Writeln('Input parameter');
    Readln(c);
    case c of
    'h':
      begin
        Readln(h);
        a:=h/sin(pi/3);
        s:=Sqr(a)*sqrt(3)/4;
        Writeln('square=',s:6:2);
        Writeln('side of triangle=',a:6:2);
        Writeln('altitude of triangle=',h:6:2);

      end;
    'a':
        begin
          Readln(a);
          h:=a*sin(pi/3);
          s:=Sqr(a)*sqrt(3)/4;
          Writeln('square=',s:6:2);
          Writeln('side of triangle=',a:6:2);
          Writeln('altitude of triangle=',h:6:2);
        end;
    's':
        begin
          Readln(s);
          a:=Sqrt(4*s/sqrt(3));
          h:=a*sin(pi/3);
          Writeln('square=',s:6:2);
          Writeln('side of triangle=',a:6:2);
          Writeln('altitude of triangle=',h:6:2);
        end;

    end;

     Readln;
    { TODO -oUser -cConsole Main : Insert code here }
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.

Вот тебе вся математика!!!!