Question

Протабулировать функцию у = sin(x+ i) на отрезке [0; i]с шагом h=0,01*i, где i – номер варианта. результаты вычислений вывести на экран в виде таблицы пар чисел х и у . вычислить количество отрицательных значений функции у. определить ее максимальное значение. program tabulfuncii; const i = 6; var x, h,y, max, min , k : real; begin k: =0; h: = 0.01*i; x: = 0; max: = sin(x+i); min: = sin(x+i); writeln (' õ ó'); repeat y: = sin(x+i); writeln(x: 7: 2, y: 7: 2); if y > max then max: =y; x: = x + h; until x > i + h/2; writeln('max =', max: 5: 2); if y < min then min: =y+0; writeln('количество отрицательных=',k); end. как сделать просчет отрицательных

Answer 1

Const i = 6;
var x, h,y, max,k : real;
begin
k:=0;
h:= 0.01*i;
x:=0;
max:= sin(x+i);
writeln ('x':6, 'y':6);
repeat
  y:= sin(x+i);
  writeln(x:7:2, y:7:2);
  if y > max then max:=y;
  if y < 0 then k:=k+1;
  x:= x + h;
until x > i + h/2;
writeln('max =', max:5:2);
writeln('Количество отрицательных=',k);
end.