Program PrVozdObGor;

Uses Crt, Graph, GRKYR;

Const MAX_M=1000;

Type

{ Тип "устаноывка ПВО" }

TzapPVO = Record

b:Real; {угол - координата установки }

r:Real; { радиус действия }

End;

{ Тип "координата пересечения" }

TzapAng = Record

l:Real; { угол - координата пересечения зоны действия}

{ комплекса и границы города}

e:-1..1; { признак начала или конца дуги, }

{ части границы города, которую покрывает зона}

{ действия конкретного комплекса ПВО}

nper:Word; { номер пересечения }

npvo:Word; { номер комплекса ПВО}

End;

{ Тип "Опасные зоны" }

TZapDanger = Record

fst:Real; { Координата начала зоны }

scn:Real; { Координата конца зоны }

End; программа воздушный агрессия противник

{ Тип массив координат пересечений }

TMasAng = Array[1..2*MAX_M] Of TzapAng;

{ Тип файл из записей "Комплексы ПВО"}

TFile1=File Of TzapPVO;

{ Тип файл из записей "Опасные зоны"}

TFile2=File Of TZapDanger;

{ Тип объекта "Исходные данные" }

TIshDan=Object

M:Word; { кол-во комплексов ПВО}

RG:Real; { радиус города }

PVO:TZapPVO; { комплекс ПВО}

{ Метод ввода исходных данных }

Procedure VvodDan(Const NameF:String);

End;

{Тип объекта " Пересечения " }

TKompl=Object(TIshDan)

A:TMasAng; { Массив координат пересечений }

{ Метод расчета координат пересечений и создания файла координат}

Procedure RasstanovkaPVO(Const NameF:String);

{ Метод сортировки по возрастанию углов (координат) }

Procedure Sortirovka;

{ Вывода на экран информации о пересечениях }

Procedure Pokaz;

End;

{ Тип объекта "Опасные направления"}

TDanZon=Object(TKompl)

Dang:TZapDanger; { опасное направление (зона) }

{ Метод создания файла опасных зон }

Procedure OpasnueZonu(Const NameF:String);

{ Метод определения дополнительных комплексов}

{ и создания файла данных о них}

Procedure Recom(Const NameF2:String);

End;

{ Тип объекта "Файл" }

TFile =Object

name:String; {имя файла}

{ Метод показа файла }

Procedure ShowF;

End;

{ Описание методов объекта TIshDan }

Procedure TIshDan.VvodDan(Const NameF:String);

Var i:Integer; yg:Real; RadPVO:Real; F:TFile1;

Begin

Assign(F,NameF); {Связывание имен}

Rewrite(F); {Открытие файла}

WriteLn;

WriteLn(' Введите:');

Write(' Количество комплексов ПВО -->');

{Цикл ввода количества комплексов}

Repeat

{$I-,R-}

ReadLn(M);

{$I+,R+}

If(IOResult<>0)Or(M<1)Or(M>1000)

Then

Begin WriteLn(' Недопустимое количество!');

WriteLn(' Нажмите Enter -->');

ReadLn; ReadLn;

GoToXY(1,WhereY-2);

DelLine;

GoToXY(1,WhereY-1);

DelLine;

GoToXY(1,WhereY-1);

DelLine;

End;

Until (M>0)And(M<=1000)And(IOResult=0);

{Цикл ввода радиуса города}

Repeat

Write(' Радиус города в километрах -->');

{$I-,R-}

ReadLn(RG);

{$I+,R+}

If (IOResult<>0)Or(RG<=0)

Then

Begin WriteLn(' Недопустимый радиус!');

WriteLn(' Нажмите Enter -->');

ReadLn; ReadLn;

GoToXY(1,WhereY-2);

DelLine;

GoToXY(1,WhereY-1);

DelLine;

GoToXY(1,WhereY-1);

DelLine;

End;

Until (RG>0)And(IOResult=0);

WriteLn(' Вводите угол в градусах от 0');

WriteLn(' до 360 - координату ПВО ');

WriteLn(' и радиус действия через пробел, ');

WriteLn(' затем Enter -->');

{ Цикл ввода данных о комплексах }

For i:=1 To M

Do Begin

Repeat

{$I-,R-}

ReadLn(yg,RadPVO);

{$I+,R+}

If (IOResult<>0)

Then Begin

WriteLn( 'Недопустимое значение!');

WriteLn(' Нажмите Enter -->');

ReadLn; ReadLn;

GoToXY(1,WhereY-2);

DelLine;

GoToXY(1,WhereY-1);

DelLine;

GoToXY(1,WhereY-1);

DelLine;

End

Else

If (yg>=360) Or (yg<0)

Then Begin

WriteLn( 'Недопустимое значение угла!');

WriteLn(' Нажмите Enter -->');

ReadLn;

GoToXY(1,WhereY-2);

DelLine;

GoToXY(1,WhereY-1);

DelLine;

GoToXY(1,WhereY-1);

DelLine;

End

Else

If RadPVO<=0

Then Begin

WriteLn(' Недопустимый радиус действия!');

WriteLn(' Нажмите Enter -->');

ReadLn;

GoToXY(1,WhereY-2);

DelLine;

GoToXY(1,WhereY-1);

DelLine;

GoToXY(1,WhereY-1);

DelLine;

End;

Until (IOResult=0)And(yg<360)And(RadPVO>0)And (yg>=0);

PVO.b:=(yg*Pi/180);

PVO.r:=RadPVO;

Write(F,PVO); {Запись данных о комплексе в файл}

End;

Close(F); {Закрытие файла}

Reset(F); {Открытие файла}

{Цикл проверки на наличие комплекса ПВО, }

{который бы защищал всю территорию города}

While Not Eof(F)

Do Begin

Read(F,PVO);

If PVO.r>=2*RG{радиус действия комплекса больше диаметра города}

Then Begin

Window(15,15,65,23);

TextBackGround(7);

TextColor(9);

ClrScr; GoToXY(12,3);

WriteLn('Город в безопасности!!!');

WriteLn(' Область действия комплекса ПВО');

WriteLn(' с координатой ', PVO.b*180/Pi:6:3,'

покрывает');

WriteLn(' всю территорию города!!!');

ReadLn;

Halt; {Выход из программы}

End;

End;

Close(F); {Закрытие файла}

End;

{ Описание методов объекта TKompl }

Procedure TKompl.RasstanovkaPVO(Const NameF:String);

Var j:Integer; w:Real; F:TFile1;

Begin

Assign(F,NameF); {Связывание имен}

Reset(F); {Открытие файла}

{ Цикл определения координат пересечения}

For j:=1 To M

Do Begin

Read(F,PVO);

{ Вычмсление вспомогательного угла}

w:=arctan(PVO.r*sqrt(4*RG*RG-PVO.r*PVO.r)/(2*RG*RG-

PVO.r*PVO.r));

{Вычисление координат пересечений}

If w<0

Then

Begin A[2*j-1].l:=PVO.b-w-Pi;

A[2*j].l:=PVO.b +w+Pi;

End

Else

Begin

A[2*j-1].l:=PVO.b - w;

A[2*j].l:=PVO.b + w;

End;

A[2*j-1].e:=-1; {присваивание признака начала дуги}

A[2*j].e:=1; {присваивание признака конца дуги}

A[2*j-1].nper:=2*j-1;

A[2*j].nper:=2*j;

A[2*j-1].npvo:=j;

A[2*j].npvo:=j

End;

Close(F);

End;

Procedure TKompl.Sortirovka;

Var k,j:Integer; flag:Boolean; t:TZapAng;

Begin k:=M*2;

{Цикл сортировки массива координат пересечений по возрастанию}

Repeat

flag:=false;

For j:=1 To k-1

Do

If A[j].l>A[j+1].l

Then Begin

{ Перестановка элементов}

t:=A[j];

A[j]:=A[j+1];

A[j+1]:=t;

flag:=true { Изменение значения флага

перестановки}

End;

k:=k-1;

Until (not flag)Or(k=1)

End;

Procedure TKompl.Pokaz;

Var n:Word;

Begin

WriteLn;

WriteLn(' Координата Номер Номер');

WriteLn(' пересечения ПВО пересечения');

{ Цикл вывода на экран элементов массива координат пересечений}

For n:=1 To 2*M

Do WriteLn((A[n].l*180/Pi):10:4, A[n].npvo:10,' ',A[n].nper:12);

ReadLn;

End;

{ Описание методов объекта TDanZon }

Procedure TDanZon.OpasnueZonu(Const NameF:String);

Var s:Integer; j,k,t:Word; F:TFile2;

Begin

Assign(F,NameF); { Связывание имен }

Rewrite(F); { Открытие файла }

s:=0; t:=0; { Начальные устанговки цикла }

{ Цикл вычисления начальных и конечных координат опасных зон }

For j:=1 To 2*M

Do Begin

s:=s+A[j].e; { текущая сумма признаков начала-конца }

{ Если s=0, т.е. выделена очередная связная область }

If (s=0) And (j<>2*M)

Then Begin

Dang.fst:=A[j].l;{ Начальная координата опасной зоны}

Dang.scn:=A[j+1].l;{Конечная координата опасной зоны}

t:=t+1; {текущее количество опасных зон }

Write(F,Dang);

End;

If (s=0) And (j=2*M) And (A{ng}[j].l-A[1].l<2*Pi)

Then Begin

Dang.fst:=A[j].l;{ Начальная координата опасной зоны}

Dang.scn:=A[1].l; { Конечная координата опасной зоны

t:=t+1; {текущее количество опасных зон }

Write(F,Dang);

End

End;

Close(F); {Закрытие файла}

Reset(F); {Открытие файла}

If t=0 {Если опасных зон нет}

Then Begin

TextBackGround(7);

TextColor(9);

ClrScr;

GoToXY(10,4);

WriteLn(' ГОРОД В БЕЗОПАСНОСТИ!!!');

End

Else Begin

TextBackGround(Red);

TextColor(White);

ClrScr;

WriteLn;

WriteLn(' Количество опасных зон ',t);

{ Цикл вывода информации об опасных зонах }

While Not Eof(F)

Do

Begin

Read(F,Dang);

WriteLn(Dang.fst*180/Pi:10:4,' до ',Dang.scn*180/Pi:10:4)

End;

End;

Close(F); { Закрытие файла }

End;

Procedure TDanZon.Recom(Const NameF2:String);

Var t,c,p:Real;F:TFile2;

Begin

Assign(F,NameF2);

Reset(F);

TextBackGround(9);ClrScr;

WriteLn(' РЕКОМЕНДАЦИИ');

WriteLn('Необходимы дополнительные комплексы ПВО:');

WriteLn('Координата Радиус действия');

{ Цикл вывода на экран рекомендаций по}

{ установке дополнительных комплексов}

While Not Eof(F)

Do

Begin

Read(F,Dang);

t:=Dang.fst+abs(Dang.scn - Dang.fst)/2;

p:=t-Dang.fst; {Вычисление координаты}

c:=RG*sqrt(2*(1-cos(p))); {Вычисление радиуса действия}

WriteLn(t*(180/Pi):10:4,c:12:3);

End;

Close(F);

End;

{ Описание методов объекта TFile }

Procedure TFile.ShowF;

Var PVO:TZapPVO;F:TFile1;

Begin

Assign(F,name); { Связывание имен }

Reset(F); { Открытие файла }

WriteLn;

WriteLn('Содержимое файла "Комплексы ПВО" :');

WriteLn(' Координата Радиус действия');

{ Цикл вывода содержимого файла на экран }

While Not Eof(F)

Do Begin

Read(F,PVO);

WriteLn(PVO.b*180/Pi:10:3,' ',PVO.r:12:3);

End;

Close(F);

End;

Const NameF1='C:\file1.zap';

NameF2='C:\file2.zap';

Var

MV:TDanZon; F:TFile;

i,j:Integer;

{Переменные для работы с графикой}

World:TGraphWorld; { Статический объект "графический мир" }

pt,pt2,pt3:TPCircle; { Ссылки на динамические объекты "окружность" }

n:LongInt;

sam1,sam2, sam3, sam4:TSamolet; { Статические объекты "самолеты"}

Begin

{ ГРАФИКА }

{Инициализация графики}

World.InitWorld(detect,detect,'C:\TP70\BGI');

{Инициализация окружностей}

New(pt,Init(300,trunc(GetMaxY/2)-2,45));

New(pt2,Init(300,trunc(GetMaxY/2)-2,45));

New(pt3,Init(300,trunc(GetMaxY/2)-2,45));

n:=1;

ReadLn;

{Цикл, реализующий "движение" текста, окружноятей}

Repeat

Delay(10000);

SetTextStyle(0,0,5);

SetColor(3);

OutTextXY(45,trunc(GetMaxY/2)-2,'MY TERM PAPER!');

SetTextStyle(3,0,7);

SetColor(0);

OutTextXY(trunc(100*cos(6*(n-1)))+150,(6*(n-1)+2)mod 280+40,'Press Enter!');

SetColor(9);

SetTextStyle(3,0,7);

OutTextXY(trunc(100*cos(6*n))+150,(6*n+2)mod 280+40,'Press Enter!');

SetColor(1);

pt^.MoveTo(trunc(80*cos(6*n))+280,(40+6*n)mod 480);

pt2^.MoveTo(trunc(80*cos(6*n))+280,(40+6*n)mod 480);

pt3^.MoveTo(trunc(80*cos(6*n))+280,(40+6*n)mod 480);

pt^.Bigger((25*n)Mod 450);

pt2^.Bigger((25*n)Mod 300);

pt3^.Bigger((25*n)Mod 150);

n:=n+1

Until KeyPressed;

{Освобождение памяти}

Dispose(pt,ZakCir);

Dispose(pt2,ZakCir);

Dispose(pt3,ZakCir);

ReadLn;

ClearDevice; {Очистка экрана}

{Инициализация самолетов}

sam1.Init(120,120);

sam2.Init(120,120);

sam3.Init(120,120);

sam4.Init(120,120);

{Инициализация окружностей}

New(pt,Init(450,GetMaxY Div 2-140,45));

New(pt2,Init(100,GetMaxY Div 2-100,45));

New(pt3,Init(300,GetMaxY Div 2+150,45));

n:=1;

Repeat

Delay(5700);

SetTextStyle(3,0,6);

OutTextXY(15,trunc(GetMaxY/2)-2,'AIR ATTACK PROTECTION!');

sam1.MoveTo(10*n Mod GetMaxX,GetMaxY Div 2-200);

sam2.MoveTo(14*n Mod GetMaxX,GetMaxY Div 2-100);

sam3.MoveTo(16*n Mod GetMaxX,GetMaxY Div 2+100); SetColor(4);

sam4.MoveTo(12*n Mod GetMaxX,GetMaxY Div 2+200);

pt^.Bigger((10*n)Mod 120);

pt2^.Bigger((12*n)Mod 180);

pt3^.Bigger((20*n)Mod 200);

SetColor(0);

Line(GetMaxX Div 2,GetMaxY Div 2,

GetMaxX Div 2+trunc( GetMaxX Div 2*sin(6*(n-1)*pi/360)),GetMaxY Div 2+trunc(GetMaxY Div 2*cos(6*(n-1)*pi/360)));

SetColor(4);

Line(GetMaxX Div 2,GetMaxY Div 2,

GetMaxX Div 2+trunc( GetMaxX Div 2*sin(6*n*pi/360)),GetMaxY Div 2+trunc(GetMaxY Div 2*cos(6*n*pi/360)));

SetColor(1);

SetTextStyle(3,0,3);

OutTextXY(200,GetMaxY - 40,'Press Enter to continue!');

n:=n+1;

Until KeyPressed;

{Освобождение памяти}

Dispose(pt,ZakCir);

Dispose(pt2,ZakCir);

Dispose(pt3,ZakCir);

sam1.ZakLoc;

sam2.ZakLoc;

sam3.ZakLoc;

sam4.ZakLoc;

ClearDevice; { Очистка экрана }

World.EndWorld; { Закрытие графического режима }

{ О ЗАДАЧЕ }

Window(1,1,80,25) ;

TextBackGround(BLACK);

TextColor(WHITE);

ClrScr;

TextBackGround(5);

TextColor(White);

Window(6,1,72,6);

ClrScr;

{Циклы рисования рамки}

For i:=2 To 66

Do Begin

GoToXY(i,1);

Write('*');

GoToXY(i,6);

Write('*');

End;

For j:=1 To 6

Do Begin

GoToXY(2,j);

Write('*');

GoToXY(66,j);

Write('*');

End;

Window(9,2,69,5);

WriteLn(' Данная программа выполняет проверку безопасности города ');

Write('(надежность защиты от воздушного нападения');

WriteLn(' с учетом радиуса города и характеристик комплексов ПВО).');

{ ОСНОВНАЯ ЗАДАЧА }

Window(3,8,37,23);

TextBackGround(3);

TextColor(WHITE); ClrScr;

{ Ввод исходных данных }

MV.VvodDan(NameF1);

ClrScr;

F.name:=NameF1;

F.ShowF; {Показ файла исходных данных}

{ Определение координат пересечений }

MV.RasstanovkaPVO(NameF1);

Window(40,8,79,23);

ClrScr;

{ Вывод координат пересечений }

MV.Pokaz;

{ Сортировка массива координат пересечений }

MV.Sortirovka;

Window(15,15,65,23);

{ Определение опасных зон и создание файла с данными о них }

MV.OpasnueZonu(NameF2);ReadLn;

{ Рекомендации по установке дополнительных комплексов }

MV.Recom(NameF2);ReadLn;

End.

2. Текст модуля GRKYR