uses crt;
var x,e,t,s:real;
    n:integer;
begin
clrscr;
repeat
write('|x|<1 x=');
readln(x);
until abs(x)<1;
repeat
write('e [10^-6..10^-4] e=');
readln(e);
until(e>=0.000001)and(e<=0.0001);
n:=1;
t:=x;
s:=t;
while abs(t)/n>e do
 begin
  n:=n+1;
  t:=-t*x;
  s:=s+t/n;
 end;
writeln('S=',s:0:6);
write('ln(1+x)=',ln(1+x):0:6);
readln
end.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

20.11.2016, 19:48

Ответы с готовыми решениями:

Перевести код с Pascal в С++
Program fun1; Var m: integer; a,b,h,x,y : real; begin read (a,b,m); Writeln...

Перевести код с Pascal
var m,n,i,k: longint; flag: boolean; begin writeln('vvod m>3'); readln(m); write(' ...

Перевести код из Pascal на C++
Нужно произвести удаление узла из сбалансированного дерева. В С++ я не бум-бум, помогите...

Перевести код с Pascal
помогите перевести 2 программы из паскаль в С++ 1) uses graphABC; begin...

	20.11.2016, 19:48

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

20.11.2016, 19:48

Помогаю со студенческими работами здесь

Перевести код с Pascal
пожалуйста помогите перевести код с паскаля в с++ uses crt; var N,M:longint; k:byte; begin...

Перевести код с Pascal
нужно написать программу на C++ из паскаля program pr1; uses crt; const WG=100; type...

Перевести код с Pascal на С++
Ребята,помогите преобразовать код,представленный по этой ссылке...

Перевести код из Pascal в C++
доброго времени суток. Надо перевести код паскаля в с++ чтоб выполняло тоже самое и выдавало тот...

Перевести код с Pascal
var a,b,c:real; begin clrscr; writeln('Vvedite A='); readln(a); writeln('Vvedite...

Перевести код с С++ в С и Pascal
кароч люди мну дали задание....... мну нада перевести з одного с(си) в другой с(си) и потом в...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Опции темы

Наверх