Question

Срочно, нужна помощь! 35 баллов. Написать на языке Pascal: 1)Необходимо оклеить обоями стену в доме . Длина этой стены равна А метров, высота В метров. Рулон обоев имеет длину 12 метров и ширину 1,5 метра . Сколько будут стоить обои для всей стены, если цена одного рулона С рублей? 2) Найти изменение функции Y(X) от -10 до 10. Y-функция, X-аргумент. Формула Y=2*X+4

Answer 1

Зачем вы обманываете? Говорите что даете 35 баллов, а на самом деле 18

Answer 2

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

1. Расчет стоимости обоев:

pascalCopy code
program CalculateWallpaperCost;

var
  A, B, C: real;
  RollLength, RollWidth: real;
  TotalCost: real;

begin
  // Ввод данных с клавиатуры
  write('Введите длину стены (метры): ');
  readln(A);
  write('Введите высоту стены (метры): ');
  readln(B);
  write('Введите цену одного рулона обоев (рубли): ');
  readln(C);

  // Размеры рулона обоев
  RollLength := 12;
  RollWidth := 1.5;

  // Расчет количества рулонов обоев
  TotalCost := (A * B) / (RollLength * RollWidth) * C;

  // Вывод результата
  writeln('Стоимость обоев для всей стены: ', TotalCost:0:2, ' рублей');
end.

2. Расчет изменения функции Y(X) от -10 до 10:

pascalCopy code
program CalculateFunctionChange;

var
  X, Y: real;

begin
  writeln('  X      Y');
  writeln('-----------');
  
  for X := -10 to 10 do
  begin
    Y := 2 * X + 4;
    writeln(X:4, '   ', Y:4);
  end;
end.

Эти программы помогут вам решить задачи и получить необходимые результаты. Успехов вам!