Треугольник существует, если сумма длин двух любых его сторон больше длины третьей стороны. Длина стороны может быть определена как расстояние между соответствующими сторонами треугольника:
// 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 Треугольник существует
Длина стороны может быть определена как расстояние между соответствующими сторонами треугольника:
// 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
Треугольник существует
6) a = 9 b = 17
7) a = 71 b = 189
5) a = 14 b = 42
Объяснение:
6)
а = 3 + 8 * 4 = 3 + 32 = 35
b = (a // 10) + 14 = 3 + 14 = 17
a = (b % 10) + 2 = 7 + 2 = 9
a = 9 b = 17
7)
a = 1819
b = (a // 100) * 10 + 9 = 18 * 10 + 9 = 180 + 9 = 189
a = (10 * b - a) % 100 = (10 * 189 - 1819) % 100 = (1890 - 1819) % 100 = 71 % 100 = 71
a = 71 b = 189
5)
a = 42
b = 14
a = a // b = 42 // 14 = 3
b = a * b = 3 * 14 = 42
a = b // a = 42 // 3 = 14
a = 14 b = 42
// - целочисленное деление двух чисел, возвращает целочисленный результат деления, отбрасывая дробную часть.
35 / 10 = 3,5
35 // 10 = 3
% - получение остатка от деления, возвращает разность от делимого и произведения целочисленного результата деления на делитель
17 / 10 = 1,7
17 // 10 = 1 (целочисленный результата деления)
остаток = 17 - 1 * 10 = 17 - 10 = 7
17 % 10 = 7