Блок-схема

Программа

Паскаль
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;

};