Написать программу в PASCAL начисления скидок: если сумма покупки > 100, то скидка 10%. Если меньше...

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

program DiscountCalculator;

var
  purchaseAmount, discount, finalAmount: real;

begin
  // Ввод суммы покупки
  writeln('Введите сумму покупки:');
  readln(purchaseAmount);
  
  // Условие для расчета скидки
  if purchaseAmount > 100 then
    discount := purchaseAmount * 0.10  // 10% скидка
  else
    discount := purchaseAmount * 0.05; // 5% скидка
  
  // Вычисление конечной суммы с учетом скидки
  finalAmount := purchaseAmount - discount;
  
  // Вывод результатов
  writeln('Сумма покупки: ', purchaseAmount:0:2, ' руб.');
  writeln('Скидка: ', discount:0:2, ' руб.');
  writeln('Итоговая сумма: ', finalAmount:0:2, ' руб.');
end.

Объяснение программы:

1. Переменные:

   • purchaseAmount — переменная типа real, которая хранит введенную сумму покупки.
   • discount — переменная типа real, в которой рассчитывается размер скидки.
   • finalAmount — переменная типа real, в которой хранится итоговая сумма с учетом скидки.

2. Ввод данных:

   • Программа запрашивает у пользователя сумму покупки с помощью оператора writeln и считывает введённое значение через readln.

3. Логика расчета скидки:

   • Если сумма покупки больше 100, скидка составляет 10% от суммы (purchaseAmount * 0.10).
   • В противном случае скидка составляет 5% от суммы (purchaseAmount * 0.05).

4. Вычисление итоговой суммы:

   • Итоговая сумма (после вычета скидки) получается как разница между суммой покупки и скидкой.

5. Вывод результата:

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

Пример работы программы:

Ввод:

Введите сумму покупки:
120

Вывод:

Сумма покупки: 120.00 руб.
Скидка: 12.00 руб.
Итоговая сумма: 108.00 руб.

Ввод:

Введите сумму покупки:
80

Вывод:

Сумма покупки: 80.00 руб.
Скидка: 4.00 руб.
Итоговая сумма: 76.00 руб.

Особенности:

• Программа учитывает только положительные значения суммы покупки. Если вы хотите добавить проверку на корректность ввода (например, сумма не может быть отрицательной), это можно дополнительно реализовать.

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

program DiscountCalculator;

var
  purchaseAmount, discount, finalAmount: real;

begin
  writeln('Введите сумму покупки:');
  readln(purchaseAmount);

  if purchaseAmount > 100 then
    discount := purchaseAmount * 0.10  // 10% скидка
  else
    discount := purchaseAmount * 0.05; // 5% скидка

  finalAmount := purchaseAmount - discount;

  writeln('Сумма покупки: ', purchaseAmount:0:2);
  writeln('Скидка: ', discount:0:2);
  writeln('Итоговая сумма к оплате: ', finalAmount:0:2);
end.

Эта программа запрашивает сумму покупки, вычисляет скидку и выводит итоговую сумму к оплате.

Для написания программы на Pascal, которая будет рассчитывать скидки в зависимости от суммы покупки, нам потребуется использовать базовые конструкции языка: переменные, условные операторы и ввод-вывод данных. Давайте рассмотрим, как это можно реализовать.

Алгоритм программы:

1. Объявить переменные для хранения суммы покупки и окончательной суммы с учетом скидки.
2. Запросить у пользователя ввод суммы покупки.
3. Проверить, превышает ли сумма покупки 100.
   • Если да, применить скидку 10%.
   • Если нет, применить скидку 5%.
4. Вывести итоговую сумму с учетом скидки.

Пример кода на Pascal:

program DiscountCalculator;

var
  purchaseAmount, discount, finalAmount: real;

begin
  { Запрашиваем у пользователя сумму покупки }
  writeln('Введите сумму покупки: ');
  readln(purchaseAmount);
  
  { Проверяем величину суммы и назначаем скидку }
  if purchaseAmount > 100 then
  begin
    discount := purchaseAmount * 0.10;  { Скидка 10% }
  end
  else
  begin
    discount := purchaseAmount * 0.05;  { Скидка 5% }
  end;

  { Вычисляем окончательную сумму после применения скидки }
  finalAmount := purchaseAmount - discount;

  { Выводим результаты на экран }
  writeln('Сумма покупки: ', purchaseAmount:0:2);
  writeln('Скидка: ', discount:0:2);
  writeln('Итоговая сумма к оплате: ', finalAmount:0:2);
  
  readln; { Ждем нажатия клавиши, чтобы программа не закрылась сразу }
end.

Объяснение кода:

1. Объявление переменных: Мы объявили три переменные типа real:

   • purchaseAmount — для хранения суммы покупки.
   • discount — для хранения суммы скидки.
   • finalAmount — для хранения итоговой суммы после применения скидки.

2. Ввод данных: С помощью writeln и readln мы запрашиваем у пользователя сумму покупки.

3. Условие для скидки: Используем оператор if для проверки значения purchaseAmount. В зависимости от результата проверки, мы вычисляем размер скидки.

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

5. Вывод результатов: Мы выводим на экран исходную сумму, сумму скидки и итоговую сумму к оплате, форматируя вывод с двумя знаками после запятой для удобства восприятия.

Использование программы:

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