WWW.REFERATCENTRAL.ORG.UA - Я ТУТ НАВЧАЮСЬ

... відкритий, безкоштовний архів рефератів, курсових, дипломних робіт

ГоловнаІнформатика, Компютерні науки → Побудова таблиці значень функції - Курсова робота

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

величини:
ДОПОМІЖНІ
a1, b1 a1, b1 Проміжна текстова змінна
N$ N$ Текстова змінна для настройки напрям друку проміжних результатів
j$,i,j,l j$,i,j,l Проміжні змінні (лічильники циклу)
ВИХІДНІ
S$(i) S(i) Масив текстових величин-заголовків результуючої таблиці по стовпцях
Y(i) Y(i) Масив значень результуючої таблиці
ПОЯСНЕННЯ ДО СХЕМИ АЛГОРИТМУ ОСНОВНОЇ ПРОГРАМИ:
- блок 1 - початок програми;
- блок 2.3 - опис функцій користувача;
- блок 3 - виведення повідомлення про атрибути курсової роботи;
- блоки з 4 по 23 - введення вхідних даних в діалоговому режимі та контролю за правильністю їх вводу;
- блок 24 - початок циклу перебору елементів І;
- блок 29 - сума матриць
- блок 30 - максимальний елемент матриці
- блоки з 31 по 35 - підготовка даних і звертання до підпрограми розрахунку визначникаметодом Гауса
- блоки з 36, 38, Є 48 ,49- запам'ятовування чергового рядка таблиці;
- блок 58 - введення повідомлення про друк результатів;
- блоки з 50 по 59 - підготовка вхідних даних та звернення підпрограми виводу таблиці;
- блоки 60 - організація запиту і при потребі настройка програми на друк результатів на папір з перетворенням на повторне виконання блоків , починаючи з 50 ;
- блок 61- закінчення програми.
ТЕКСТИ ПРОГРАМ
Текст тестової програми
Вивід таблиць. Призначення: Вивід на екран (папір) в табличному вигляді декількох (=cmax then {ЗНАХОДЖЕННЯ МАКСИМАЛЬНОГО ЕЛЕМЕНТУ МАТРИЦІ С}
begin
cmax:=c[i,j];
k:=J
end;
for i:=l to n do
al:=al+c[i,k];
writeln (1st,'ЗНАХОДЖЕННЯ СУМИ ЕЛЕМЕНТІВ СТОВПЦЯ
МАТРИЦІ З М'}
writeln (lst'al=',al:8:4); bl:=det(b,n);
writeln (1st,'ЗНАХОДЖЕННЯ ВИЗНАЧНИКА МАТРИЦІ В');
writeln (lst,'bl=',bl:8:4);
for i:=l to f do begin
writeln ('введіть х[',і,']-');
readln( x[i]) {ВВІД ЕЛЕМЕНТІВ МАСИВУ X}
end;
writeln (1st,'--------------------------------------------------------------------------
writeln (1st,'*----------------x-------------------*---------------------------------у
writeln (1st,'-------------------------------------------------------------------------
for i:-l to f do
begin
if x[i]>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 Ik 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;
Знаходження суми елементів стовпця матриці з максимальним елементом а1=20.6000
Знаходження визначника матриці В
b1=243.3330
* Х * Y *
* 0.500 * 0.000 *
* 1.000 * 0.000 *
* 1.500 * 0.000 *
* 2.000 * 0.000 *
* 2.500 * 0.000 *
* 3.000 * 0.001 *
* 3.500 * 0.001 *
* 4.000 * 0.001 *
* 4.500 * 0.001 *
* 5.000 * 0.002 *
* 5.500 * 0.002 *
* 6.000 * 0.003 *
* 6.500 * 0.004 *
* 7.000 * 0.004 *
* 7.500 * 0.005 *
* 8.000 * 0.006 *
* 8.500 * 0.007 *
* 9.000 * 0.009 *
* 9.500 * 0.010 *
* 10.000 * 0.012 *
* 10.500 * 0.020 *
* 11.000 * 0.023 *
* 11.500 * 0.025 *
* 12.000 * 0.028 *
* 12.500 * 0.031 *
* 13.000 * 0.034 *
* 13.500 * 0.036 *
* 14.000 * 0.039 *
* 14.500 * 0.042 *
* 15.000 * 0.045 *
* 15.500 * 0.048 *
* 16.000 * 0.050 *
* 16.500 * 0.053 *
* 17.000 * 0.055 *
* 17.500 * 0.057 *
* 18.000 * 0.059 *
* 18.500 * 0.061 *
* 19.000 * 0.063 *
* 19.500 * 0.064 *
* 20.000 * 0.065 *
* 20.500 * 0.065 *
* 21.000 * 0.065 *
* 21.500 * 0.065 *
* 22.000 * 0.064 *
* 22.500 * 0.063 *
* 23.000 * 0.061 *
* 23.500 * 0.058 *
* 24.000 * 0.055
* 24.500 * 0.052 *
* 25.000 * 0.048 *
6.2.Роздрук результатів розрахунку.
8. Перелік використаних літературних джерел.
1. Демидович В.П., Марон Н.А. Основи вычислительной математики М: Наука.
2. Малыков В.Т., Кветний Р.Н. Вычислительные методи и применение ЭВМ. - Киев , Высшая школа.
З. Дячишин В.В. Методичні вказівки для виконання курсової роботи з дисципліни Обчислювальна техніка і програмування.
4. Грицюк Ю.І. , Дорожовський Е.С. Методичні розробки для самостійної роботи з дисципліни "Обчислювальна техніка та програмування". Розділ 2. Підготовка задач до розв'язування на ЕОМ. Розділ Приклади складання алгоритмів і програм. - ЛЬВІВ, 14Щ, -53 с.
5. Грицюк Ю.Є., Дорожовський Е.С, і ін. методичні розробки для самостійної роботи з дисципліни "Обчислювальна техніка та програмування ".Розділ 4. Характерні прийоми складання алгоритмів і програм - Львів.
6. Грицюк Ю.І., Дорожовський Е.С. і ін. Методичні розробки для самостійної роботи з дисципліни "Обчислювальна техніка та програмування." Розділ 5. Алгоритм обробки масивів. - Львів.
7. Ден Гукін. DOS для чайников.2-е издание "Диалектика" "Информейшн Компьютер
Loading...

 
 

Цікаве