Разработать алгоритм решения задачи, представив его в виде блок-схемы;Составить программу на алгоритмическом языке Turbo Pascal;Вывести результаты расчетов на печать (дисплей).Дана функция, где x изменяется от –4 до 7 с шагом h = 0,2. $y=left { {{2x-5sinx} atop {1-sinx}} atop {ln(4x+sinx}}$ если x < −3 ,если − 3 ≤ x ≤ 5 ,если x > 5 .Вычислить и вывести на экран среднее арифметическое положительных значений у.Пожалуйста, нужно очень срочно и подробно!

Question

Информатика

Sear

5 год назад

Разработать алгоритм решения задачи, представив его в виде блок-схемы;Составить программу на алгоритмическом языке Turbo Pascal;Вывести результаты расчетов на печать (дисплей).Дана функция, где x изменяется от –4 до 7 с шагом h = 0,2. $y=left { {{2x-5sinx} atop {1-sinx}} atop {ln(4x+sinx}}$ если x < −3 ,если − 3 ≤ x ≤ 5 ,если x > 5 .Вычислить и вывести на экран среднее арифметическое положительных значений у.Пожалуйста, нужно очень срочно и подробно!

ОТВЕТЫ

Вацлав

Oct 24, 2020

Var x,y,S:real;
k:integer;
Begin
x:=-4;
k:=0;
While x<7 do
   Begin
   if (x < -3) then y:=2*x-5*Sin(x)
   else if (-3 <= x)and(x <= 5) then y:=1-Sin(x)
        else y:=ln(4*x+Sin(x));
   if (y > 0) then
      Begin
      S:=S+y;
      k:=k+1
      End;
   WriteLn('y(',x:0:1,') = ',y:0:3);
   x:=x+0.2
   End;
WriteLn('Sr = ',S/k);
ReadLn
End.

763