М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
murzyatyan
murzyatyan
10.08.2022 12:44 •  Информатика

На складе имеется определённое количество ящиков с яблоками. когда подъезжает машина для погрузки, попросить пользователя ввести, сколько ящиков загрузить в первую машину, во вторую и так далее, пока не закончатся ящики с яблоками. предусмотреть тот случай, когда пользователь введёт количество ящиков больше, чем есть на складе через язык программирования паскаль

👇
Ответ:
kolyakolomiets
kolyakolomiets
10.08.2022
Решение данной задачи в языке программирования Паскаль можно осуществить с помощью цикла и условий. Ниже приведен пример программы:

Program apples_on_truck;

var
totalApples: Integer; // переменная для хранения общего количества ящиков с яблоками на складе
numTrucks: Integer; // переменная для хранения количества машин для погрузки
applesPerTruck: Integer; // переменная для хранения количества ящиков, загружаемых в каждую машину
i: Integer; // переменная-счетчик для цикла

begin
// запрос у пользователя количества ящиков с яблоками на складе
Write('Введите общее количество ящиков с яблоками на складе: ');
Readln(totalApples);

// запрос у пользователя количества машин для погрузки
Write('Введите количество машин для погрузки: ');
Readln(numTrucks);

// вывод сообщения о начале погрузки
Writeln('Начинается погрузка ящиков в машины...');

// цикл для погрузки ящиков в каждую машину
for i := 1 to numTrucks do
begin
// проверка, что на складе остались ящики с яблоками
if totalApples > 0 then
begin
// запрос у пользователя количества ящиков для загрузки в текущую машину
Write('Введите количество ящиков для загрузки в машину ', i, ': ');
Readln(applesPerTruck);

// проверка, что количество ящиков для загрузки не превышает общее количество ящиков на складе
if applesPerTruck <= totalApples then
begin
// уменьшение количества ящиков на складе на загруженное количество
totalApples := totalApples - applesPerTruck;
// вывод информации о загруженных ящиках
Writeln('Ящики загружены в машину ', i);
Writeln('Осталось ящиков на складе: ', totalApples);
end
else
begin
// случай, когда пользователь ввел количество ящиков больше, чем есть на складе
Writeln('Введено количество ящиков больше, чем есть на складе');
// остановка цикла
Break;
end;
end
else
begin
// случай, когда ящики на складе уже закончились
Writeln('Ящики на складе закончились');
// остановка цикла
Break;
end;
end;

// вывод сообщения о завершении погрузки
Writeln('Погрузка ящиков в машины завершена');

// ожидание ввода, чтобы окно программы не закрылось сразу после выполнения
Readln;

end.
4,5(58 оценок)
Проверить ответ в нейросети
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ