Задание 1 ( ). Протабулировать функцию y(х)=sinx на промежутке [0;3,1] с шагом h=0,1 и рассчитать среднее арифметическое значений функций больших, чем 0,1, и меньших, чем 0,6.
Задание 2 ( ).
Распечатать таблицу значений y(x)=6*x-4 на промежутке [0;9] c шагом 0.5.
1.
Объяснение:
program PU1;
var x,y,s,n: real;
begin
x:=0; s:=0; n:=0;
while (x<=3.1) do
begin
y:=sin(x);
writeln ('x=',x,' Y=',y:2:2);
if (y>0.1)and(y<0.6)then
begin
s:=s+y;
n:=n+1;
end;
x:=x+0.1;
end;
s:=s/n;
write('Среднее значение =',s:2:2);
end.