ою вектора, якщо для будь-яких x і A В
Функціонал є нормою матриці A і називається нормою матриці А, підпорядкованої нормі вектора. p align=center> 4. Результати
В
4.1 Інтерфейс підпрограми Zad_1
В
На малюнку 1 зображено вікно введення координат точок А, В, С, D трапеції. Для кожної точки потрібно ввести координати х, у. <В
На малюнку 2 зображений діалог вибору: виводити результат - на принтер або на екран. Щоб вивести на принтер натисніть 1, а для того щоб на екран 2.
В
Малюнок 2 - Діалог друку
В
На малюнку 3 зображений висновок результату на екран. Ми бачимо в діалоговому вікні чому дорівнює площа трикутника.
В
Малюнок 3 - Висновок результату
В
4.2 Інтерфейс підпрограми Zad_2
На малюнку 4 відображено головне вікно завдання 2, в якому спочатку проводився введення елементів масиву, а потім вже висновок нового масиву.
В В
Малюнок 4 - Висновок результатів
В
5. Перевірка
Перевіримо хід рішення в електронних таблицях Ms Excel.
В
Коли ми виробляємо нормування матриці ми знаходимо абсолютне значення від кожного елемента матриці. Далі ми знаходимо максимальне значення кожного стовпчика матриці. А потім вже виводимо результуючу матрицю B = (b ik ), де b ik = a ii /ВЅ ВЅ A ВЅ ВЅ < sub> 1 .
Висновок
Робота виконана на мові Turbo Pascal фірми Borland, міцно увійшло в світ програмування в 1983 році і до цих пір є зручним мовою програмування для початківців програмістів, а також просто гарною мовою програмування, до якого звертаються як прикладні програмісти, так і системні.
При розробці програмного забезпечення виробляв обчислення і обробку даних, була розроблена підпрограма з використання графічного режиму екрану, використовувалися звукові сигнали при помилковому введенні даних, програмний продукт написаний у стилі структурного програмування. Все це характеризує те, що використовувалися можливості мови програмування Turbo Pascal для написання цього програмного продукту.
При розробці курсової роботи був придбаний досвід роботи з мовою програмування, вивчений синтаксис цієї мови, основні конструкції, його семантика.
Робота з даними мовою допомогла набути навичок програмування.
Список використаної літератури
1. Вірт Ніклаус Алгоритми + структури даних = програми. - М.: В«СвітВ», 1985. p> 2. Грогоно Пітер Програмування на мові Паскаль. - М.: В«СвітВ», 1982. p> 3. Йенсен К., Вірт Н. Паскаль. Керівництво для користувача і опис мови. - М.: В«Фінанси і статистикаВ», 1982. p> 4. Культин Н.Б. Delphi 6. Програмування на Object Pascal. - СПб.: В«БХВ-ПетербургВ», 2001. - С. 528. - ISBN 5-94157-112-7. p> 5. Моргун Олександр Миколайович Програмування на мові Паскаль (Pascal). Основи обробки структур даних. - М.: В«ДіалектикаВ», 2005. - С. 576. - ISBN 5-8459-0935-X. p> 6. Пермінов Олег Миколайович Мова програмування Паскаль: Довідник. - М.: В«Радіо і зв'язок В», 1989. - С. 128. - ISBN 5-256-00311-9. <В
Додаток
Program kursovay;
uses crt; {Підключення бібліотеки}
var {Блок оголошення змінних}
second: integer; {Змінна для виведення меню}
c1, c2, c3, c4, c5, c6: char; {Змінні для виводу рамки}
x1, x2, y1, y2, yf: integer; {Координати для виведення повідомлень}
Xa, Ya, Xb, Yb, Xc, Yc: integer; {Координати для виведення повідомлень}
ax, ay, az, bx, by, bz, cx, cy, cz: real; {Змінні для розрахунку сторін трикутний.}
Procedure Forma1; {Процедура Forma1}
var x1, x2, y1, y2: integer;
procedure Frame (x1, x2, y1, y2: integer); {Процедура Frame}
var
x, y: integer;
c1, c2, c3, c4, c5, c6: char;
begin {Оператори присвоєння}
c1: = chr (218);
c2: = chr (196);
c3: = chr (191);
c4: = chr (179);
c5: = chr (192);
c6: = chr (217);
gotoxy (x1, y1); {Встановлення екрану на позицію x1, y1}
write (c1);
for x: = x1 +1 to x2-1 do write (c2); {Оператор циклу}
write (C3); {Оператор виведення змінної с3}
for y: = y1 +1 to y2-1 do
begin
gotoxy (x1, y); {Проведення горизонтальної лінії}
write (c4); {Оператор виводу змінної с4}
gotoxy (X2, y);
write (c4);
end;
gotoxy (x1, y2);
write (c5);
for x: = x1 +1 to x2-1 do write (c2);
write (c6);
end;
begin
clrscr; {Очищення екрану}
x1: = 4; x2: = 76;
y1: = 4; y2: = 23;
frame (x1, x2, y1, y2);
gotoxy (12,7);
write ('Назва свого універу');
gotoxy (27,8);
write ('ФІЛІЯ ______________);
gotoxy (33,10);...
