программирование численных алгоритмов решения простейших инженерно-экономических задач

[Оксана_В]

1)Цикл с известным числом повторений.
у=sin2x/1!+sin2x/2!+sin3x/3!+...+sin5x/5!
2)Дан одномерный массив Р(10).Вычислить В=Y+x/10+z,где x-сумма положительных элементов массива Р;
Y-произведение положительных элементов массива Р;
Z-количество отрицательных элементов массива Р;
Вывести на печать X,Y,Z,В.
3)Графическим методом найти интервализоляции корней уравнения f(x)=0 и составить программу
вычисления одного из корней с точностью е=0.001 методом половинного деления.
........2......х
[(x-2) -1]2 -1
4)Составьте программу вычисления минимума функции f(x) на промежутке [a,b] с точностью е=0.001 методом квадратной аппроксимации.
....2
xln x а=0.4 в=1.2
................................... ..................................b
5)составьте программу вычисления интеграла S=$f(x)dx
................................... ..................................а
($-обозначение интеграла)
с заданной точностью е=0.001 метедом трапеций.
.....2
lg(x +1)/2x-1 a=1.2 b=2.8

[OCTAGRAM]

Сообщение от Оксана_В

теперь я могу расчитывать только на вашу помощь таким образом.

это не так

[Оксана_В]

решите кому не сложно, пожалуйста

[Tkirill]

uses crt;
const
n=5;
var
sum,x:real;
i:integer;
function fact(m:integer):longint;
begin
if m=1 then fact:=1
else fact:=m*fact(m-1);
end;
begin
clrscr;
write(' Input x -> ');
readln(x);
sum:=0;
for i:=1 to n do
sum:=sum+sin(i*x)/fact(i);
writeln(sum:5:5);
readln;
end.

[Tkirill]

uses crt;
const
nmax=10;
var
p:array[1..nmax] of integer;
i,x,y,z:integer;
b:real;
begin
clrscr;
for i:=1 to nmax do
begin
write('P[',i,']=');
readln(p[i]);
end;
x:=0;
y:=1;
z:=0;
for i:=1 to nmax do
if p[i]>0 then begin x:=x+p[i]; y:=y*p[i]; end
else if p[i]<0 then inc(z);
writeln;
writeln(' X=',x);
writeln(' Y=',y);
writeln(' Z=',z);
b:=y+x/10+z;
writeln(' B=',b:4:4);
readln;
end.

[Оксана_В]

спасибо большое, прибольшое