Актуальной проблемой является рассадка зрителей в зрительном зале театра, кинотеатра, концертного зала и т.д. с соблюдением дистанции между занятыми местами. При этом желательно посадить в зале как можно больше зрителей, соблюдая минимальную требуемую дистанцию между местами. Зрительный зал представляет собой прямоугольник размером N × M, состоящий из единичных квадратов — мест. Расстоянием между местами будем считать сумму расстояний между ними по горизонтали и по вертикали. Расстояние между местами по горизонтали и по вертикали — это модуль разности их координат, считая, что расстояние между двумя соседними местами по горизонтали и по вертикали равно 1.
Например, на рисунке ниже изображён зрительный зал размером 3 × 4, в котором зрители сидят на трёх местах A, B и C.
Расстояние между местами A и B равно 3 (2 по вертикали плюс 1 по горизонтали), расстояние между местами B и C равно 3 (0 по вертикали плюс 3 по горизонтали), расстояние между местами A и C равно 4 (2 по вертикали плюс 2 по горизонтали).
Вам даны размеры зрительного зала N × M и минимальное расстояние между зрителями d. Вам необходимо разместить как можно больше зрителей в зале размером N × M так, чтобы расстояние между любыми двумя занятыми местами было не меньше d.
ответ нужно записать в виде N строк, каждая строка содержит M символов, равных 0 или 1. 0 обозначает свободное место, 1 обозначает занятое место.
Например, в зале размером 3 × 4 можно разместить максимум 3 человек на расстоянии не меньше 3. Пример такого размещения изображён на рисунке выше, а ответ в этом случае записывается так.
0100 0000 1001
Вам нужно дать ответ на несколько вариантов задания: 3-1, 3-2, 3-3, 3-4. На каждое задание ответ сдаётся на отдельной странице.
В задании 3-1 N = 3, M = 5, d = 2. В ответе должно быть 3 строки по 5 символов в каждой.
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016 begin var m:=ReadInteger('Число строк='); var n:=ReadInteger('Число стролбцов='); var a:=MatrixRandom(m,n,-99,99); var imax:=-1; var jmax:=0; var imin:=0; var jmin:=0; var min:=100; var max:=-100; // больше большего, меньше меньшего for var i:=0 to m-1 do begin for var j:=0 to n-1 do begin Write(a[i,j]:4); if (a[i,j]>0) and (a[i,j] mod 2=0) then begin if a[i,j]<min then begin imin:=i; jmin:=j; min:=a[i,j] end; if a[i,j]>max then begin imax:=i; jmax:=j; max:=a[i,j] end end end; Writeln end; if imax<>-1 then begin Writeln('Минимальный четный положительный элемент A[', imin+1,',',jmin+1,']=',a[imin,jmin]); Writeln('Максимальный четный положительный элемент A[', imax+1,',',jmax+1,']=',a[imax,jmax]) end else Writeln('В массиве нет положительных четных элементов') end.
А) По условию, девочку, вырастившую маргаритки зовут не Роза ("девочка, вырастившая маргаритки, обратила внимание Розы...") и не Рита ("ни у одной из девочек имя не совпадает с названием любимых цветов"), значит, её зовут Анюта. Далее следует, что Роза (вырастила не розы) могла вырастить только анютины глазки, а Рита - розы. б) Говорит правду либо Виктор, либо Марат, так как их показания противоположны по смыслу. Значит Андрей и Денис соврали, из показания Дениса следует, что стекло разбил именно он. Правду сказал Марат.
begin
var m:=ReadInteger('Число строк=');
var n:=ReadInteger('Число стролбцов=');
var a:=MatrixRandom(m,n,-99,99);
var imax:=-1; var jmax:=0;
var imin:=0; var jmin:=0;
var min:=100; var max:=-100; // больше большего, меньше меньшего
for var i:=0 to m-1 do begin
for var j:=0 to n-1 do begin
Write(a[i,j]:4);
if (a[i,j]>0) and (a[i,j] mod 2=0) then begin
if a[i,j]<min then begin imin:=i; jmin:=j; min:=a[i,j] end;
if a[i,j]>max then begin imax:=i; jmax:=j; max:=a[i,j] end
end
end;
Writeln
end;
if imax<>-1 then begin
Writeln('Минимальный четный положительный элемент A[',
imin+1,',',jmin+1,']=',a[imin,jmin]);
Writeln('Максимальный четный положительный элемент A[',
imax+1,',',jmax+1,']=',a[imax,jmax])
end
else
Writeln('В массиве нет положительных четных элементов')
end.
Тестовое решение
Число строк= 5
Число стролбцов= 8
-59 98 55 -92 -98 68 5 -82
63 49 41 7 51 22 55 -4
-78 42 -35 -60 -6 -15 -34 -28
-14 55 -44 22 74 -50 -98 85
50 2 65 39 -47 -59 -7 -87
Минимальный четный положительный элемент A[5,2]=2
Максимальный четный положительный элемент A[1,2]=98