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

Ответы 1

  • 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.

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years