На аэродроме хотят внедрить систему слежения за происходящим. Аэродром представляет собой некоторое прямоугольное поле размером 990 на 5000 метров. Администрация решила закупить камеры, дальность съемки которых не превышает 10 «манхэттонских метра». Это означает, что камера видит всё происходящее, если расстояния от камеры до участка съемки по горизонтали и по вертикали (параллельно границам поля) составляют не более 10 метров. Сколько таких камер необходимо закупить, чтобы можно было охватить всю площадь аэродрома? Пример зоны действия камеры с дальностью 1 «манхэттонский метр» на поле размером 4 на 4 метра. Голубым выделена зона, покрываемая камерой, выделенной красным кружком.

Объяснение:

На чистом паскале никак. Либо используя графические библиотеки (например, GraphABC в Pascal ABC.NET), либо, например Delphi.

GraphABC:

uses GrathABC;

var b: picture;

begin

b:= Picture.Create('1.png');

...

end.

Далее через процедуру OnKeyDown или OnKeyPress считываем ключ с клавиатуры, и если это 2, то показываем изображение.

Примерно это должно выглядеть так:

procedure OnKeyPress(key: integer);

begin

if key = 2 then b.Draw(10, 10);

end;

Delphi: на нём гораздо проще. Здесь есть уже готовая форма, и стандартные компоненты за визуальность).

Через компонент TImage (вкладка Additional) загружаем изображение, устанавливаем у изображения свойство Visible:= false. Далее через OnKeyPress главной формы считываем ключ, и если key = 2, то Image.Visible:= true;

//PascalABC.NET версия 3.4.0.1677 от 17.06.18

//Если программа не запускается, то обновите версию

begin

   var zarazheno := 1;

   var sum := zarazheno;

   for var i := 1 to 4 do

   begin

       zarazheno *= 10;

       sum += zarazheno;

       WritelnFormat('{2} Новозараженно = {0}, всего заражено = {1}', zarazheno, sum, i);

   end;

end.

Вывод

1 Новозараженно = 10, всего заражено = 11

2 Новозараженно = 100, всего заражено = 111

3 Новозараженно = 1000, всего заражено = 1111

4 Новозараженно = 10000, всего заражено = 11111