Question

СРОЧНО ИНФОРМАТИКА 100 БАЛЛОВ!!!!!!!!!!!!!!!!!!!!!!!! Задание 1 Составить блок-схему алгоритма и программу на Паскале для вычисления функций y(x). Ввести программу в ЭВМ, вычислить значения функции и проверить ее. В отчет включить блок-схему алгоритма, текст программы, реакцию ЭВМ. y(x) = (|sin 3x| + a)x2 Задание 2 Составить блок-схему алгоритма и программу на Паскале. В квадратной комнате шириной A и высотой B есть окно и дверь с размерами C на D и M на N соответственно. Вычислите площадь стен для оклеивания их обоями. В отчет включить блок-схему алгоритма, текст программы, реакцию ЭВМ.

Answer 1

Ответ:

1-е Задание:

Program PRG;

var

a, b, c, e, x, y, num, den: real;

function calc( a, b, c, e, x: real ): real;

begin

 num := ((( abs(sin(x ** 3))) + a) * (e ** a));

 den := (exp(ln((b ** 2) + (c ** 2)) / 3));

 y :=  num / den;

 Result := y;

 write('Answer is: ', y);

 writeln();

end;

function entNums (): real;

begin

 write ('Enter a: '); readln (a);

 write ('Enter b: '); readln (b);

 write ('Enter c: '); readln (c);

 write ('Enter e: '); readln (e);

 write ('Enter x: '); readln (x);

 writeln();

end;

begin

   entNums();

calc( a, b, c, e, x );

end.

2-е Задание:

Program  

var wallWid, wallHeight, winHeight, winWid, doorWid, doorHeight, fourWalls, door, win, total: real;

function getFourWalls( wallWid, wallHeight: real ): real;

   begin

       fourWalls := (wallHeight * wallWid) * 4;

       Result := fourWalls;

   end;

function getDoorSize( doorHeight, doorWid: real ): real;

   begin

       door := doorHeight * doorWid;

       Result := door;

   end;

function getWinSize( winHeight, winWid: real ): real;

   begin

       win := winHeight * winWid;

       Result := win;

   end;

function getWalls(): real;

   begin

       total := (fourWalls - ( door + win )) / 10000;

       Result := total;

       write(' You need ', total, ' m² of wallpaper!');

       writeln();

   end;

function enterSizes(): real;

   begin

       writeln();

       write (' Enter width of the wall (in cm): '); readln (wallWid);

 write (' Enter height of the wall (in cm): '); readln (wallHeight);

 write (' Enter width of the window (in cm): '); readln (winWid);

 write (' Enter hight of the window (in cm): '); readln (winHeight);

 write (' Enter width of the door (in cm): '); readln (doorWid);

 write (' Enter height of the doot (in cm): '); readln (doorHeight);

 writeln();

   end;

begin

   enterSizes();

   getFourWalls( wallWid, wallHeight );

   getDoorSize( doorHeight, doorWid );

   getWinSize( winHeight, winWid );

   getWalls();

end.

Блок-схемы легко можешь составить глядя на коды программ)

Удачи)

 

 

Answer 2

Задание 1 - Вычисление функции y(x) = (|sin 3x| + a)x^2:

Блок-схема алгоритма:

cssCopy code
Start
  Input x
  Input a
  Calculate y = (|sin(3x)| + a) * x^2
  Output y
End

Текст программы на языке Паскаль:

pascalCopy code
program ComputeY;

var
  x, a, y: real;

begin
  writeln('Введите значение x:');
  readln(x);
  writeln('Введите значение a:');
  readln(a);

  y := (abs(sin(3*x)) + a) * sqr(x);

  writeln('Значение функции y = ', y);
end.

Реакция ЭВМ: При запуске программы ЭВМ будет запрашивать у пользователя значения переменных x и a, после чего произведет вычисление значения функции y и выведет его на экран.

Задание 2 - Вычисление площади стен для оклеивания обоями:

Блок-схема алгоритма:

mathematicaCopy code
Start
  Input A, B, C, D, M, N
  Calculate S1 = A * B - C * D
  Calculate S2 = A * B - M * N
  Output S1, S2
End

Текст программы на языке Паскаль:

pascalCopy code
program CalculateWallArea;

var
  A, B, C, D, M, N, S1, S2: real;

begin
  writeln('Введите ширину комнаты A:');
  readln(A);
  writeln('Введите высоту комнаты B:');
  readln(B);
  writeln('Введите ширину окна C:');
  readln(C);
  writeln('Введите высоту окна D:');
  readln(D);
  writeln('Введите ширину двери M:');
  readln(M);
  writeln('Введите высоту двери N:');
  readln(N);

  S1 := A * B - C * D;
  S2 := A * B - M * N;

  writeln('Площадь стены для оклеивания обоями без учета окна и двери: ', S1);
  writeln('Площадь стены для оклеивания обоями без учета окна и двери: ', S2);
end.

Реакция ЭВМ: При запуске программы ЭВМ будет запрашивать у пользователя значения переменных A, B, C, D, M и N. Затем произведет вычисление площадей стен для оклеивания обоями и выведет результаты на экран.