Побудова таблиці значень функції

Курсова робота
„Побудова таблиці значень функції”
















ЗМІСТ

1. Завдання.
2. Постановка задач
2.1. Аналіз структури вхідних   (початкових)   даних задач.
2.2 . Визначення порядку підготовки і вводу вхідних даних
2.3. Визначення і опис супровідних діалогів
2.4. Аналіз структури, виду і типу результатів розрахунку
2.5. Розробка словесного алгоритму розв'язання завдання
2.6. Вибір математичних методів розрахунку
2.7. Розробка програмної   структури завдання
2.8. Розробка текстових завдань
2.9. Вибір і обґрунтування мови програмування
2.10. Вибір і обґрунтування текстового редактора
3. Схеми алгоритмів
3.1. Таблиця прийнятих позначень змінних і констант
3.2. Схема алгоритму основної   програми
3.3. Схема алгоритму розробленої   підпрограми
4. Тексти програм
4.1. Текст текстової програми
4.2. Текст основної   програми
4.3. Тексти розроблених підпрограм
5. Опис складених програмних модулів
5.1. Опис основної   програми
5.2. Описи розроблених підпрограм
6. Роздрук результатів розрахунку
6.1. Роздруки результатів тестування
6.2. Роздрук результатів розрахунку
7. Аналіз результатів розрахунку
8. Перелік використаних літературних джерел







Завдання
Побудувати таблицю значень функції:
[pic]
де х = 0,5,1…25
t = 0.44 при х>10
t = 0,25 при х=10 then t:=0,44 else t:=0,25;
      y:-(l+sqr(x[i])*sin(t*x[i]/4))/(l,5+al*bl);
      writeln   (1st,'*   ',   x[i];8:3   ,   '             *                   ',y:8:3,'
writeln   (1st,   '-----------------------------------------------------------------------
end
end.


Підпрограма: Знаходження визначника матриці методом Гауса


Function Det (A: dvmr; N: integer): real;
Var i,j,k: integer;
d,y,w: real;
Begin
if (help_s=’h’) or (help_s=’H’) then begin ClrScr;
writeln (‘***********************************************’);
writeln (‘*     Знаходження визначника матриці методом Гауса   *’);
writeln (‘*     *’);
writeln (‘* Вхідні дані:     *’);
writeln (‘* N - кількість рядків матриці     *’);
writeln (‘* A[i,j] - матриця коефіцієнтів.     *);
          writeln (‘***********************************************’);
          readln; Exit;
      end;
          d:=1;
          for i:=1 to N do begin
          k:=1; y:=A[i,i];
          for j:=i+1 to N begin
      w:=A[j,i];
      if Abs (w)>Abs(y) then begin
      k:j; y:=w;
      end;
          end;
          d:=d*y;
          if d=0 then begin det:=0; Exit; end:
          if I< >k then begin
      d:=-d;
      for j:=i to N do begin
      w:=A[k,j];
      A[k,j]:=A[i,j];
      A[i;j]:=w;
      End;
                      end;
          for j:=i+1 to N do begin
      w:=A[j,i]/y;
      for k:=i+1 to N do A[j,k]:=A[j,k]-w*A[i,k];
      end;
          end;
Знаходження суми елементів стовпця матриці