Курсовая работа по информатике Выполнили: Айнуллов

Курсовая работа по информатике Выполнили: Айнуллов Р. З. ст. гр. 5208 Насибуллин Б. С ст. гр. 5208 Проверила: ст. пр. Осипова А. Л.

Задача: Дано действительное число x. Вычислить значение e^x c помощью ряда: Y= e^x= 1+x+(x^2/2!)+(x^3/3!)+…+(x^n/n!)+…. С точностью до 10^-5 (т. е учитывая только те члены ряда, которые по абсолютной величине больше либо равны 10^-5). Для проверки вычислить e^x с помощью стандартной функции.

Программа: #include #include #define E 1 e-5 main( ) { float x, y; float a; int n; printf(“x= “); scanf(“%f”, &x); y=1; a=x; n=1; {; while (fabs(a)>=E) { y=y+a; n++; a=a*x/n} printf(“y=%f”, y); print f f (“exp(x)=%f”, exp(x)); } else printf(“error x”); }

Таблица результатов: x y 1 2, 718279 2 7, 389046 3, 5 33, 11545 7 1096, 633 7, 9 2697, 282 8 2980, 958 10 22026, 47

Блок-схема: начало x нет да y=1; error x |X|<=1 a=x; n=1; нет да |a|>=10^(-5) y=y+a; y, exp(x) n=n+1; a=a*x/n конец

Visual Basic Application (Exel) : Sub pr() Dim x As Double Dim y As Double Dim q As String x = Worksheets("Лист1"). Cells(3, 4). Value y=0 q = "ошибка" Dim n As Double Dim a As Double a=1 n=x a =x While Abs(a) > 0. 0001 y=y+a n=n+1 a =a*x/n Wend Worksheets("Лист1"). Cells(4, 4). Value = y Else Worksheets("Лист1"). Cells(4, 4). Value = q End If End Sub

График Exel: 25000 20000 15000 Series 1 10000 5000 1 2 3 4 5 6 7