Question

⦁ Составьте алгоритм и программу для определения сдачи после покупки в магазине товара: перчаток стоимостью а руб., портфеля стоимостью б руб., галстука стоимостью с руб. Исходная сумма, выделенная на покупку d руб. В случае нехватки денег сдача получится отрицательной. паскаль

Answer 1

Ответ:

~~~~~~~~~~~~~~~

Программа:

program change;

var

a, b, c, d, changeabcd: integer;

begin

 changeabcd := 0;

 read(a, b, c, d);

 changeabcd := d - (a + b + c);

 write(changeabcd);

end.

~~~~~~~~~~~~~~~

Алгоритм:

Шаг 1. Присвоить переменной changeabcd значение 0;

Шаг 2. Ввести a, b, c, d;

Шаг 3. Вычислить changeabcd = d - (a + b + c);

Шаг 4. Вывести changeabcd.

~~~~~~~~~~~~~~~

Блок-схема в прикрепленном скриншоте.

Объяснение:

program change;  // Название программы

var

 a, b, c, d, changeabcd: integer;  // Создание целочисленных переменных:

• a, b, c, d - стоимость перчаток, портфеля, галстука и сумма, выделенная на покупку;
• changeabcd - сдача.

begin  // Начало программы

 changeabcd := 0;  // Переменной, хранящую сдачу, присваиваем 0

 read(a, b, c, d);  // Считываем значения переменных с клавиатуры

 changeabcd := d - (a + b + c);  // Высчитываем сдачу

 write(changeabcd); // Выводим значение переменной changeabcd, хранящей сдачу

end. // Конец программы

Answer 2

Вот алгоритм и программа на Pascal для определения сдачи после покупки товаров:

pascalCopy code
program CalculateChange;
var
  GlovesCost, BagCost, TieCost, TotalCost, Payment, Change: real;
begin
  { Введите стоимость перчаток, портфеля и галстука }
  write('Введите стоимость перчаток (а руб.): ');
  readln(GlovesCost);

  write('Введите стоимость портфеля (б руб.): ');
  readln(BagCost);

  write('Введите стоимость галстука (с руб.): ');
  readln(TieCost);

  { Вычислите общую стоимость товаров }
  TotalCost := GlovesCost + BagCost + TieCost;

  { Введите сумму, выделенную на покупку }
  write('Введите сумму, выделенную на покупку (d руб.): ');
  readln(Payment);

  { Проверьте, хватает ли денег на покупку }
  if Payment >= TotalCost then
  begin
    { Вычислите сдачу }
    Change := Payment - TotalCost;
    writeln('Сдача: ', Change:0:2, ' руб.');
  end
  else
  begin
    writeln('Не хватает денег для покупки.');
    writeln('Сумма недостающих средств: ', TotalCost - Payment:0:2, ' руб.');
  end;
end.

Эта программа сначала запрашивает стоимость каждого товара (перчаток, портфеля, галстука), затем запрашивает сумму, выделенную на покупку (d рублей). После этого программа проверяет, хватает ли денег для покупки. Если денег достаточно, программа вычисляет сдачу и выводит ее на экран. В противном случае программа сообщает о недостатке средств.