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