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

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<br>  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

Comments

Спасибо, раскладку поменять забыл)

---

Я и так "прочитал"

---

в программе, кажется, корень квадратный пропущен

---

Да, спасибо, сейчас поправлю

---

В этом Паскале формулы писать - одна тоска из-за отстуствия операции возведения в степень.

---

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

---

Спасибо огромное

---

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

---

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

---

Пожалуйста, сформулируйте вопрос полностью и либо сделайте новое задание, либо напишите личное сообщение

Answer 2

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

Comments

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