(Дельфи) небольшая программа (геометрия)
Добрый вечер, пожалуйста помогите написать новичку (студент 1го курса) код, и разобраться в нем с комментариями. Как сказал преподаватель нужно написать прогу, которая получает значение и по формуле высчитывает пример.
условие:
Дано гипотенузу с и катет прямоугольного треугольника а. Найти второй катет b и радиусы R и r описанного и вписанного кругов соответственно. При вычислении применить формулы r=2S/(a+b+c) и R=(abc)/4S, где S - площадь треугольника.
Заранее огромное спасибо!.
p.s. условие на украинском (может кому-то будет нагляднее)
_http://s002.radikal.ru/i197/1009/43/2ed3121e4622.jpg
вот что у меня получилось, поправьте если не правильно:
условие:
Дано гипотенузу с и катет прямоугольного треугольника а. Найти второй катет b и радиусы R и r описанного и вписанного кругов соответственно. При вычислении применить формулы r=2S/(a+b+c) и R=(abc)/4S, где S - площадь треугольника.
Заранее огромное спасибо!.
p.s. условие на украинском (может кому-то будет нагляднее)
_http://s002.radikal.ru/i197/1009/43/2ed3121e4622.jpg
вот что у меня получилось, поправьте если не правильно:
Цитата:
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;
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;
нужно теперь это все сделать на Pascal'e, пожалуйста помогите составить тот же код только на паскале!
Если вам такие задачи уже дают, видимо подразумевается, что паскаль вы уже знаете. Так в чем проблема перенести готовую программу с, фактически, паскаля на паскаль??? o_O
Короче, сколько?
Короче, сколько?
Заменить ShowMessage на WriteLn и убрать procedure TForm1.Button1Click(Sender: TObject);. :D
program p1
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;
writeln('Второй катет = '+floattostr(b));
writeln('Радиус вписанной окружности = '+floattostr(r1));
writeln('Радиус описанной окружности = '+floattostr(r2));
end.
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;
writeln('Второй катет = '+floattostr(b));
writeln('Радиус вписанной окружности = '+floattostr(r1));
writeln('Радиус описанной окружности = '+floattostr(r2));
end.