небольшая программа (геометрия)

[mego4el]

Добрый вечер, пожалуйста помогите написать новичку (студент 1го курса) код, и разобраться в нем с комментариями. Как сказал преподаватель нужно написать прогу, которая получает значение и по формуле высчитывает пример.

условие:

Дано гипотенузу с и катет прямоугольного треугольника а. Найти второй катет b и радиусы R и r описанного и вписанного кругов соответственно. При вычислении применить формулы r=2S/(a+b+c) и R=(abc)/4S, где S - площадь треугольника.

Заранее огромное спасибо!.

p.s. условие на украинском (может кому-то будет нагляднее)
_http://s002.radikal.ru/i197/1009/43/2ed3121e4622.jpg

[dmitriegorovih]

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,s,r1,R2:real;
begin
a:=0; //Первый катет
b:=0; //Второй катет
c:=0; //Гепотенуза
s:=0; //Площадь
r1:=0;//Радиус вписанной окружности
R2:=0;//Радиус описанной окружности
a:=10;//Первый катет
c:=20;//Гепотенуза
//По формуле квадрат гипотенузы равен сумме кватратов катетов с*с=а*а+b*b
b:=sqrt((c*c)-(a*a));
//Далее находим площадь треунольника
s:=a*b/2;
r1:=2*S/(a+b+c);
r2:=(a*b*c)/4*S;
showmessage('Второй катет = '+floattostr(b));
showmessage('Радиус вписанной окружности = '+floattostr(r1));
showmessage('Радиус описанной окружности = '+floattostr(r2));
end;

P.S. Что не сильно любят добовлять репы сейчас

[mego4el]

огромнейшее спасибо!!!!!

dmitriegorovih, простите, а как этот код будет выглядеть на Паскале?, просто задали в двух вариантах Delphi и Pascal, но я не могу разобраться=(

[Lokos]

Сообщение от mego4el

dmitriegorovih, простите, а как этот код будет выглядеть на Паскале?, просто задали в двух вариантах Delphi и Pascal, но я не могу разобраться=(

собственно так же только за место showmessage будет riteln
Вроде так.
Если нет то возьми любую книгу по паскалю и посмотри функции ввода вывода как правило это самое начало книги.
Ну и начало программы будет немного отличаться

[Sparkman]

Сообщение от mego4el

dmitriegorovih, простите, а как этот код будет выглядеть на Паскале?, просто задали в двух вариантах Delphi и Pascal, но я не могу разобраться=(

var a,b,c,s,r1,R2:real;
begin
     WriteLn('Введите первый катет a');
     ReadLn(a);
     WriteLn('Введите гипотенузу c');
     ReadLn(c);
     b:=sqrt((c*c)-(a*a));
     s:=a*b/2;
     r1:=2*S/(a+b+c);
     r2:=(a*b*c)/4*S;
     Write('Второй катет = ');
     WriteLn(b:0:4);
     Write('Радиус вписанной окружности = ');
     WriteLn(r1:0:4);
     Write('Радиус описанной окружности = ');
     WriteLn(r2:0:4);
     ReadLn;
end.