var
N, M, K, K1: integer;
Ncnt, Mcnt: integer;
Nc, Mc: integer;
begin
N := 15;
M := 18;
K := 311;
Ncnt := 10;
Mcnt := 10;
if N < M then begin
Nc := N;
N := M;
M := Nc;
Nc := Ncnt;
Ncnt := Mcnt;
Mcnt := Nc;
end;
Nc := K div N;
if Nc = 0 then begin
Nc := 1;
Mc := 0; end
else begin
if Nc * N < K then Nc := Nc + 1;
if Nc > Ncnt then Nc := NCnt;
K1 := K - Nc * N;
Mc := K1 div M;
if Mc = 0 then
Mc := 1
else begin
if Mc * M < K1 then Mc := Mc + 1;
if Mc > Mcnt then Mc := MCnt;
end;
end;
if Nc*N + Mc*M < K then
ShowMessage('Недостаточно автобусов')
else begin
ShowMessage('Нужно ' + IntToStr(Nc) + ' авт.вмест. ' +
IntTostr(N) + ' чел. и ' + IntToStr(Mc) + ' авт.вмест. ' + IntToStr(M));
end;
end;
Задача№2
Помогите пожалуйста задачу решить:
------------------------------------
На конференцию приехало n человек.Для их перевоза выделили машины вместимость K и M человек.К гостинице машины подются в таком порядке,сначала вместимотью K человек,потом M и так далее.В автомобиле можно перевозить не более максимально допутимого количества пассажиров.
Определить сколько необходимо автомобилей для перевозки всех делегатов конференции.
------------------------------------------
Я пробовал так делать,в 1 поле вводишь кол-во машин вместимостью К во второе - вместимостью М.Потом прога вычисляет какое из этих чисел больше и пишет в переменную(A).Затем N/A пишем в другую переменую B.Потом от количества n - b=с и потом b+c = количеству машин.Но так не фига не получилось.Кто знает как решить эту тему пожалуйста помогите,срочняк надо...
------------------------------------
На конференцию приехало n человек.Для их перевоза выделили машины вместимость K и M человек.К гостинице машины подются в таком порядке,сначала вместимотью K человек,потом M и так далее.В автомобиле можно перевозить не более максимально допутимого количества пассажиров.
Определить сколько необходимо автомобилей для перевозки всех делегатов конференции.
------------------------------------------
Я пробовал так делать,в 1 поле вводишь кол-во машин вместимостью К во второе - вместимостью М.Потом прога вычисляет какое из этих чисел больше и пишет в переменную(A).Затем N/A пишем в другую переменую B.Потом от количества n - b=с и потом b+c = количеству машин.Но так не фига не получилось.Кто знает как решить эту тему пожалуйста помогите,срочняк надо...
Теоретически должно было получиться. N, M, K, Ncnt, Mcnt - вводятся
Код: