Question

ПОМОГИТЕ решить на Pascal. Зарание спасибо)) Хозяин хочет обклеить обоями длинную стену в своем доме. Длина этой стены =а м., а высота- b м. Рулон обоев имеет длину 12 м и ширину с м. Сколько будут стоить обои для всей стеныё если цена одного рулона k гривень?

Answer 1

PascalABC.net (Ceil - округляет до целого в большую сторону)

var
  a,b,c,k,s:real;
  n:integer;
begin
write('Введите a,b,c,k: ');
readln(a,b,c,k);
n:=Ceil((a*b)/(12*c));
s:=n*k;
writeln(s,' гривен');
end.

Answer 2

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

1. Объявить переменные для длины стены (а), высоты стены (b), длины рулона обоев (12) и ширины рулона обоев (с), а также цены одного рулона (k) и общей стоимости обоев (total_cost).

var
  a, b, c, k: real;
  total_cost: real;

2. Считать значения длины стены (а), высоты стены (b), ширины рулона обоев (с) и цены одного рулона (k) с помощью функции ReadLn.

ReadLn(a);
ReadLn(b);
ReadLn(c);
ReadLn(k);

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

total_area := a * b;
rolls := total_area / (c * 12);

4. Рассчитать общую стоимость обоев, умножив количество рулонов на цену одного рулона.

total_cost := rolls * k;

5. Вывести результат с помощью функции WriteLn.

WriteLn(total_cost);

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

program WallpaperCost;

var
  a, b, c, k: real;
  total_cost: real;

begin
  ReadLn(a);
  ReadLn(b);
  ReadLn(c);
  ReadLn(k);
  
  total_cost := (a * b) / (c * 12) * k;
  
  WriteLn(total_cost);
end.

После выполнения данного кода на экран будет выведена общая стоимость обоев для всей стены.