Даны гипотенуза и катет треугольника. Найти второй катет и радиусы описанной и вписанной окружностей

@SnapeEye · Регистрация: 16.05.2013

Author24 — интернет-сервис помощи студентам

Даны гипотенуза и катет прямоугольного треугольника. Найти второй катет и радиусы описанной и вписанной окружностей R и r. При вычислении использовать формулы: (даны отдельно, есть в коде) , где a, b, c – стороны треугольника, S – площадь.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
a, b, S, c, r, Rad:integer;
// a - гипотенуза
// b - первый катет
// с - второй катет
// r - радиус вписанной окружности
// Rad - радиус описанной окружности
// S - площадь
begin
a:= Edit2.Text;
b:= Edit1.Text;
c:= sqrt(a*a-b*b);
S:= (1/2) * b * c;
r:= (2*S)/(a+b+c);
Rad:= (a*b*c)/(4*S);
label7.Caption:= Rad;
label8.Caption:= r;
label10.Caption:= c;
end;

Походу ошибка в типе данных, но не могу никак исправить её! Помогите =)

quwy · 12.09.2014, 17:45

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

Походу ошибка в типе данных

Integer -- это только целые числа. Математические функции и оператор деления возвращают вещественные числа, поэтому заменяйте Integer на Double.

А Edit2.Text -- это строка, ее нельзя присваивать числу, нужно преобразовать в Double при помощи StrToFloat.

И с присвоением label10.Caption:= c аналогично, нельзя число присваивать строке, нужно преобразование при помощи FloatToStr.

@SnapeEye · 12.09.2014, 17:56 **[ТС]**

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

Integer -- это только целые числа. Математические функции и оператор деления возвращают вещественные числа, поэтому заменяйте Integer на Double.
А Edit2.Text -- это строка, ее нельзя присваивать числу, нужно преобразовать в Double при помощи StrToFloat.
И с присвоением label10.Caption:= c аналогично, нельзя число присваивать строке, нужно преобразование при помощи FloatToStr.

Я попытался исправить, но опять не выходит, вот новый код:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
a, b, S, c, r, Rad:integer;
// a - гипотенуза
// b - первый катет
// с - второй катет
// r - радиус вписанной окружности
// Rad - радиус описанной окружности
// S - площадь
begin
a:= StrToFloat(Edit2.Text);
b:= StrToFloat(Edit1.Text);
c:= sqrt(a*a-b*b);
S:= (1/2) * b * c;
r:= (2*S)/(a+b+c);
Rad:= (a*b*c)/(4*S);
label7.Caption:= Rad;
label8.Caption:= r;
label10.Caption:= FloatToStr(c);
 
end;
 
end.

quwy · 12.09.2014, 18:04

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

Я попытался исправить, но опять не выходит, вот новый код:

Во-первых вы не прислушались к самому первому моему замечанию, а во-вторых вы почему-то решили, что переменные Rad и r чем-то отличаются от переменной c и их преобразовывать не нужно.

@SnapeEye · 12.09.2014, 18:10 **[ТС]**

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

Во-первых вы не прислушались к самому первому моему замечанию, а во-вторых вы почему-то решили, что переменные Rad и r чем-то отличаются от переменной c и их преобразовывать не нужно.

Осознал свою глупость =) Теперь всё работает, как по часам =)

Вот окончательный вариант:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
a, b, S, c, r, Rad:double;
// a - гипотенуза
// b - первый катет
// с - второй катет
// r - радиус вписанной окружности
// Rad - радиус описанной окружности
// S - площадь
begin
a:= StrToFloat(Edit2.Text);
b:= StrToFloat(Edit1.Text);
c:= sqrt(a*a-b*b);
S:= (1/2) * b * c;
r:= (2*S)/(a+b+c);
Rad:= (a*b*c)/(4*S);
label7.Caption:= FloatToStr(Rad);
label8.Caption:= FloatToStr(r);
label10.Caption:= FloatToStr(c);
 
end;
 
end.

quwy Native x86 5524 / 3279 / 938 Регистрация: 13.02.2013 Сообщений: 10,442
	12.09.2014, 17:45	2
	Сообщение было отмечено SnapeEye как решение Решение Сообщение от SnapeEye Походу ошибка в типе данных Integer -- это только целые числа. Математические функции и оператор деления возвращают вещественные числа, поэтому заменяйте Integer на Double. А Edit2.Text -- это строка, ее нельзя присваивать числу, нужно преобразовать в Double при помощи StrToFloat. И с присвоением label10.Caption:= c аналогично, нельзя число присваивать строке, нужно преобразование при помощи FloatToStr. 1

quwy Native x86 5524 / 3279 / 938 Регистрация: 13.02.2013 Сообщений: 10,442
	12.09.2014, 18:04	4
	Сообщение от SnapeEye Я попытался исправить, но опять не выходит, вот новый код: Во-первых вы не прислушались к самому первому моему замечанию, а во-вторых вы почему-то решили, что переменные Rad и r чем-то отличаются от переменной c и их преобразовывать не нужно. 1

	12.09.2014, 18:10

Даны гипотенуза и катет треугольника. Найти второй катет и радиусы описанной и вписанной окружностей

Решение