Search:

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

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

- блок 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] - матриця коефіцієнтів. *);

Перейти на сторінку номер:
 1  2  3  4  5 


Подібні реферати:

Інформаційні технології

1 Зміст Вступ 3 1. Поняття інформаційної технології _____________________4 1.1 Що таке інформаційна технологія. 4 1.2 Етапи розвитку інформаційних технологій. 4 1.3 Складові частини інформаційної технології 8 1.4 Інструментарій інформаційної технології 9 2. Види сучасних інформаційних технологій___________________________10 2.1 Інформаційна технологія опрацювання даних 10 2.2 Інформаційна технологія керування 12 2.3 Інформаційна технологія підтримки прийняття рішень 14 2.4 ...

Мова логічного програмування "Пролог"

Постановка завдання В даній курсовій роботі потрібно ознайомитись з мовами програмування, зокрема Prolog. З’ясувати як саме мова використовується, де виникла та визначити принцип її роботи. Розглянути порядок правил мови, дізнатися наскільки вона ефективна та актуальна. Основні терміни: Терм – будь-який об’єкт даних в Пролозі. Терм буває константою, змінною, складним термом. Константа – представлена в Пролозі числами і атомами. Атом – будь-яка послідовність символів, що взята в лапки. ...

Інформаційні комп’ютерні системи в менеджменті

Якщо років 50 чи 100 тому управління могло відбуватися без участі електронно-обчислювальних машин, то вже сьогодні – у ХХІ столітті – таке управління буде виглядати не повним, не досконалим і приреченим у сучасних умовах до частих невдач. В області менеджменту інформаційні комп’ютерні системи відіграють сьогодні досить велику роль, хоча далеко не вирішальну, оскільки управління все ж таки більше пов’язане з людським, а не машинним фактором. Проте у морі інформації швидкодія обчислювальної техніки стає у пригоді. Так, ...