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

uses crt;

Var

y :real;

i, n, e:integer;

Begin

clrscr;

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

readln(n);

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

readln(e);

for i:=n to e do

begin

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

if y>0 then writeln('Значения функции ',y:3:3);

end;

readkey;

end.

Блок-схема