Перед ким стоїть завдання: досягнути відображення браузером сайту у відповідності до запропонованого макету: а) веб дизайнер б) веб менеджер в) веб розробник
Треугольник существует, если сумма длин двух любых его сторон больше длины третьей стороны. Длина стороны может быть определена как расстояние между соответствующими сторонами треугольника:
// 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 x,y:real; begin Write('Введите координаты x и y точки: '); Readln(x,y); Write('Точка с указанными координатами '); if not ((y<=x) and (x<=2) and ((sqr(x)+sqr(y))>=4) and (y>=0)) then Write('не '); Writeln('принадлежит заштрихованной области.') end.
Примеры выполнения программы: Введите координаты x и y точки: 1.9 2.1 Точка с указанными координатами не принадлежит заштрихованной области.
Введите координаты x и y точки: 1.9 1.82 Точка с указанными координатами принадлежит заштрихованной области.
Введите координаты x и y точки: 1 -3 Точка с указанными координатами не принадлежит заштрихованной области.
Объяснение:
Веб розробник