Протабулировать функцию у = sin(x+ i) ** отрезке [0;i]с шагом h=0,01*i, где i – номер...

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.

Comments

и в очередной раз спасибо!