Question

Помогите пожалуйста с паскалем

Answer 1

var
  a, x, xn, xk, dx, y: real;

begin
  a := 2.37; xn := 1; xk := 3; dx := 0.2;
  x := xn;
  while x <= xk + 0.0001 do
  begin
    y := exp((1 / 3) * ln(sqr(x) - ln(sqrt(a * x)) / ln(10))) / (a * x);
    Writeln('x=', x:1:1, ', y=', y:0:5);
    x := x + dx
  end
end.

Результат выполнения:

x=1.0, y=0.39375
x=1.2, y=0.37500
x=1.4, y=0.35967
x=1.6, y=0.34661
x=1.8, y=0.33524
x=2.0, y=0.32519
x=2.2, y=0.31620
x=2.4, y=0.30811
x=2.6, y=0.30076
x=2.8, y=0.29404
x=3.0, y=0.28787

Answer 2

И циклы для табуляции неудобны.

Answer 3

Размеры "спасибо" тут принято числом звездочек указывать)

Answer 4

А как вычислить сумму и произведение всех значений y

Answer 5

на паскале АВС подойдет? (ввод данных: вводим x мин , х макс, шаг , затем задаем а)

b0a887caa2a6219437642f761a7b3dd6.pas

Answer 6

А как вычислить сумму и произведение всех значений y