Реферат: Программирование элементов разветвляющейся структуры

writeln('Введите значение шага ');

readln(h);

i := n;

while i < e do

begin

y := (i*i*i+sin(sqr(i)))/(1+sqrt(abs(i)))*cos(i);

i := i + h;

if y > 0 then writeln('Значения фукции ',y:4:5,' x = ',i:4:4);

end;

readkey;

end.

Uses crt;

Var

h, n, e, i, x, y:real;

begin

clrscr;

writeln('Введите значение нижнего предела X');

readln(n);

writeln('Введите значение вврехнего предела X');

readln(e);

writeln('Введите значение шага');

readln(h);

i:=n;

repeat

y:=(i*i*i+sin(sqr(i)))/(1+sqrt(abs(i)))*cos(i);

i:=i+h;

if y>0 then writeln('Значения функции ', y:4:5,' x=',i:4:4);

until i>e;

readkey;