Вот пример программы на языке 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.
Объяснение программы:
Переменные:
purchaseAmount
— переменная типа real
, которая хранит введенную сумму покупки.
discount
— переменная типа real
, в которой рассчитывается размер скидки.
finalAmount
— переменная типа real
, в которой хранится итоговая сумма с учетом скидки.
Ввод данных:
- Программа запрашивает у пользователя сумму покупки с помощью оператора
writeln
и считывает введённое значение через readln
.
Логика расчета скидки:
- Если сумма покупки больше 100, скидка составляет 10% от суммы (
purchaseAmount * 0.10
).
- В противном случае скидка составляет 5% от суммы (
purchaseAmount * 0.05
).
Вычисление итоговой суммы:
- Итоговая сумма (после вычета скидки) получается как разница между суммой покупки и скидкой.
Вывод результата:
- Программа выводит на экран сумму покупки, размер скидки и итоговую сумму после скидки с точностью до двух знаков после запятой.
Пример работы программы:
Ввод:
Введите сумму покупки:
120
Вывод:
Сумма покупки: 120.00 руб.
Скидка: 12.00 руб.
Итоговая сумма: 108.00 руб.
Ввод:
Введите сумму покупки:
80
Вывод:
Сумма покупки: 80.00 руб.
Скидка: 4.00 руб.
Итоговая сумма: 76.00 руб.
Особенности:
- Программа учитывает только положительные значения суммы покупки. Если вы хотите добавить проверку на корректность ввода (например, сумма не может быть отрицательной), это можно дополнительно реализовать.