Question

Вычислить значение функции y=5x2 на отрезке [-2;2] с шагом 0,3. Сделать с циклом пред и пост условием. На языке Паскаль

Answer 1

Ответ:

var

   x, y: integer;

 

begin

   write ('x = ');

   readln (x);

 

   if x > 0 then

       y := x - 2

   else

       if x = 0 then

           y := 0

       else

           y := abs(x);

 

   writeln ('y = ', y);

 

end.

Объяснение:

Answer 2

Вот как можно вычислить значения функции y = 5x^2 на отрезке [-2;2] с шагом 0,3 с использованием цикла как предусловия, так и постусловия на языке Pascal:

pascalCopy code
program CalculateFunction;
var
  x, y: real;
begin
  writeln('x     y');
  writeln('----------');

  // Используем цикл как предусловие
  x := -2;
  while x <= 2 do
  begin
    y := 5 * x * x;
    writeln(x:4:1, '   ', y:4:1);
    x := x + 0.3;
  end;

  { // Или используем цикл как постусловие
  x := -2;
  repeat
    y := 5 * x * x;
    writeln(x:4:1, '   ', y:4:1);
    x := x + 0.3;
  until x > 2;
  }
end.

Программа начинает с x = -2 и последовательно увеличивает его на 0,3 на каждой итерации цикла, вычисляя соответствующее значение функции y = 5x^2 и выводя его на экран. Вы можете выбрать один из двух вариантов цикла (как предусловие или как постусловие), закомментировав или раскомментировав соответствующий блок кода в программе.