Плотная укладка коробок различного размера на ленту транспортера - Free Pascal

Узнай цену своей работы

Формулировка задачи:

На определенном участке ленты транспортера длиной L(м) требуется плотно уложить коробки, размеры которых вдоль ленты различны: d1,d2,d3 м. Требуется выбрать вариант укладки, обеспечивающий размещение наибольшего количества коробок. помогите плиз

Решение задачи: «Плотная укладка коробок различного размера на ленту транспортера»

textual
Листинг программы
var
   a:array[1..3] of integer;
   i,l,min,res:integer;
begin
 readln(l);  
 for i:=1 to 3 do
  read(a[i]);
  min:=a[1];
 for i:=2 to 3 do
  if min>a[i] then min:=a[i]; 
  writeln(l div min); 
end.

Объяснение кода листинга программы

  1. Объявлены переменные: a: array[1..3] of integer - массив для хранения трех чисел; i, l, min, res: integer - целочисленные переменные для выполнения операций;
  2. Считывается длина ленты транспортера (переменная l);
  3. Считываются три числа (переменные a[i]), используя цикл for и процедуру read;
  4. Находится минимальное число (переменная min) среди считанных, используя цикл for и условный оператор if;
  5. Вычисляется результат (переменная res), используя операцию деления (переменная l div min);
  6. Результат выводится на экран, используя процедуру writeln.

Оцени полезность:

5   голосов , оценка 4.2 из 5
Похожие ответы