Написать программу на языке Pascal вычисления стоимости покупки, состоящей из нескольких тетрадей, нескольких...

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

program CalculatePurchaseCost;

var
  numOfNotebooks, numOfPens, numOfPencils: integer;
  notebookCost, penCost, pencilCost, totalCost: integer;

begin
  // Ввод количества тетрадей, ручек и карандашей
  write('Введите количество тетрадей: ');
  readln(numOfNotebooks);
  
  write('Введите количество ручек: ');
  readln(numOfPens);
  
  write('Введите количество карандашей: ');
  readln(numOfPencils);
  
  // Вычисление стоимости каждой категории товаров
  notebookCost := numOfNotebooks * 10;
  penCost := numOfPens * 20;
  pencilCost := numOfPencils * 10;
  
  // Вычисление общей стоимости покупки
  totalCost := notebookCost + penCost + pencilCost;
  
  // Вывод результатов
  writeln('Стоимость тетрадей: ', notebookCost, ' руб.');
  writeln('Стоимость ручек: ', penCost, ' руб.');
  writeln('Стоимость карандашей: ', pencilCost, ' руб.');
  writeln('Общая стоимость покупки: ', totalCost, ' руб.');
  
end.

Объяснение:

1. В программе создаются переменные для хранения количества тетрадей, ручек, карандашей, стоимости каждого товара и общей стоимости покупки.
2. Пользователь вводит количество тетрадей, ручек и карандашей.
3. Программа выполняет вычисления стоимости каждой категории товаров, умножая количество на цену каждого товара.
4. Затем программа суммирует стоимость всех товаров для получения общей стоимости покупки.
5. Результаты выводятся на экран, показывая стоимость каждой категории товаров и общую стоимость покупки.

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

1. Определить стоимость каждой позиции: Стоимость одной тетради: 10 рублей Стоимость одной ручки: 20 рублей Стоимость одного карандаша: 10 рублей

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

3. Вычисление общей стоимости: Общая стоимость покупки будет вычисляться как сумма произведений количества каждой позиции на её стоимость.

4. Вывод результата: Программа должна вывести общую стоимость покупки на экран.

Теперь давайте рассмотрим код, который реализует эту логику.

program CalculatePurchaseCost;

var
  numNotebooks, numPens, numPencils: integer;
  costNotebooks, costPens, costPencils, totalCost: integer;
const
  priceNotebook = 10;  // Стоимость одной тетради
  pricePen = 20;       // Стоимость одной ручки
  pricePencil = 10;    // Стоимость одного карандаша

begin
  // Ввод количества тетрадей
  writeln('Введите количество тетрадей: ');
  readln(numNotebooks);

  // Ввод количества ручек
  writeln('Введите количество ручек: ');
  readln(numPens);

  // Ввод количества карандашей
  writeln('Введите количество карандашей: ');
  readln(numPencils);

  // Вычисление стоимости тетрадей
  costNotebooks := numNotebooks * priceNotebook;

  // Вычисление стоимости ручек
  costPens := numPens * pricePen;

  // Вычисление стоимости карандашей
  costPencils := numPencils * pricePencil;

  // Вычисление общей стоимости
  totalCost := costNotebooks + costPens + costPencils;

  // Вывод результата
  writeln('Общая стоимость покупки: ', totalCost, ' рублей');
end.

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

1. Объявление переменных:

   • numNotebooks, numPens, numPencils: переменные для хранения количества тетрадей, ручек и карандашей, вводимых пользователем.
   • costNotebooks, costPens, costPencils: переменные для хранения стоимости тетрадей, ручек и карандашей соответственно.
   • totalCost: переменная для хранения общей стоимости покупки.

2. Константы:

   • priceNotebook, pricePen, pricePencil: константы, хранящие неизменные величины стоимости одной тетради, ручки и карандаша соответственно.

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

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

4. Вычисление стоимости:

   • Стоимость тетрадей вычисляется как произведение количества тетрадей на их стоимость (numNotebooks * priceNotebook).
   • Стоимость ручек вычисляется как произведение количества ручек на их стоимость (numPens * pricePen).
   • Стоимость карандашей вычисляется как произведение количества карандашей на их стоимость (numPencils * pricePencil).

5. Вычисление общей стоимости:

   • Общая стоимость покупки вычисляется как сумма стоимости тетрадей, ручек и карандашей (costNotebooks + costPens + costPencils).

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

   • Программа выводит общую стоимость покупки на экран с помощью writeln.

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