Денотатный граф - [от лат. denoto — обозначаю и греч. — пишу вычленения из текста существенных признаков ключевого понятия.
создания денотатного графа: •Выделение ключевого слова или словосочетания •Чередование имени и глагола в графе (именем может быть одно существительное или группа существительных в сочетании с другими именными частями речи; глагол выражает динамику мысли, движение от понятия к его существенному признаку) •Точный выбор глагола, связывающего ключевое понятие и его существенный признак (глаголы, обозначающие цель — направлять, предполагать, приводить, давать и т. д. ; глаголы, обозначающие процесс достижения результата — достигать, осуществляться; глаголы, обозначающие предпосылки достижения результата — основываться, опираться, базироваться; глаголы-связки, с которых осуществляется выход на определение значения понятия) •Дробление ключевого слова по мере построения графа на слова — "веточки" •Соотнесение каждого слова — "веточки" с ключевым словом с целью исключения каких-либо несоответствий, противоречий и т. д.
Треугольник существует, если сумма длин двух любых его сторон больше длины третьей стороны. Длина стороны может быть определена как расстояние между соответствующими сторонами треугольника:
// 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 Треугольник существует
1 С программы
2 слайд шоу это фото которые идут последовательно олин за другим
3 можно включить любую информацию
Объяснение: