Лабораторная работа: Разработка форматов хранения данных программы. Структурирование

if Cross1(CircleAr[i].R,RectangleAr[1].x,CircleAr[i].x) then

Begin

if Cross2(RectangleAr[1].y,RectangleAr[2].y,CircleAr[i].R,RectangleAr[1].x,CircleAr[i].x,CircleAr[i].y) then

Begin

S:=S+1; GoTo ExitFromCalc;

End

End;

if Cross1(CircleAr[i].R,RectangleAr[2].x,CircleAr[i].x) then

Begin

if Cross2(RectangleAr[1].y,RectangleAr[2].y,CircleAr[i].R,RectangleAr[2].x,CircleAr[i].x,CircleAr[i].y) then

Begin

S:=S+1; GoTo ExitFromCalc;

End

End;

ExitFromCalc:

End;

{Конец цикла проверки}

Writeln('С прямоугольником пересекаются ',S,' окружности(ей) из ',n,'.');

Assign(ResultFile,'result.txt');

Rewrite(ResultFile);

Write(ResultFile,'С прямоугольником пересекаются ',S,' окружности(ей) из ',n,'.');

Close(ResultFile);

Readln;

End.

4. Экранные формы: