 Программа
| Паскаль
| | 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;
};
|
