1)
procedure TForm2.Button1Click(Sender: TObject);
var
A, B, C: real;
begin
Label3.Caption := '';
A := StrToFloat(Edit1.Text);
B := StrToFloat(Edit2.Text);
C := 180 - (A + B);
Label3.Caption := Label3.Caption + 'Угол C = ' + FloatToStr(C);
if C = 90 then Label3.Caption := Label3.Caption + '. Треугольник прямоугольный';
if C > 90 then Label3.Caption := Label3.Caption + '. Треугольник тупоугольный';
if C < 90 then Label3.Caption := Label3.Caption + '. Треугольник остроугольный';
end;
2)
procedure TForm2.Button1Click(Sender: TObject);
var
S1, S2: real;
D, t, Ans: real;
begin
S1 := StrToFloat(Edit1.Text);
S2 := StrToFloat(Edit2.Text);
D := StrToFloat(Edit3.Text);
t := StrToFloat(Edit4.Text);
if RadioGroup1.ItemIndex = 0 then
Label5.Caption := 'Расстояние между поездами = '+ FloatToStr(((S1 * t) + (S2 * t)) + D)
else
begin
Ans := D - ((S1 * t) + (S2 * t));
if Ans > 0 then
Label5.Caption := 'Расстояние между поездами = '+ FloatToStr(D - ((S1 * t) + (S2 * t)))
else
begin
Label5.Caption := 'Расстояние между поездами = '+ FloatToStr(abs(D - ((S1 * t) + (S2 * t))));
Label5.Caption := Label5.Caption + '. Поезда уже встретились и/или проехали мимо друг друга.'
end;
end;
end;
