Товар поддается дроблению

@kifkiberkif · Регистрация: 10.09.2020

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

Вот код помогите сюда добавить дробление,

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
Const n=20;
Var a, aBest:array[1..n] of byte;
    ves: array[1..n] of integer = (85,  22, 72, 53, 36, 47, 91, 24, 35, 66, 25, 34, 2,  12, 56, 30, 60, 39, 83, 3);
    i:integer;
    m:integer;
Procedure Perebor(k:integer);
Var i,dm,m,p,b:integer;
begin
    If k>n then begin
       m:=0;
       For i:=1 to n do m:=m+Ves[i]*a[i];
       
       If 600-m=0 then aBest:=a;
        Exit;      
    end;
 
    For i:=0 to 1 do begin
       a[k]:=i;
       Perebor(k+1);
       b:=a[11];
      if (b<0) and (b>1) then Exit;
       p:=a[1]+a[2];
       if p>1 then Exit;
 
    end;
end;
 
 
begin
  For i:=1 to n do begin
    Write (Ves [i]:3);
    end;
    Writeln;
 
    Perebor(1);
    For i:=1 to n do write(aBest[i]);
    writeln;
      For i:=1 to n do m:=m+Ves[i]*aBest[i];
      writeln('Сумма грузов=', m);
end.

@Puporev · 27.12.2020, 12:18

kifkiberkif, Перепечатайте условие задачи в тему, если оно не полное (а я думаю что не хвтет самого условия здачи), допишите.

@kifkiberkif · 27.12.2020, 14:56 **[ТС]**

Puporev, Да конечно, вот скрины оставлю,у меня 12 вариант не как не хочет принять у меня это задание преподователь.

Препод оставил такое сообщение : Выявление необходимости дробления:
- если набранный в данный момент вес m<600 (например, недобор=10 кг) и 11-й товар не загружен, то
если недобор<m[11] тогда мы можем разделить 11-й товар (взять из него 10 кг) )и добрать до 600 кг. При этом коэффициент загрузки 11-ого товара буде равен 10кг/m[11] .

- если набранный в данный момент вес m>600 (например, перебор=10 кг) и 11-й товар загружен, то
если перебор<m[11] тогда мы можем разделить 11-й товар (оставить в нем только 10 кг) и снизить вес до 600 кг. При этом коэффициент загрузки 11-ого товара буде равен 10кг/m[11] .

@Puporev · 27.12.2020, 16:41

Я написал

Сообщение от Puporev

kifkiberkif, Перепечатайте условие задачи в тему,

А Вы в ответ новую порцию скринов. Читайте правила форума. Скрины нужны если они дополняют условие задачи. И это нужно не мне, я просто слежу за испонением правил.

@kifkiberkif · 28.12.2020, 13:43 **[ТС]**

Puporev, а что вам нужно то?

@Puporev · 28.12.2020, 13:56

Мне лично от Вас не фига не нужно. А вот правила форума требуют что бы тексты задний были напечатаны в темах а не изображены на всяких вложениях. Дополнительно к тексту заданий можете приложить неоходимые таблицы, графики, формулы.

@mr-Crocodile · 28.12.2020, 14:14

kifkiberkif, ты не в тот раздел пишешь, у тебя код на PascalABC.NET

Сообщение от kifkiberkif

Препод оставил такое сообщение : Выявление необходимости дробления:
- если набранный в данный момент вес m<600

какой недобор, какой перебор, если у тебя программа выдаёт вес ровно 600:

10111111111110010000
Сумма грузов=600

Товар 1, Товар 3, Товар 4, Товар 5, Товар 6, Товар 7, Товар 8, Товар 9, Товар 10, Товар 11, Товар 12, Товар 13, Товар 16
85 + 72 + 53 + 36 + 47 + 91 + 24 + 35 + 66 + 25 + 34 + 2 + 30 = 600

в чём проблема то?

Новые блоги и статьи Все статьи Все блоги /
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	27.12.2020, 12:18
	kifkiberkif, Перепечатайте условие задачи в тему, если оно не полное (а я думаю что не хвтет самого условия здачи), допишите. 0

@kifkiberkif 2 / 2 / 0 Регистрация: 10.09.2020 Сообщений: 110
	27.12.2020, 14:56 [ТС]
	Puporev, Да конечно, вот скрины оставлю,у меня 12 вариант не как не хочет принять у меня это задание преподователь. Препод оставил такое сообщение : Выявление необходимости дробления: - если набранный в данный момент вес m<600 (например, недобор=10 кг) и 11-й товар не загружен, то если недобор<m[11] тогда мы можем разделить 11-й товар (взять из него 10 кг) )и добрать до 600 кг. При этом коэффициент загрузки 11-ого товара буде равен 10кг/m[11] . - если набранный в данный момент вес m>600 (например, перебор=10 кг) и 11-й товар загружен, то если перебор<m[11] тогда мы можем разделить 11-й товар (оставить в нем только 10 кг) и снизить вес до 600 кг. При этом коэффициент загрузки 11-ого товара буде равен 10кг/m[11] . 0

@kifkiberkif 2 / 2 / 0 Регистрация: 10.09.2020 Сообщений: 110
	28.12.2020, 13:43 [ТС]
	Puporev, а что вам нужно то? 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	28.12.2020, 13:56
	Мне лично от Вас не фига не нужно. А вот правила форума требуют что бы тексты задний были напечатаны в темах а не изображены на всяких вложениях. Дополнительно к тексту заданий можете приложить неоходимые таблицы, графики, формулы. 0