Question

Помогите составить программу в Паскаль, пожалуйста))) Нужно рассчитать стоимость материалов для ремонта пола комнаты. Цена 1 м^2 линолеума - 300 рублей, 1 плинтус, длиной 3 м стоит 60 рублей. Сначала рассчитать площадь и периметр пола комнаты, размеры произвольные) СРОЧНО!!!

Answer 1

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

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

1. Запросить у пользователя размеры комнаты (длину и ширину) в метрах. 2. Рассчитать площадь комнаты, умножив длину на ширину. 3. Рассчитать периметр комнаты, сложив удвоенные значения длины и ширины. 4. Рассчитать стоимость линолеума, умножив площадь комнаты на цену за 1 квадратный метр линолеума (300 рублей). 5. Рассчитать количество плинтусов, разделив периметр комнаты на длину одного плинтуса (3 метра) и округлив результат в большую сторону. 6. Рассчитать стоимость плинтусов, умножив количество плинтусов на цену за один плинтус (60 рублей). 7. Сложить стоимость линолеума и стоимость плинтусов, чтобы получить общую стоимость материалов для ремонта пола комнаты.

Вот пример программы на языке Паскаль, реализующей описанный алгоритм:

program CalculateFloorCost;

var
  length, width, area, perimeter: real;
  linoleumPrice, plinthPrice: integer;
  linoleumCost, plinthCost, totalCost: integer;
  plinthCount: integer;

begin
  writeln('Введите длину комнаты в метрах:');
  readln(length);
  
  writeln('Введите ширину комнаты в метрах:');
  readln(width);
  
  area := length * width;
  perimeter := 2 * (length + width);
  
  linoleumPrice := 300;
  plinthPrice := 60;
  
  linoleumCost := round(area * linoleumPrice);
  
  plinthCount := ceil(perimeter / 3);
  plinthCost := plinthCount * plinthPrice;
  
  totalCost := linoleumCost + plinthCost;
  
  writeln('Общая стоимость материалов для ремонта пола комнаты составляет ', totalCost, ' рублей.');
end.

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

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

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