Предмет: Информатика,
автор: inkognitik
Протабулировать
функцию у = sin(x+ i) на отрезке [0;i]с шагом h=0,01*i, где i – номер варианта.
Результаты вычислений вывести на экран в виде таблицы пар чисел х и у. Вычислить произведение отрицательных значений функции у. определить аргумент
максимального значения функции.
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Алгебра,
автор: Аноним
Предмет: Математика,
автор: Аноним
Предмет: Русский язык,
автор: malikapetro123
Предмет: Математика,
автор: mask111
Предмет: Литература,
автор: nasta19981103