Question

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

Answer 1

Ответ:

var a,b:integer;

begin

writeln('Шоколадка стоит 10 копеек');

writeln('Введите сколько денег вы хотите внести');

readln(a);

b:=a-10;

if b>=0 then

writeln('Вот ваша шоколадка(ваша сдача=',b,')')

else

writeln('У вас недостаточно средств')

end.

Answer 2

Для реализации данной задачи на Паскале, можно использовать следующий алгоритм:

1. Задать стоимость шоколадки (например, 25 единиц).
2. Считать сумму, которую вносит покупатель в купюроприемник.
3. Проверить, достаточно ли денег для покупки шоколадки:
   • Если сумма больше или равна стоимости шоколадки, то выдать шоколадку и сдачу (если есть) и сообщить об успешной транзакции.
   • Если сумма меньше стоимости шоколадки, то сообщить о недостаточности средств.

Вот пример программы на Паскале, реализующей описанный алгоритм:

pascalCopy code
program ChocolateVendingMachine;

var
  chocolateCost, amount, change: Integer;

begin
  chocolateCost := 25; // Задаем стоимость шоколадки (в данном примере - 25 единиц).

  // Чтение суммы, которую внес покупатель.
  Write('Введите сумму: ');
  ReadLn(amount);

  // Проверка достаточности средств.
  if amount >= chocolateCost then
  begin
    // Расчет сдачи.
    change := amount - chocolateCost;

    // Выдача шоколадки и сдачи.
    WriteLn('Пожалуйста, возьмите шоколадку и вашу сдачу: ', change);

    // Можно также добавить вывод сообщения о благодарности за покупку или что-то подобное.
  end
  else
  begin
    WriteLn('Недостаточно средств. Пожалуйста, внесите еще денег.');
  end;

  ReadLn; // Пауза перед завершением программы (ожидание нажатия клавиши).
end.

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