Можно заметить, что самый большой угол в треугольнике всегда расположен напротив самой длинной стороны, которую мы обозначим буквой с. Значение такого угла можно найти по теореме косинусов: В остроугольном треугольнике угол всегда будет меньше 90 градусов, поэтому его косинус всегда будет положительным. В прямоугольном треугольнике косинус будет равен нулю, а в тупоугольном он будет отрицательным. На этом можно построить решение, предварительно определив, какая из сторон является самой длинной. И, само собой разумеется, надо сразу после ввода проверить условие существования треугольника, т.е. чтобы сумма длин двух его любых сторон была больше третьей.
var a,b,c,a1,b1,c1,cosC:real; begin Write('Введите длины сторон треугольника: '); Read(a,b,c); Write('Треугольник '); if (a<(b+c)) and (b<(a+c)) and (c<(a+b)) then begin if a>b then if a>c then begin c1:=a; a1:=c; b1:=b end else begin c1:=c; a1:=a; b1:=b end else if b>c then begin c1:=b; a1:=a; b1:=c end else begin c1:=c; a1:=a; b1:=b end; cosC:=(sqr(a1)+sqr(b1)-sqr(c1))/(2*a*b); if cosC<0 then Writeln('тупоугольный') else if cosC=0 then Writeln('прямоугольный') else Writeln('остроугольный') end else Writeln('построить невозможно') end.
Тестовое решение: Введите длины сторон треугольника: 6 4.1 4 Треугольник тупоугольный
Const n=5; var a:array[1..n,1..n] of integer; i,j,amin:integer; begin Randomize; Writeln('Сгенерированный массив'); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=Random(50)+1; Write(a[i,j]:3) end; Writeln end; amin:=a[4,1]; for j:=2 to n do if amin>a[4,j] then amin:=a[4,j]; for i:=1 to n do a[i,i]:=amin; Writeln('Результирующий массив'); for i:=1 to n do begin for j:=1 to n do Write(a[i,j]:3); Writeln end end.
Значение такого угла можно найти по теореме косинусов:
В остроугольном треугольнике угол всегда будет меньше 90 градусов, поэтому его косинус всегда будет положительным. В прямоугольном треугольнике косинус будет равен нулю, а в тупоугольном он будет отрицательным. На этом можно построить решение, предварительно определив, какая из сторон является самой длинной. И, само собой разумеется, надо сразу после ввода проверить условие существования треугольника, т.е. чтобы сумма длин двух его любых сторон была больше третьей.
var
a,b,c,a1,b1,c1,cosC:real;
begin
Write('Введите длины сторон треугольника: ');
Read(a,b,c);
Write('Треугольник ');
if (a<(b+c)) and (b<(a+c)) and (c<(a+b)) then begin
if a>b then
if a>c then begin c1:=a; a1:=c; b1:=b end
else begin c1:=c; a1:=a; b1:=b end
else
if b>c then begin c1:=b; a1:=a; b1:=c end
else begin c1:=c; a1:=a; b1:=b end;
cosC:=(sqr(a1)+sqr(b1)-sqr(c1))/(2*a*b);
if cosC<0 then Writeln('тупоугольный')
else
if cosC=0 then Writeln('прямоугольный')
else Writeln('остроугольный')
end
else Writeln('построить невозможно')
end.
Тестовое решение:
Введите длины сторон треугольника: 6 4.1 4
Треугольник тупоугольный
n=5;
var
a:array[1..n,1..n] of integer;
i,j,amin:integer;
begin
Randomize;
Writeln('Сгенерированный массив');
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=Random(50)+1;
Write(a[i,j]:3)
end;
Writeln
end;
amin:=a[4,1];
for j:=2 to n do
if amin>a[4,j] then amin:=a[4,j];
for i:=1 to n do a[i,i]:=amin;
Writeln('Результирующий массив');
for i:=1 to n do begin
for j:=1 to n do Write(a[i,j]:3);
Writeln
end
end.
Тестовое решение:
Сгенерированный массив
14 26 14 37 27
27 24 37 17 38
36 22 41 29 14
13 7 32 42 27
27 28 21 10 26
Результирующий массив
7 26 14 37 27
27 7 37 17 38
36 22 7 29 14
13 7 32 7 27
27 28 21 10 7