Позначення в

Призначення

Завдання

Схема

Програма

1

2

3

4

ВХІДНІ МАСИВИ

N

N

Кількість елементів рядка N

B(i,j)

B(i,j)

Матриця В

A(i,j)

A(i,j)

Матриця А

X(i)

X(i)

Масив х_і

Скалярні величини:

ДОПОМІЖНІ

a₁, b₁

a₁, b₁

Проміжна текстова змінна

N$

N$

Текстова змінна для настройки напрям друку проміжних результатів

j$,i,j,l

j$,i,j,l

Проміжні змінні (лічильники циклу)

ПОЯСНЕННЯ ДО СХЕМИ АЛГОРИТМУ ОСНОВНОЇ ПРОГРАМИ:

- блок 1 - початок програми;

- блок 2.3 - опис функцій користувача;

- блок 3 - виведення повідомлення про атрибути курсової роботи;

- блоки з 4 по 23 - введення вхідних даних в діалоговому режимі та контролю за правильністю їх вводу;

- блок 24 - початок циклу перебору елементів І;

- блок 29 - сума матриць

- блок 30 - максимальний елемент матриці

- блоки з 31 по 35 - підготовка даних і звертання до підпрограми розрахунку визначника методом Гауса

- блоки з 36, 38, Є 48 ,49- запам'ятовування чергового рядка таблиці;

- блок 58 - введення повідомлення про друк результатів;

- блоки з 50 по 59 - підготовка вхідних даних та звернення підпрограми виводу таблиці;

- блоки 60 - організація запиту і при потребі настройка програми на друк результатів на папір з перетворенням на повторне виконання блоків , починаючи з 50 ;

- блок 61- закінчення програми.

ТЕКСТИ ПРОГРАМ

Текст тестової програми

Вивід таблиць. Призначення: Вивід на екран (папір) в табличному вигляді декількох (<=5) змінних, які задані двовимірним масивом. Звертання: GOSUB 3000.

Опис параметрів: Вхідні: N - кількість рядків та стовпців.

Таблиці виводиться 10 позицій. Вихідні: немає. Допоміжні: I%, J%, L%, K%. Використовувані підпрограми і функції: немає. Вимоги до викликаючої програми: у викликаючій програмі необхідно:

• на початку основної програми перед звертання до підпрограми описати двовимірний масив А розміром не менше N х N і одновимірний масив X розміром І;

• перед звертанням до підпрограми змінні N,X повинні бути визначені;

• не використовувати I%, J%, L%, K% для позначення змінних в основній програмі, які не повинні бути зіпсуті в процесі роботи даної підпрограми.

Роздрук результатів розрахунку

Роздруки результатів тестування

Висновок: отже, в результаті проведеного тест програми для обчислення визначника методом Гауса встановлено, що отримані результати відповідають тестовому прикладові ручному з розрахунку.

{ ОСНОВНА ПРОГРАМА. }

{КУРСОВА РОБОТА СТУДЕНТА ГРУПИ ТБ-2

Program student (input,output);

uses

crt, student, printer ;

const

n-3; f-50;

type

mas=аггау[1..3,1..3] of real;

var

i,j,k:integer;

y,b1,al,cmax,t,xl:real;

a,b,c:dvmr;

x:array[l.,50] of real;

begin

writeln('введіть елементи матриці А');

for i:=l to n do

for j:=l to n do {ВВІД МАТРИЦІ А}

begin

writeln ('введіть a[',i,',j,']=');

readln (a[ij])

end;

writeln ('введіть елементи матриці b‘);

for i:=1 to n do

for j:=1 to n do {ВВІД МАТРИЦІ В}

begin

writeln ('введіть b[',і,',',j,']=');

readln (b[i,j])

end;

for i:=1 to n do

for j:=l to n do {СУМА МАТРИЦЬ А, Б }

c[i,j]:=a[i,j]+b[i,j];

cmax:=c[l,l];

for i:=l to n do

for j:=l to n do

if c[i,j]>=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.

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

<<DET>>

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 (‘* <<Det>> *’);

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;

Знаходження суми елементів стовпця матриці з максимальним елементом а1=20.6000

Знаходження визначника матриці В

b1=243.3330

6.2.Роздрук результатів розрахунку.

8. Перелік використаних літературних джерел.

1. Демидович В.П., Марон Н.А. Основи вычислительной математики М: Наука.

2. Малыков В.Т., Кветний Р.Н. Вычислительные методи и применение ЭВМ. - Киев , Высшая школа.

З. Дячишин В.В. Методичні вказівки для виконання курсової роботи з дисципліни Обчислювальна техніка і програмування.

4. Грицюк Ю.І. , Дорожовський Е.С. Методичні розробки для самостійної роботи з дисципліни "Обчислювальна техніка та програмування". Розділ 2. Підготовка задач до розв'язування на ЕОМ. Розділ Приклади складання алгоритмів і програм. - ЛЬВІВ, 14Щ, -53 с.

5. Грицюк Ю.Є., Дорожовський Е.С, і ін. методичні розробки для самостійної роботи з дисципліни "Обчислювальна техніка та програмування ".Розділ 4. Характерні прийоми складання алгоритмів і програм – Львів.

6. Грицюк Ю.І., Дорожовський Е.С. і ін. Методичні розробки для самостійної роботи з дисципліни "Обчислювальна техніка та програмування." Розділ 5. Алгоритм обробки масивів. – Львів.

7. Ден Гукін. DOS для чайников.2-е издание "Диалектика" "Информейшн Компьютер Ентерпрайз".Киев