детали. Дз. Наверное это матрица. Хотя я не знаю

@DeadMorose · Регистрация: 22.10.2015

Студворк — интернет-сервис помощи студентам

Детали. На клеточной поле размером NxM расположены две жесткие детали. Деталь 1 нарывает в каждой строке несколько (не ноль) первых клеток, деталь два - несколько (не ноль) последних; каждая клетка либо полностью накрыта одной деталью, либо нет.
Деталь 2 начинает двигаться влево, не поворачивая, пока она не упрется в деталь 2, хотя бы одной клеткой.
Написать программу, которая определяет, на сколько клеток будет сдвинута деталь 2

Ввод.
В первой строке содержатся чила N и M - соотвествующии количеству строк и столбцов таблицы. далее следуют N строк, задающих расположение деталей. В каждой строке находится ровно M чисел, раздленных пробелом: 1, 2 или 0
Выход
В первой строке выходного файла содержится число- колво клеток, на которое будет сдвинута деталь 2.
Если сдвиг был, то в последующих N строках расположение деталей после сдвига.

Ввод
45
11022
10002
10002
10022

Вывод
1
11220
10020
10020
10220

@vint-81 · 26.11.2015, 17:16

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
const nmax=100;mmax=100;
type mas=array[1..nmax,1..mmax]of byte;
var a:mas;
    n,m,i,j,k,min,s:integer;
    f,fo:text;
begin
 assign(f,'in.txt');reset(f);
 assign(fo,'out.txt');rewrite(fo);
 readln(f,n,m);
 min:=m-2;
 for i:=1 to n do
  begin
   s:=0;
   for j:=1 to m do
    begin
     read(f,a[i,j]);
     if a[i,j]=0 then inc(s)
    end;
   readln(f);
   if s<min then min:=s;
  end;
 if min>0
  then
   begin
    writeln(fo,min);
    for i:=1 to n do
     begin
      j:=1;
      while a[i,j]=1 do inc(j);
      for k:=j to m-min+1 do a[i,k]:=a[i,k+min];
      for k:=m downto m-min+1 do a[i,k]:=0
     end;
    for i:=1 to n do
     begin
      for j:=1 to m do write(fo,a[i,j],' ');
       writeln
     end;
   end
  else write(fo,0);
  close(f);close(fo)
end.

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@DeadMorose 9 / 9 / 11 Регистрация: 22.10.2015 Сообщений: 81

	детали. Дз. Наверное это матрица. Хотя я не знаю 26.11.2015, 13:54. Показов 2175. Ответов 1 Метки нет (Все метки) Детали. На клеточной поле размером NxM расположены две жесткие детали. Деталь 1 нарывает в каждой строке несколько (не ноль) первых клеток, деталь два - несколько (не ноль) последних; каждая клетка либо полностью накрыта одной деталью, либо нет. Деталь 2 начинает двигаться влево, не поворачивая, пока она не упрется в деталь 2, хотя бы одной клеткой. Написать программу, которая определяет, на сколько клеток будет сдвинута деталь 2 Ввод. В первой строке содержатся чила N и M - соотвествующии количеству строк и столбцов таблицы. далее следуют N строк, задающих расположение деталей. В каждой строке находится ровно M чисел, раздленных пробелом: 1, 2 или 0 Выход В первой строке выходного файла содержится число- колво клеток, на которое будет сдвинута деталь 2. Если сдвиг был, то в последующих N строках расположение деталей после сдвига. Ввод 45 11022 10002 10002 10022 Вывод 1 11220 10020 10020 10220 0

детали. Дз. Наверное это матрица. Хотя я не знаю

Решение