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

[mishammm]

Сам пример на рисунке:
я не понимаю как написать верхнюю и нижнюю строку там где X^2 надо куда то втулить j+1 я не знаю как записать сам пример правильно: Как то так: sqr(x+dx)?? или как?

[mishammm]

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

[type_Oleg]

Без массивов-то можно, а без циклов как?
Или имеется ввиду, без for, используя while или repeat ?

[mishammm]

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

Без массивов-то можно, а без циклов как?
Или имеется ввиду, без for, используя while или repeat ?

ой! да просто без масивов но while и repeat тоже здесь не пойдет

[mishammm]

вот код: не знаю правильно ли (

program lab5_3;
const x1=-12.1; dx=0.5;
var xi,xi1,xi2,y:real; i:integer;
begin
readln;
xi:=x1;
y:=0;
for i:=1 to 15 do
  begin
  if i>=6 then begin  Y:=y+((2*xi2 + sqr(xi1))/(xi));
  xi:=xi+dx;
  end;
  end;
writeln('y=',y:0:3);
readln;
end.

[mishammm]

ойойойой не то извиняюсь вот

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

[type_Oleg]

Сразу вижу ошибку:
xj:=xj+dx; надо поставить в другое место - между begin и if.

[mishammm]

вроде больше ошибок нет? но как разве оно сначала считает шаг а потом только задействованны другие операторы?? и странно в одногрпника похожая програма и там у него написано if>3 тоесть 4 ето уже включительно?? Я просто не понял у кого правильней

[type_Oleg]

Если оставить, как было, то фактически получится просто:
for i:=5 to 24 do ....

[mishammm]

так что получается у меня толькоо шаг в неправильном месте? вы говорите меджу if и begin