Question

100 баллов прошу, на Паскаль Cоставьте программу на языке Паскаль для вывода таблицы значений функции y(x) = 8x^2 + 1 при x ∈ [–4; 4]. Для изменения значения Х задать шаг, равный 0,5.

Answer 1

Ответ:

program z;

var x:real;

begin

x:=-4;

repeat

writeln('x = ',x:4,'     y = ',8*sqr(x) + 1);

x:=x+0.5

until x>4

end.

Answer 2

Конечно, вот программа на языке Pascal для вывода таблицы значений функции y(x) = 8x^2 + 1 при x ∈ [–4; 4] с шагом 0,5:

pascalCopy code
program TableOfValues;

var
  x, y: real;

begin
  writeln('x      y(x)');
  writeln('-------------');
  
  x := -4.0;
  while x <= 4.0 do
  begin
    y := 8 * x * x + 1;
    writeln(x:5:2, '   ', y:8:2);
    x := x + 0.5;
  end;
  
  readln;
end.

Эта программа использует цикл while, чтобы вычислить и вывести значения функции для x от -4 до 4 с шагом 0,5. Результаты выводятся в виде таблицы.