Question

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

Answer 1

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

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

program CalculatePurchaseCost;

var
  costNotebooks, costPens, costPencils: real;
  quantityNotebooks, quantityPens, quantityPencils: integer;
  totalCost: real;

begin
  writeln('Введите стоимость и количество тетрадок:');
  readln(costNotebooks, quantityNotebooks);

writeln('Введите стоимость и количество ручек:');
  readln(costPens, quantityPens);

writeln('Введите стоимость и количество карандашей:');
  readln(costPencils, quantityPencils);

totalCost := (costNotebooks * quantityNotebooks) + (costPens * quantityPens) + (costPencils * quantityPencils);

writeln('Общая стоимость покупки:', totalCost:0:2);
end.

Программа начинается с объявления переменных для стоимости и количества тетрадок, ручек и карандашей. Затем она запрашивает у пользователя ввести стоимость и количество каждого товара с клавиатуры, используя функцию `readln`. После этого программа вычисляет общую стоимость покупки, умножая стоимость каждого товара на его количество и складывая результаты. Наконец, программа выводит общую стоимость покупки на экран с помощью функции `writeln`.

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

Надеюсь, эта информация будет полезной! Если у вас возникнут еще вопросы, не стесняйтесь задавать.