Вывести на экран положительнные значения функции и тд

[betta12]

Помогите с решением)

Program variant;
var x,y:real;
begin
readln(x);
y:=2.1*cos(exp(ln(x)*2)-4)/(x+3.4)+x/sqrt(sqr(x))/abs(x);
Writeln('y= ',y:8:2);
readln;
end.

работает но не по условию сделал как сделать так чтобы промежуток был [-3,b] с шагом n
Спасибо))

[betta12]

Помогите разобраться)))Пожалуйста

[Mandrivnyk]

Понятие "цикл" тебе знакомо?
Применительно к программированию, я имею в виду -)

[betta12]

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

Понятие "цикл" тебе знакомо?
Применительно к программированию, я имею в виду -)

знакомо но не знаю как применить)))помоги если сможешь)))

[Lasur]

Это

y:=2.1*cos(exp(ln(x)*2)-4)/(x+3.4)+x/sqrt(sqr(x))/abs(x);

выносишь в отдельную функцию func(x). Потом в цикле for(i=-3; i<=b; i+=n) вызываешь функцию func(i).
Или можно просто вызывать этот кусок кода в цикле for(x=-3; x<=b; x+=n) если не нужна наглядность.
В синтаксис сам сможешь перевести? Я с ним незнаком.

[betta12]

подробнее объясни пожалуйста или хотя бы начало напиши)))только начинаю

[Mad_Cat]

Program variant;
var b,n,x:real;
begin
readln(b,n);
x:=-3;
while x<b+n/2 do begin
y:=2.1*cos((x*x-4)/(x+3.4))+x/sqrt(abs(x));
if y>0 then
Writeln(' x=',x:8:2,' y= ',y:8:2);
x:=x+n;
end;
readln;
end.

[Hacker19_90]

Program variant;
var 
    x,y:real;
    i, dx: real;
begin
readln(i, x, dx);
while i <= x do
begin
y:=2.1*cos(exp(ln(i)*2)-4)/(i+3.4)+x/sqrt(sqr(i))/abs(i);
Writeln('y= ',y:8:2);
i := i + dx;
end;
readln;
end.

[betta12]

Mad_Cat, Hacker19_90 спасибо)))