Предмет: Информатика,
автор: stast99
Вычислить 10 элементов которые получены в результате вычисления арифметического выражения Y=sin(a)/b где b=0.6 принадлежит [-1.57;3] с шагом 0.25 Найти сумму положительных и количество отрицательных значений элементов.
Помогите срочно пожалуйста!!!
Ответы
Автор ответа:
0
var a,b,y,s:real;
k:integer;
begin
s:=0;k:=0;
b:=0.6;
a:=-1.57;
while a<=3 do begin
y:=sin(a)/b;
writeln('y=',y);
if y>0 then s:=s+y;
if y<0 then k:=k+1;
a:=a+0.25;
end;
writeln(s);
writeln (k);
end.
k:integer;
begin
s:=0;k:=0;
b:=0.6;
a:=-1.57;
while a<=3 do begin
y:=sin(a)/b;
writeln('y=',y);
if y>0 then s:=s+y;
if y<0 then k:=k+1;
a:=a+0.25;
end;
writeln(s);
writeln (k);
end.
Интересные вопросы
Предмет: Математика,
автор: akarabaeva86
Предмет: Қазақ тiлi,
автор: kristal00119
Предмет: Английский язык,
автор: frankonazar20
Предмет: Алгебра,
автор: Margooooooooo
Предмет: Биология,
автор: catoff