Question

PASCALABC.NET Магазин обслужил за день 200 покупателей, каждый из которых потратил на покупки от 10 до 1100 р. Покупателям с суммой покупки больше 1000 р. магазин подарил скидочные карты. Составьте программу, вычисляющую дневную выручку магазина, среднюю стоимость покупки и количество выданных за день скидочных карт.​

Answer 1

Ответ:

var  

 i, price, cardCount :integer;

 midPrice : real;

begin

 Randomize;

 cardCount := 0;

 writeln('Покупки в магазине:');

 for i:=1 to 200 do begin

   price := random(10, 1100);

   if price > 1000 then inc(cardCount);

   midPrice := midPrice + price;

   print(price);

 end;  

 writeln();

 writeln('Выручка магазина ='+midPrice);

 writeln('Средняя стоимость покупки ='+midPrice/200);

 writeln('Количество выданных за день скидочных карт ='+cardCount);

end

Answer 2

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

Алгоритм решения:

1. Создайте переменные для хранения суммы выручки, количества покупателей и количества скидочных карт. 2. Используйте цикл для обработки каждого покупателя. 3. Внутри цикла считайте сумму покупки от пользователя. 4. Если сумма покупки больше 1000 рублей, увеличьте количество скидочных карт на 1. 5. Увеличьте сумму выручки на сумму покупки и количество покупателей на 1. 6. После цикла вычислите среднюю стоимость покупки, разделив сумму выручки на количество покупателей.

Пример кода на PascalABC.NET:

```pascal program DailyRevenue;

var revenue: integer; customerCount: integer; discountCards: integer; purchaseAmount: integer; averagePurchase: real;

begin revenue := 0; customerCount := 0; discountCards := 0;

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

if purchaseAmount > 1000 then discountCards := discountCards + 1;

revenue := revenue + purchaseAmount; customerCount := customerCount + 1; end;

averagePurchase := revenue / customerCount;

writeln('Дневная выручка магазина: ', revenue); writeln('Средняя стоимость покупки: ', averagePurchase:0:2); writeln('Количество выданных скидочных карт: ', discountCards); end. ```

После выполнения программы, вы увидите результаты: - Дневная выручка магазина. - Средняя стоимость покупки. - Количество выданных скидочных карт.

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