Как учесть шаг табуляции,вводимый пользователем в цикле for..to

[furymaxim]

program za4et;
var x,x0,xn,hx,i:integer;
F:real;
begin;
write('Введите начало интервала x0= ');
readln(x0);
write('Введите конец интервала xn= ');
readln(xn);
write('Введите шаг табуляции hx= ');
readln(hx);
x:=x0;
for i:=x0 to xn do
begin
if x<-1 then F:=(2*x+1)/x
else if(x>=-1)and(x<2)then F:=2-x*x
else F:=-3;
writeln('x=',x,' f(x)=',F);
end;
end.

Нужно вывести значении функции в точке x при ее изменении от x0 до xn c шагом hx. Именно в цикле for.Куда необходимо добавить hx?

[Serge_Bliznykov]

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

Именно в цикле for

никак. цикл for в Паскле исключительно целочисленное приращение (уменьшение) строго на 1.

пересчитывайте шаги цикла в количество итераций. по другому не получится

[Аватар]

for i:=0 to xn div hx do
считай для x=x0+i*hx

[min@y™]

44.png

[furymaxim]

неа,исправил,не работает

[furymaxim]

Сообщение от Аватар

for i:=0 to xn div hx do
считай для x=x0+i*hx

неа,исправил,не работает

[furymaxim]

Сообщение от min@y™

Вложение 90933

program za4et;
var i:integer;
F,x0,xn,hx,x:real;
begin;
write('Введите начало интервала x0= ');
readln(x0);
write('Введите конец интервала xn= ');
readln(xn);
write('Введите шаг табуляции hx= ');
readln(hx);
x:=x0;
for i:=0 to trunc((xn-x0)/hx) -1 do
begin
 if x<-1 then F:=(2*x+1)/x
  else if(x>=-1)and(x<2)then F:=2-x*x
   else F:=-3;
writeln('x=',x,' f(x)=',F);
x0:=x0+hx;
end;
end.

Все равно что-то не так.

[min@y™]

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

Все равно что-то не так.

выкинь переменную х, бестолочь!
даже переписать без ошибок не можешь, жертва ЕГЭ.

И сделай вычисление значения функции ФУНКЦИЕЙ, блджадЪ.

[furymaxim]

Сообщение от min@y™

выкинь переменную х, бестолочь!
даже переписать без ошибок не можешь, жертва ЕГЭ.

Да уже решил простым добавлением x:=x+hx в конце цикла)

[min@y™]

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

Да уже решил простым добавлением x:=x+hx в конце цикла)

Получишь трояк с минусом за лишнюю переменную. это же говнокод.



Да и хрен с тобой.