Question

Написать программу, вычисляющую стоимость покупки с учётом скидки: куплено 4 товара, если сумма превышает 2500р, то скидка составит 5%, если превышает 1300р, то скидка составит 3%​. Нарисовать блок-схему. Язык: Паскаль​

Answer 1

Ответ:

var

summa, skidka: real;

begin

writeln('Вычисление стоимости покупки с учетом скидки.');

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

readln(summa);

 if summa >= 1300 then skidka:=3

  else if summa > 2500 then skidka:=5

   else if summa < 1300 then skidka:=0;

writeln('Вам предоставлена скидка ', skidka, '%');

writeln('Сумма покупки с учетом скидки: ', (summa-(summa*skidka)/100));

end.

Объяснение:

Answer 2

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

program CalculateDiscount;
var
  quantity, price, total, discount: real;
begin
  writeln('Введите количество товаров: ');
  readln(quantity);
  
  writeln('Введите цену товара: ');
  readln(price);
  
  total := quantity * price;
  
  if total > 2500 then
    discount := 0.05
  else if total > 1300 then
    discount := 0.03
  else
    discount := 0;
  
  total := total - (total * discount);
  
  writeln('Стоимость покупки с учетом скидки: ', total:0:2, ' руб.');
end.

В данной программе мы сначала запрашиваем у пользователя количество товаров и их цену. Затем мы вычисляем общую стоимость покупки, учитывая количество и цену товаров. Далее, мы проверяем, превышает ли общая стоимость покупки заданные пороги (2500 руб. и 1300 руб.) и устанавливаем соответствующую скидку. Наконец, мы вычитаем скидку из общей стоимости покупки и выводим результат на экран.

Блок-схема:

``` +-------------------+ | Введите количество | | товаров | +-------------------+ | | V +-------------------+ | Введите цену | | товара | +-------------------+ | | V +-------------------+ | Вычислить общую