Написать программу ** паскале и сделать к нему блок схему16.Вычислить : y= lg (sin)...

Question

Написать программу на паскале и сделать к нему блок схему
16.Вычислить : y= lg (sin) [-5,5]. H=0.01.

Answer 1

// для x<0 выражение смысла не имеет<br>
PROGRAM B09;
CONST
    min=-5;
    max=5;
    hx=0.01;
VAR
    x:real;

BEGIN
  x:=min;
  while (x<=max) do begin<br>    writeln ('x=', x:6:3, ' ', log10( sin(Pi/x) ), ' ' );
    x:=x+hx;
  end;
END.

---

---