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

Assign(CircleFile,'circle.dat'); Reset(CircleFile);

Assign(RectangleFile,'rectangl.dat'); Reset(RectangleFile);

size:=FileSize(CircleFile);

n:=size;

For i:=1 to n do

Read(CircleFile,CircleAr[i]);

For i:=1 to 2 do

Read(RectangleFile,RectangleAr[i]);

Close(RectangleFile); Close(CircleFile);

Writeln('Данные из входных файлов загружены!!!');

PrintInData;

End;

S:=0;

{Цикл проверки}

For i:=1 to n do

Begin

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

Begin

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

Begin

S:=S+1; GoTo ExitFromCalc;

End

End;

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

Begin

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

Begin

S:=S+1; GoTo ExitFromCalc;

End