Треугольник существует, если сумма длин двух любых его сторон больше длины третьей стороны. Длина стороны может быть определена как расстояние между соответствующими сторонами треугольника:
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016 type Point=record x,y:real end;
procedure GetPoint(c:char;var M:Point); begin Write('Введите координаты точки ',c,': '); Read(M.x,M.y) end;
function Dist(a,b:Point):=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));
begin var A,B,C:Point; GetPoint('A',A); GetPoint('B',B); GetPoint('C',C); var ab:=Dist(A,B); var bc:=Dist(B,C); var ac:=Dist(A,C); if (ab<bc+ac) and (bc<ab+ac) and (ac<ab+bc) then Writeln('Треугольник существует') else Writeln('Треугольник не существует') end.
Тестовое решение: Введите координаты точки A: -6.9 -5.3 Введите координаты точки B: 0 11.4 Введите координаты точки C: 9 3 Треугольник существует
Var i: Integer; // рабочая переменная для for k: Integer; // количество минимальных элементов n: Integer; // размер массива m : array [1..10] of Integer; // Собственно сам массив из "n" элементов i_min : Integer; // Индекс минимального элемента в массиве begin n:=10; k := 0; i_min := 1; for i := 1 to n do begin m[i] := Random(10); // 10 - Число от балды if (m[i]<m[i_min]) then begin k := 1; i_min := i end else if (m[i]=m[i_min]) then inc(k); end;
// В переменной "k" - находится количество минимальных элементов end;
var
f : real;
x : integer;
begin
readln(x);
f := (2 * x +sqrt(12*x)) / (3*x);
write(f:5:2);
end.