Question

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

Answer 1

Var
  x,y,p,xmax,ymax:real;
  i:integer;
begin
write('Номер варианта:');
readln(i);
writeln('x':5,'y':8);
while x<=i do
  begin
  y:=sin(x+i);
  if y<0 then
     begin
     if p=0 then p:=1;
     p:=p*y;
     end;
  if x=0 then ymax:=y;
  if y>ymax then
    begin
    ymax:=y;
    xmax:=x;
    end;
  writeln(x:6:2,y:10:5);
  x:=x+0.01*i;
  end;
writeln('Произведение отрицательных: ',p);
writeln('Аргумент максимального: ',xmax);
end.