2015-02-27
246
Программа
| Паскаль |
| Program zad_3; Var eps,s,a,f,c:real; i:integer; Begin Writeln('BBOD eps'); Read(eps); S:=0; c:=1; f:=2; i:=0; Repeat i:=i+1; c:=c*2; f:=f*(i+2); a:=c/f; s:=s+a until abs(a)<eps; writeln('CYMMA=',S:12:5); end. |
| С |
| #include <stdio.h> #include <math.h> int main(){ float eps,a=1,s=0,f=2,c=1; int i=0; puts("BBOD eps"); scanf("%f", &eps); do{ c*=2; f*=++i+2; a=c/f; s+=a; } while (fabs(a)>=eps); printf("CYMMA=%12.5f\n",s); return 0; } |
в программе на С цикл do{... }while …; может быть заменен следующим:
for (i=0;fabs(a)<eps; i++){
c*=2;
f*=i+2;
a=c/f;
s+=a;
};
