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

Для решения задачи нужно написать программу на языке Pascal, которая будет вычислять общую стоимость покупки, состоящей из тетрадей, ручек и карандашей. Мы знаем фиксированные цены на каждый из этих товаров: стоимость одной тетради составляет 10 рублей, одной ручки – 20 рублей, одного карандаша – 10 рублей. Программа должна запрашивать у пользователя количество каждого из этих товаров, а затем рассчитывать и выводить общую стоимость.

Ниже представлен пример программы на Pascal, решающей эту задачу:

program CalculateTotalCost;

uses crt; { Для использования процедуры ClrScr }

var
  numNotebooks, numPens, numPencils: integer;
  costNotebooks, costPens, costPencils, totalCost: integer;

const
  priceNotebook = 10;
  pricePen = 20;
  pricePencil = 10;

begin
  ClrScr; { Очистка экрана перед началом работы программы }
  
  { Запрос количества тетрадей }
  write('Введите количество тетрадей: ');
  readln(numNotebooks);
  
  { Запрос количества ручек }
  write('Введите количество ручек: ');
  readln(numPens);
  
  { Запрос количества карандашей }
  write('Введите количество карандашей: ');
  readln(numPencils);
  
  { Вычисление стоимости каждой категории }
  costNotebooks := numNotebooks * priceNotebook;
  costPens := numPens * pricePen;
  costPencils := numPencils * pricePencil;
  
  { Вычисление общей стоимости }
  totalCost := costNotebooks + costPens + costPencils;
  
  { Вывод результатов }
  writeln('Общая стоимость покупки: ', totalCost, ' рублей');
  
  readln; { Ожидание ввода, чтобы окно не закрывалось сразу }
end.

Разъяснение программы:

1. Переменные:

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

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

   • priceNotebook, pricePen, pricePencil – фиксированные цены на тетради, ручки и карандаши, соответственно.

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

   • Пользователю предлагается ввести количество каждого из товаров. Для этого используются операторы write и readln.

4. Вычисления:

   • Для каждой категории товаров рассчитывается стоимость умножением количества на цену.
   • Затем суммируются все промежуточные стоимости для получения общей стоимости покупки.

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

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

Эта программа демонстрирует основные возможности Pascal по работе с переменными и константами, а также базовые операции ввода и вывода данных.

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

program PurchaseCost;

var
  numNotebooks, numPens, numPencils: integer;
  costNotebook, costPen, costPencil, totalCost: integer;

begin
  // Ввод количества тетрадей, ручек и карандашей
  write('Введите количество тетрадей: ');
  readln(numNotebooks);
  
  write('Введите количество ручек: ');
  readln(numPens);
  
  write('Введите количество карандашей: ');
  readln(numPencils);
  
  // Расчет общей стоимости покупки
  costNotebook := numNotebooks * 10;
  costPen := numPens * 20;
  costPencil := numPencils * 10;
  
  totalCost := costNotebook + costPen + costPencil;
  
  // Вывод общей стоимости покупки
  writeln('Общая стоимость покупки: ', totalCost, ' рублей');
end.

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

program PurchaseCost;

var numNotebooks, numPens, numPencils: integer; notebookCost, penCost, pencilCost, totalCost: integer;

begin writeln('Enter the number of notebooks: '); readln(numNotebooks); writeln('Enter the number of pens: '); readln(numPens); writeln('Enter the number of pencils: '); readln(numPencils);

notebookCost := numNotebooks 10; penCost := numPens 20; pencilCost := numPencils * 10;

totalCost := notebookCost + penCost + pencilCost;

writeln('The total cost of the purchase is: ', totalCost, ' rubles');

end.