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

     Министерство  образования Российской Федерации

     Ульяновский государственный технический университет

     Кафедра “Технология Машиностроения” 
 
 
 
 
 
 
 
 
 
 
 
 

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

     по  технологической информатике 
 
 
 
 
 
 
 
 

     Студент Швецов В.В., гр. ТМду-21  Вариант №70                                   
 
 

     Консультант Крупенников О.Г. 
 
 
 
 
 
 
 
 
 
 
 
 

     Ульяновск 2005

     Министерство  образования Российской Федерации

     Ульяновский государственный технический университет

     Кафедра “Технология машиностроения” 
 

     Задание на курсовую работу  

     Исходные  данные для проектирования

     Разработать алгоритмы и программы в соответствии с вариантом №70 

     

1. Составить алгоритм и программу вычисления функции с использованием нестандартных функций.

                 

2. Составить алгоритм и программу вычисления функции с использованием нестандартных функций и подпрограмм (процедур).

                

3. Составить алгоритм и программу операций над матрицами.

                 при I=3, J=4, K=5.

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

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

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

               

       
 
 

     Консультант                                                                          Крупенников О.Г. 
 
 

     Студент                                                                                          Швецов В.В. 

     Задание принял к исполнению ”1“ сентября 2005г.

 

     

Содержание

                                                                                                                                стр.

1.  Задание №1……………………………………………………………………4

2.  Задание №2……………………………………………………………………6

3. Задание №3…………………………………………………………………...10

4. Задание №4…………………………………………………………………...18

5. Задание №5…………………………………………………………………...20

     Заключение………………………………………………………………...…24

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

     Задание №1

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

     

,  

     Так как в Turbo Pascal нет функции ch(x) поэтому нужно преобразить их с помощью функций, которые распознает Turbo Pascal:

     

     Тогда первоначальную формулу можно представить  как:

     

 

     Ручной  счет 

       

       

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

     

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

     Program N1;

     uses Crt;

     var a,b,x,y:Real;

               F:Text;

     begin

     Clrscr;

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

     Rewrite (F);

     Writeln ('Вычисление  функции с использованием  нестандартных функций');

     Writeln (F,'Вычисление  функции с использованием  нестандартных функций');

     writeln('y=a*a-b*b+ln(x-a)*ch(x) ');

     writeln(F,'y=a*a-b*b+ln(x-a)*ch(x) ');

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

     Readln (a,b,x);

     y:=a*a-b*b+ln(x-a)*((exp(x)+exp(-x))/2);

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

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

     Writeln (F);

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

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

     Close (F);

     Readkey;

     end. 

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

     Вычисление  функции с использованием нестандартных  функции

     y=a*a-b*b+ln(x-a)*ch(x)

     введите а 3

     введите b 2

     введите x 4

     функция  y=5.000

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

     Вычисление  функции с использованием нестандартных  функции

     y=a*a-b*b+ln(x-a)*ch(x)

     введите а 4

     введите b 3

     введите x 5

     функция  y=7.000

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

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

 

      Задание №2

     Составить алгоритм и программу вычисления функции с использованием нестандартных  функции и подпрограмм (процедур).

     

     Так как в Turbo Pascal нет функций sh(x) поэтому нужно преобразить ее с помощью функций, которые распознает Turbo Pascal:

     

 

     Также в Turbo Pascal нет факториала, но известно, что

     

     аналогично  и для   

     Ручной  счет 

     

       
 
 
 
 
 

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

 
 

 

 

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

     Program N2;

     uses crt;

       var y,x,s,u:real;

           m,n: integer;

                 F:Text;

     procedure vvod;

       begin

       clrscr;

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

     Rewrite (F);

     writeln ('Вычисление функции с использованием нестандартных функций и процедур');

     writeln (F,'Вычисление функции с использованием нестандартных функций и процедур');

     writeln ('y=sh(sqrt(x))+(m!-n!)-sqrt(x)');

     writeln (F,'y=sh(sqrt(x))+(m!-n!)-sqrt(x)');

       write('Введите x= ');

       readln(x);

       end;

              procedure factorial (var m,n:integer);

              var a,b:longint;

                  i:integer;

              begin

              a:=1;

              for i:=1 to n do b:=b*i;

              b:=1;

              for i:=1 to m do a:=a*i;

              m:=a; n:=b;

              u:=m-n

              end; 

       procedure sinus;

       begin

       s:=(exp(sqrt(x))-exp(-sqrt(x)))/2;

       writeln('синус гиперболический равен s= ',s:4:2);

          end;

       procedure functio;

       begin

       y:=s+u-sqrt(x);

       writeln('значение функции равно y= ',y:4:2);

       writeln(F,'значение функции равно y= ',y:4:2);

          end;

      begin

     vvod;

       writeln('Введите m,n ');

       readln(m,n);

       factorial (m,n);

       sinus;

       functio;

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

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

        Close (F);

       readkey;

       end.

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

     Вычисление  функции с использованием нестандартных функций и процедур y=sh(sqrt(x))+(m!-n!)-sqrt(x)

     Введите x= 1

     Введите m, n 3, 1

     гиперболический синус равен u= 1.18

     значение  функции равно y= 5.18

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

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

 

      Задание№3

     Составить алгоритм и программу операций над  матрицами.

      при I=3, J=4, K=5. 

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

 

 

 

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

     program matrix;

     uses crt;

      const Ni=3;

            Nj=4;

            Nk=5;

      type matr=array[1..Nk,1..Nk] of real;

      var A,At,B,C,D,AtB,CD,S:matr;

          i,j,k:integer;

          F:text;

      procedure proizvedenie1(var m:matr; p,l:matr);

      var i1,j1,k1:integer;

        begin

          for i1:=1 to Ni do

            for k1:=1 to Nk do

              begin