Информатика 10-11. Книга 2. Практика алгоритмизации и программирования. Шауцукова Л.З. - 113 стр.

UptoLike

Составители: 

end;
If n1>=3 then {если число точек внутри треугольника не меньше
трех,}
begin Flag:=TRUE; {то строятся внутренние треугольники}
For i1:=1 to n1-2 do {циклы по номерам вершин внутренних}
For j1:=i1+1 to n1-1 do {треугольников}
For k1:=j1+1 to n1 do
begin {рисование внешнего треугольника красным цветом}
Triangle(X[i],Y[i],X[j],Y[j],X[k],Y[k],LightRed);
{рисование внутреннего треугольника зеленым цветом}
Triangle(InX[i1],InY[i1],InX[j1],InY[j1],InX[k1],InY[k1],
LightGreen);
OutTextXY(80,450,'Найдено решение. Нажмите любую клавишу!');
Ch:=ReadKey;
SetColor(Black); {"стирание" сообщения}
OutTextXY(80,450,'Найдено решение. Нажмите любую клавишу!');
{“стирание
внутреннего треугольника}
Triangle(InX[i1],InY[i1],InX[j1],InY[j1],InX[k1],InY[k1],
Black)
end {конец циклов по номерам вершин внутренних треугольников}
end;
{"стирание" внешнего треугольника}
Triangle(X[i], Y[i], X[j], Y[j], X[k], Y[k], Black)
end; {конец циклов по номерам вершин внешнего треугольника}
SetColor(White);
If not Flag then OutText('Для данного множества нет решений задачи')
else OutText('РАБОТА ПРОГРАММЫ ЗАВЕРШЕНА');
OutTextXY(80,450,' Нажмите любую клавишу ...');
Ch:=ReadKey;
CloseGraph {закрытие графического режима}
END.
           end;
         If n1>=3 then {если число точек внутри треугольника не меньше
трех,}
           begin Flag:=TRUE; {то строятся внутренние треугольники}
            For i1:=1 to n1-2 do {циклы по номерам вершин внутренних}
             For j1:=i1+1 to n1-1 do {треугольников}
              For k1:=j1+1 to n1 do
               begin {рисование внешнего треугольника красным цветом}
                Triangle(X[i],Y[i],X[j],Y[j],X[k],Y[k],LightRed);
                  {рисование внутреннего треугольника зеленым цветом}
                Triangle(InX[i1],InY[i1],InX[j1],InY[j1],InX[k1],InY[k1],
                         LightGreen);
                OutTextXY(80,450,'Найдено решение. Нажмите любую клавишу!');
                Ch:=ReadKey;
                SetColor(Black); {"стирание" сообщения}
                OutTextXY(80,450,'Найдено решение. Нажмите любую клавишу!');
                  {“стирание” внутреннего треугольника}
                Triangle(InX[i1],InY[i1],InX[j1],InY[j1],InX[k1],InY[k1],
                         Black)
               end {конец циклов по номерам вершин внутренних треугольников}
           end;
           {"стирание" внешнего треугольника}
          Triangle(X[i], Y[i], X[j], Y[j], X[k], Y[k], Black)
        end; {конец циклов по номерам вершин внешнего треугольника}
  SetColor(White);
  If not Flag then OutText('Для данного множества нет решений задачи')
              else OutText('РАБОТА ПРОГРАММЫ ЗАВЕРШЕНА');
  OutTextXY(80,450,' Нажмите любую клавишу ...');
  Ch:=ReadKey;
  CloseGraph {закрытие графического режима}
END.