Код в паскале (поправьте пожалуйста) Опции

[Misha_beginner]

Вообщем вот сама задача (на картинке)
Найти значение суммы без использование массива!

Мой код:

Код

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 не там? еше некоторые ошибки! Пршу помощь професионалов пожалуйста!

Сообщение отредактировано: Misha_beginner - 8.10.2013 23:43

[Misha_beginner]

ну кто нибудь плиз отзовитесь! прошу!

[Федосеев Павел]

Смотри, при первой итерации согласно программе j=5, x_j=x₅=2,13. Правда странно?

Или перед началом цикла вычисли x₄ и присвой его xj, а в цикле сразу xj:=xj+dx, а потом y:=y+... безо всяких условий.
Или в самом цикле вычисляй xj как член арифметической прогрессии xj:=x1+(j-1)*dx.

И ещё, постарайся отформатировать код. Форматированный код говорит о внимательном отношении к работе, уважении тех, кто будет читать.

[APAL]

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+sqr(xj+dx)/(2+xj);
  end;
  Writeln('y=',y:0:3);
end.

Проверьте результат: 132.325