Код: Выделить всё
begin
n:=0;
sum:=0;
while ((exp((2*n+1)*ln(x)))/fact)>limit do
begin
fact:=1;
k:=2*n+1;
for I:=1 to k do
begin
fact:=fact*i;
end;
if(n mod 2) = 0
then sum:=sum+((exp((2*n+1)*ln(x)))/fact)
else
begin
sum:=sum-((exp((2*n+1)*ln(x)))/fact)
end;
n:=n+1;
end;
kur:=sum;
end;
begin
clrscr;
write('Введите значение Х_1 -');
readln(x);
writeln ('Ситемная функция sin='',sin(x):5:4:);
writeln ('Мой синус = ',kur(x):5:4:);
writeln('////////////////////////////////////////////////////////');
write('Введите значение Х_2');
writeln ('Ситемная функция sin='',sin(x):5:4:);
writeln ('Мой синус = ',kur(x):5:4:);
readln;
end.