Question

Написать программу расчета на языке паскаль: Требуется оклеить обычную комнату размером 7,5м на 3м с высотой потолка 2,5м, проемом окна 2,1м на 1,5м и двери 0,9м на 2м

Answer 1

Ввод - размеры комнаты -  a,b,c
ввод - размеры окна - d,e
ввод - размеры двери - f,g
Формула площади - S = 2*(a+b)*c - d*e - f*g
вывод результата  - S= (52.5 - 3.15- - 1.8) 47.55

Answer 2

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

program CalculateWallpaperArea;

var
  roomWidth, roomLength, roomHeight: real; // Размеры комнаты
  windowWidth, windowHeight: real; // Размеры окна
  doorWidth, doorHeight: real; // Размеры двери
  totalArea, windowArea, doorArea, wallpaperArea: real; // Площади

begin
  // Ввод данных
  writeln('Введите размеры комнаты:');
  write('Ширина: ');
  readln(roomWidth);
  write('Длина: ');
  readln(roomLength);
  write('Высота потолка: ');
  readln(roomHeight);
  writeln('Введите размеры окна:');
  write('Ширина: ');
  readln(windowWidth);
  write('Высота: ');
  readln(windowHeight);
  writeln('Введите размеры двери:');
  write('Ширина: ');
  readln(doorWidth);
  write('Высота: ');
  readln(doorHeight);
  
  // Расчет площадей
  totalArea := 2 * (roomWidth + roomLength) * roomHeight;
  windowArea := windowWidth * windowHeight;
  doorArea := doorWidth * doorHeight;
  wallpaperArea := totalArea - windowArea - doorArea;
  
  // Вывод результатов
  writeln('Площадь обоев для оклеивания комнаты: ', wallpaperArea:0:2, ' кв.м');
  
end.

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