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

Writeln(' Исходные данные');

Writeln('Окружности:');

For i:=1 to n do

Begin

Write(i,':','R=',CircleAr[i].R,' (',CircleAr[i].x,':',CircleAr[i].x,')','; ');

End;

Writeln;

Writeln('Прямоугольник:');

Writeln('Верхняя правая точка: (',RectangleAr[1].x,':',RectangleAr[1].y,')');

Writeln('Верхняя правая точка: (',RectangleAr[2].x,':',RectangleAr[2].y,')');

End {PrintInData};

{ ------------------------------------------------------------ }

Function Cross1(Var R:word; P,C:integer):boolean;

Begin

Cross1:=false;

if (R*R-(P-C*C))>=0 then Cross1:=true;

End {Cross1};

{ ------------------------------------------------------------ }

Function Cross2(Var Inter1,Inter2:integer; R:word; P,C1,C2:integer):boolean;

Var Buf : real;

Begin

Cross2:=false;

Buf:=sqrt(R*R-(P-C1*C1))+C2;

if Buf<=Inter2 then

if Buf>=Inter1 then Cross2:=true;

End {Cross2};

{ ------------------------------------------------------------ }

Procedure PrintHead;

Begin