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

Тематика Информатика
Уровень 5 - 9 классы
PASCAL программа скидки начисление скидок условие программирование покупки алгоритм вычисления
0

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

avatar
задан 12 дней назад

3 Ответа

0

Вот пример программы на языке 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 руб.

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

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

avatar
ответил 12 дней назад
0

Вот пример программы на 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.

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

avatar
ответил 12 дней назад
0

Для написания программы на 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. Вывод результатов: Мы выводим на экран исходную сумму, сумму скидки и итоговую сумму к оплате, форматируя вывод с двумя знаками после запятой для удобства восприятия.

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

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

avatar
ответил 12 дней назад

Ваш ответ

Вопросы по теме