Вот 2 варианта решения который верен логически выбирайте сами.
Код:
Program Hel;
uses crt;
Var t,a,z,y1,y2:real;
i,x1,x2,x:integer;
Begin
Writeln('Введите x begin');
Readln(x);
Writeln('Введите x end');
Readln(x1);
Writeln('Введите шаг х');
Readln(x2);
if ((x<=0) or (x<=5))
then begin
for i:=x to x1 do
begin
if x>x1
then break;
y1:=((3*sqr(x)+(2*x))/(2*exp(x)));
y2:=(2*y1*cos(x)*cos(x)*cos(x));
z:=(sqrt(sqr(y1)+y2));
x:=x+x2-1;
end;
end
else
begin
for i:=x to x1 do
begin
if x>x1
then break;
y1:=((5*x)+(sqr(x)*cos(x)));
y2:=(2*y1*cos(x)*cos(x)*cos(x));
z:=(sqrt(sqr(y1)+y2));
x:=x+x2-1;
end;
end;
Writeln('функция равна',z:3:10);
Readln;
end.
Код:
Program Hel;
uses crt;
Var t,a,z,y1,y2:real;
i,x:integer;
Begin
Writeln('Введите x begin');
Readln(x);
if ((x<=0) or (x<=5))
then begin
y1:=((3*sqr(x)+(2*x))/(2*exp(x)));
y2:=(2*y1*cos(x)*cos(x)*cos(x));
z:=(sqrt(sqr(y1)+y2));
end
else
begin
y1:=((5*x)+(sqr(x)*cos(x)));
y2:=(2*y1*cos(x)*cos(x)*cos(x));
z:=(sqrt(sqr(y1)+y2));
end;
Writeln('Функция равна ',z:3:10);
Readln;
end.