одна строчка в паскале - вычислить значение выражения

[mishammm]

при J>4 y=101.704
при J>5 y=92.956

[Serge_Bliznykov]

отвлечённый вопрос...
а что, for у вашего преподавателя уже не является оператором цикла?!

[evg_m]

помогите написать програму без масивов и цикла прошу

Ctrl +C Ctrl +V и вперед

y:=0; d:=0.4; x:=2.13; //0
y:=y+(x*x+1)/(2+x); x:=x+d; //1
...
y:=y+(x*x+1)/(2+x); x:=x+d; //5
y:=0; //!!  
y:=y+(x*x+1)/(2+x); x:=x+d; //6
....
y:=y+(x*x+1)/(2+x); x:=x+d; //24

[mishammm]

Сама задачка: нужно написать программу суммы без использование массива: (+ на картинке)
Вот мой код:

program lab5_3;
const x1=2.13; dx=0.4;
var xj,y:real; j:integer;
begin
xj:=x1;
y:=0;
for j:=5 to 24 do
begin
if (j>5) then
 begin 
 Y:=y+sqr(xj+dx)/(2+xj);
xj:=xj+dx;
end;
end;
writeln('y=',y:0:3);
end.

Препод говорит построение неправильно! хоть и считает значение но не то. говорит формула y (игрек) не там! еще некоторые ошибки! Прошу помощи пожалуйста! Идеи исчерпались уже как правильно еще можно сделать!

[type_Oleg]

А зачем вы повторно задаете один и тот же вопрос?
Хотите снова получить тот же ответ?
Вычисления xj при j=1...4 опять не выполняются.
Поэтому решение будет в принципе неверно.

А что именно надо преподу, я не знаю. Это зависит от того, какую тему проходите. Способы решения можно разные найти.

[Аватар]

xj:=x1;
y:=0;
for j:=1 to 24 do begin
  if j>4 then Y:=y+sqr(xj+dx)/(2+xj);
  xj:=xj+dx;
end;
writeln('y=',y:0:3);

[mishammm]

Сообщение от type_Oleg

А зачем вы повторно задаете один и тот же вопрос?
Хотите снова получить тот же ответ?
Вычисления xj при j=1...4 опять не выполняются.
Поэтому решение будет в принципе неверно.

А что именно надо преподу, я не знаю. Это зависит от того, какую тему проходите. Способы решения можно разные найти.

она мне сказао что формулу нужно поставить после for to do а на месте старой формулы y должна ити другая формула почему? хз

[type_Oleg]

Держите

program lab5_3;

const x1=2.13; dx=0.4;
var xj,y:real; 
    j:integer;
begin
 xj:=x1;
 y:=0;
 for j:=2 to 24 do
 begin
  xj:=xj+dx; 
  if (j>4) then  y:=y+(xj+dx)*(xj+dx)/(2+xj); // нахрен вам вызывать sqr
 end;
 writeln('y=',y:0:3);
 Readln;    // чтобы сразу не погасло
end.