Рассчитать сумму кубов всех положительных значений и их количество для функции y=3x^2+2coscosx Составить программу для табулирования функции на промежутке [0;4] с шагом h=0,5. В отчет включить тексты программ, реакции ЭВМ.Паскаль

program cikl_3;

uses

ctr;

var

y,x,a,b,dx,s : real;

I,n : integer;

begin

clrscr;

writeln(‘Введите a,b,n’);

readln(a,b,n);

{шаг изменения аргумента}

dx:=(b-a)/(n-1);

s:=0;

x:=a;

for i:=1 to n do

begin

y:=(1-exp(-x)) * sin(4*pi*x);

writeln(‘y=’,y:8:3);

x:=x+dx;

if y>0 then s:=s+y;

end;

writeln(‘Сумма положительных значений s=’,s:8:3);

readln;

end.