Пояснительная записка к курсовой работе

     Разработал студент гр.Тмду-21 Швецов В.В. 

     Вывод: результаты ручного и машинного счета совпали, следовательно, программа выполнена правильно.

 

      Задание №4

     Составить алгоритм и программу для вычисления определенного интеграла. Число  разбиений каждого интервала  интегрирования принять равным 10.

   

  , при a=3, b=4.

     Ручной  счет

     Текст программы

     Program N4;

     uses Crt;

     var a,b,h,x,y,x1,y1,xn,yn, I:Real;

                                   N:Word; F:Text;

     begin

     Clrscr;

     Assign (F,'A:\4.Dat');

     Rewrite (F);

     Writeln ('Вычисление определенного интеграла  функции');

     Writeln (F,'Вычисление определенного интеграла  функции');

     Writeln ('y:=exp(ln(1-2*x+sqr(x))/5)/1-x методом Симпсона');

     Writeln (F,'y:=exp(ln(1-2*x+sqr(x))/5)/1-x методом Симпсона');

     writeln ('Введите значения а,b,N');

     Readln (a,b,N);

     h:=(a-b)/(N-1);

     x1:=b;xn:=a;y1:=exp(ln(1-2*x1+sqr(x1))/5)/1-x1;

     yn:=exp(ln(1-2*xn+sqr(xn))/5)/1-xn;y:=0;x:=b+h;

     Repeat y:=exp(ln(1-2*x+sqr(x))/5)/1-x;x:=x+2*h Until (x>=(a-h));

     I:=(h/3)*(y1+(y*y)+(2*y*y)+yn);

     Writeln ('I= ',I:3:3);

     Writeln (F,'I= ',I:3:3);

     writeln ('Разработал студент гр.Тмду-21 Швецов  В.В.');

     writeln (F,'Разработал студент гр.Тмду-21 Швецов  В.В.');

     Close (F);

     Readkey;

     end. 
 
 

     Алгоритм программы 

     

     Машинный  счет 

     Вычисление  определенного интеграла функции 

     y:=exp(ln(1-2*x+sqr(x))/5)/1-x методом Симпсона

     I= -0,466.

     Разработал  студент гр.Тмду-21 Швецов В.В. 

     Вывод: результаты машинного и ручного счета разошлись на 1,5%, следовательно программа выполнена верно.

 

      Задание №5

     Составить алгоритм и программу вычисления наибольшего и наименьшего значений функции на интервале [a,b]=[3,6]

     

     Ручной  счет: 

       

         Y=-4.0665 при X=3.00 

      Y=-4.1887   при X=3.75 

      Y=-4.2726   при X=4.50 

      Y=-4.3335   при X=5.25 

      Y=-4.3797  при X=6.00

     Из  данного графика  функции  видно что

     Ymax=-4.0665 при X=3.00 

     Ymin=-4.3797 при X=6.00 
 

     Алгоритм  программы

 
 

     Текст программы

     program kurs8;

     const a=3; b=6;

     var xmin,xmax,ymax,ymin,x,y,h:real;

          n:real;

          F:Text;

     begin

     Assign (F,'A:\5.Dat');

     Rewrite (F);

     Writeln ('Вычисление наибольшего и наименьшего  значений');

     Writeln (F,'Вычисление наибольшего и наименьшего  значений');

     writeln('функции  y=arcsin(2*x)/(1+x*x)-3*Pi/2 на интервале [3,6] ');

     writeln(F,'функции  y=arcsin(2*x)/(1+x*x)-3*Pi/2 на интервале [3,6] ');

        writeln('Введите число разбиений  ');

           readln(n);

        ymax:=-10E5;

        ymin:=10E5;

       h:=(b-a)/n; x:=a;

      while (x<=b) do begin

      y:=arctan( ((2*x)/(1+x*x))/sqrt(1-sqr(((2*x)/(1+x*x)))) )-(3*Pi/2);

       writeln (' Y=',y:5:5,' при X=',x:4:2);

       writeln (f,' Y=',y:5:5,' при X=',x:4:2);

       if (y<=ymin) then begin ymin:=y; xmin:=x;end;

       if (y>=ymax) then begin ymax:=y; xmax:=x;end;

        x:=x+h;

       end;writeln;

     writeln('Ymax=',ymax:5:3,' при X=',xmax:4:2);

     writeln(F,'Ymax=',ymax:5:3,' при X=',xmax:4:2);

     writeln('Ymin=',ymin:5:3,' при X=',xmin:4:2);

     writeln(F,'Ymin=',ymin:5:3,' при X=',xmin:4:2);

     writeln ('Разработал студент гр.Тмду-21 Швецов  В.В.');

     writeln (F,'Разработал студент гр.Тмду-21 Швецов В.В.');

     readln;

     Close (F);

     end.

     Машинный  счет

     Вычисление  наибольшего и наименьшего значения функции 

     y=arctan( ((2*x)/(1+x*x))/sqrt(1-sqr(((2*x)/(1+x*x)))) )-(3*Pi/2)

     Введите число разбиений n= 4

      Y=-4.06889 при X=3.00

      Y=-4.19118  при X=3.75

      Y=-4.27505  при X=4.50

      Y=-4.33595  при X=5.25

      Y=-4.38209 при X=6.00

     Ymax=-4.069 при X=3.00

     Ymin=-4.382 при X=6.00

     Вывод: Результаты ручного и машинного счета совпадают, следовательно программа работает верно 
 
 
 
 

 

      Заключение. 

     Программы работают правильно, так как ручной и машинный счет совпадают. Можно  сделать вывод, что курсовая работа выполнена правильно. Для каждого  задания была составлена блок-схема, программа на языке TP7, представлены ручные и машинные расчеты.

     Для задания №5 в ручных расчетах представлен график функции заданной функции. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Список  литературы 

1.Карев Е.А.  Технологическая информатика. Методические  указания к выполнению курсовой  работы .2002г..

2. Карев Е.А. Информатика. Учебное пособие для выполнения практических занятий , контрольных и курсовых работ.1996г..

3.Петров А.В.  Алексеев В.Е. Вычислительная  техника и программирование.1990 г..