Ranger21
I love beatiul days XD
offline
Опыт:
13,274Активность: |
Топик можно закрыть, уже сам решил
Правильный код для вычисления суммы ряда e^x
uses crt; var x,e,n,an: real; k,i: integer; begin clrscr; writeln('Vedite chislo:'); readln(x); e:=1;N:=1;an:=X; k:=12; writeln('Funkcia E^X:',exp(x)); for i:=1 to k do begin e:=e+an; N:=N+1; an:=an*X/N; end; writeln('for to do summa:',e); e:=1;N:=1;an:=X; repeat begin e:=e+an; N:=N+1; an:=an*X/N; end; until ABS(an)<0.000005; writeln('Repeat Until Summa:',e); e:=1;N:=1;an:=X; while abs(an)>0.000005 do begin e:=e+an; N:=N+1; an:=an*X/N; end; writeln('While Do Summa:',e); readkey; end. Отредактировано Ranger21, 19.04.2010 в 21:11. |
19.04.2010, 20:01 | #1
+0/−0
Профиль |
Приват |
Поиск |
Цитата |
IP: Записан
|
alexprey
познающий Unity
offline
Опыт:
68,501Активность: |
|
19.04.2010, 21:01 | #2
+0/−0
Профиль |
Приват |
Поиск |
Цитата |
IP: Записан
|