Составить программу для вычисления значений функции f(x) на отрезке [a,b] с шагом h. результат представить в виде таблицы, первый столбец которой-значение аргумента,второй-соответствующие значения функции f(x)=sinx*sinx
Var a: array[0..9] of Integer; i,n,nol,otr,nochet: Integer; chet: Real; begin nochet:=1; for i:=0 to 9 do begin writeln('Введите ',i+1,' число'); readln(n); a[i]:=n; end; for i:=0 to 9 do begin if a[i]=0 then nol:=nol+1; if a[i]>-4 then otr:=otr+1; if i mod 2=0 then chet:=chet+1 else nochet:=nochet*a[i]; end; chet:=chet/2; writeln('Кол-во нулевых элементов: ',nol); writeln('Сумма элементов, больше -4: ',otr); writeln('Полу-сумма элементов с чётными индексами: ', chet); writeln('Произведение нечётных элементов: ',chet); end.
var a, b, h, f, x:real;
begin
writeln ('введите a, b');
readln (a, b);
if a>b then h:=a-b
else h:=b-a; x:=h;
f:=sin(x)*sin(x);
writeln;
writeln('|---||');
writeln('|x', ' | ' ' f |');
writeln('|---||');
writeln('|',x,' |', f:6:2,'|');
writeln('|---||');
x:=x+h;
end.