Задачи на Pascal'е:

По итерациям:

1) Вычислить с заданной точностью E значение функции:
lnx=(x-1)- (x-1)^2/2 + (x-1)^3/3 - (x-1)^4/4 + ...
Значение х и Е вводятся с клавиатуры.

2)Выч-ть сумму:
y:=sinx/2 + 2sin(2x)/2^2 + 3sin(3x)/2^3+...
Значение х и Е вводятся с клавиатуры.

Пробовал - нихрена с первой задачей не получилось.
Ча над второй думаю.

| Сообщение посчитали полезным:

Вау! Тут уже приют для отстающих студентов открыли

sniperZ Не позорься. Я думал ты больше умеешь.
1) Этот ряд сходится только для |x|<1 и очень медленно.
2) sniperZ пишет:
нихрена с первой задачей не получилось
Это же не вопрос, а младенческие нюни. Такое даже для форума новичков не годится.
Или ты думаешь, что сейчас начнем программить студенческие задачи.

| Сообщение посчитали полезным:

А чего здесь сложного-то ?
Примерно вот так будет:

uses crt;
var e,lnx,lnx_,x,zn:extended;
i:longint;
function st (x:extended; s:longint):extended;
begin
if s=0 then st:=1 else st:=st(x,s-1)*x;
end;

begin
clrscr;
write('x='); readln (x);
write('e='); readln (e);
lnx:=0; zn:=1; i:=1;
repeat
lnx_:=lnx;
lnx:=lnx+zn*st(x-1,i)/i; {Для первого варианта}
{lnx:=lnx+sin(x*i)/st(2,i);} {Для второго}
zn:=zn*-1; inc (i);
until abs(lnx-lnx_)<=e;
writeln (lnx:0:5);
end.


| Сообщение посчитали полезным:

tundra37 пишет:
Этот ряд сходится только для |x|<1 и очень медленно.

Точно, этого в условии не было. А я репу чесал, чё прога не работает.

tundra37 пишет:
sniperZ Не позорься. Я думал ты больше умеешь.

tundra37 пишет:
Вау! Тут уже приют для отстающих студентов открыли

Я не отстающий студент. За 4 лабу (эту) я первее всех взялся.
Просто условие не полное,а я про это не подумал.

Со второй задачей всё OK.

| Сообщение посчитали полезным: