48290 (Программы в среде Turbo Pascal), страница 2

2016-07-30СтудИзба

Описание файла

Документ из архива "Программы в среде Turbo Pascal", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.

Онлайн просмотр документа "48290"

Текст 2 страницы из документа "48290"

В подпрограмме выполняется сначала открытие файла для перезаписи, потом запись в нее результата и закрытие файла.


Рисунок 2 - Блок-схема алгоритма подпрограммы Screen

В подпрограмме выполняется сначала очистка экрана, а затем результат.


Рисунок 3 - Блок-схема алгоритма подпрограммы menus

В подпрограмме выводится меню для выбора куда отправлять результаты – на экран или на принтер. Что бы сделать выбор необходимо ввести соответствующее значение.

2.5 Блок-схема алгоритма подпрограммы Zad_2



























В этой подпрограмме выполняется сначала ввод элементов матрицы, затем расчет первой нормы и уже потом вывод новой матрицы на экран.

2.6 Блок-схема алгоритма программы Prog_1

Д анная программа включает в себя следующие подпрограммы: Forma1, Menu, Zad_1, Zad_2 приведённые ниже.

3. Описание

Созданная программа – Prog_1 состоит из двух основных подпрограмм, входящих в тело программы: Forma1, Menu.

Подпрограмма Formal выводит на экран монитора данные о курсовой работе:

СЕВЕРОКАВКАЗСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

ФИЛИАЛ В ГОРОДЕ КИСЛОВОДСКЕ

КУРСОВАЯ РАБОТА

по дисциплине информатика и программирование на тему создание прикладного программного обеспечения в среде программирования

Turbo Pascal

Работу выполнил: студент

_____курса группы _______

ФИО____________________

Работу проверил:

__________________________

При нажатии Enter управление передается подпрограмме Menu, которая выводит на экран монитора меню заданий, с предложением ввода номера одного из подпунктов для выполнения соответствующего задания. Интерфейс данной подпрограммы следующий:

1. “ Рассчитать длину средней линии трапеции ”.

2. “Пронумеровать матрицу по ее второй норме”.

3. “Выход”.

Введите номер задания для выполнения (1- 3).

Далее в соответствии с выбранным номером пункта управление передается Программе Prog_1, на вход которой поступает номер пункта меню. Происходит анализ соответствия номера пункта меню в списке предлагаемых (1, 2, 3), в случае несоответствия выводится надпись, управление передается подпрограмме Menu, в цикле будут повторяться данные действия до правильного ввода цифры пункта меню. В случае правильного набора номера пункта программа Prog_1 передаст управление соответственно одной из подпрограмм: Zad_1, Zad_2, или будет произведен выход из программного продукта в случае выбора номера варианта 3. После выполнения выбранной подпрограммы управление вновь передается подпрограмме Menu, для возможности выполнения любого из пунктов меню.

3.1 Рассчитать длину средней линии трапеции.

Фо́рмула Геро́на позволяет вычислить площадь треугольника (S) по его сторонам a, b, c:

аналогично вычисляются и остальные стороны.

где р — полупериметр треугольника: .

Треугольник однозначно можно определить по следующим тройкам основных элементов:

      • a, b, c (равенство по трём сторонам);

      • a, b, γ (равенство по двум сторонам и углу между ними);

      • a, β, γ (равенство по стороне и двум прилежащим углам).

В данном примере доказательство основывается на соотношении сторон, если выполняются все следующие условия:

      • a < b + c;

      • b < c + a;

      • c < a + b.

3.2 Нормальная матрица

Матрица — математический объект, записываемый в виде прямоугольной таблицы чисел (или элементов кольца) и допускающий алгебраические операции (сложение, вычитание, умножение и др.) между ним и другими подобными объектами. Правила выполнения операций над матрицами сделаны такими, чтобы было удобно записывать системы линейных уравнений. Обычно матрицу обозначают Заглавной буквой латинского алфавита и выделяют круглыми скобками «(…)» (встречается также выделение квадратными скобками «[…]», двойными прямыми линиями «||…||») А числа, составляющие матрицу (элементы матрицы), обозначают той же буквой, что и саму матрицу, но маленькой. у каждого элемента матрицы есть 2 нижних индекса (aij) — первый «i» обозначает номер строки, в которой находится элемент, а второй «j» — номер столбца.

Вектор — упорядоченное множество (последовательность, одномерный массив, кортеж, перечень, список) однородных элементов. Это наиболее общее определение в том смысле, что может быть не задано обычных векторных операций вообще, их может быть меньше, или они могут не удовлетворять обычным аксиомам линейного пространства. Нормой квадратной матрицы A называется функционал, обозначаемый , удовлетворяющий условиям:

  • -- произвольное число;

  • ;

Норма матрицы согласована с нормой вектора ,если для любых x и A

Функционал является нормой матрицы A и называется нормой матрицы А, подчиненной норме вектора .

4. Результаты

4.1 Интерфейс подпрограммы Zad_1


На рисунке 1 изображено окно ввода координат точек А, В, С ,D трапеции. Для каждой точки нужно ввести координаты х, у.

На рисунке 2 изображен диалог выбора: выводить результат – на принтер или на экран. Чтобы вывести на принтер нажмите 1, а для того чтобы на экран 2.

Рисунок 2 – Диалог печати

На рисунке 3 изображен вывод результата на экран. Мы видим в диалоговом окне чему равна площадь треугольника.

Рисунок 3 – Вывод результата

4.2 Интерфейс подпрограммы Zad_2

На рисунке 4 отображено главное окно задания 2, в котором сначала производился ввод элементов массива, а затем уже вывод нового массива.


Рисунок 4 – Вывод результатов

5. Проверка

Проверим ход решения в электронных таблицах Ms Excel.

Когда мы производим нормирование матрицы мы находим абсолютное значение от каждого элемента матрицы. Далее мы находим максимальное значение каждого столбца матрицы. А затем уже выводим результирующую матрицу B = (bik), где bik = aii / 1.

Заключение

Работа выполнена на языке Turbo Pascal фирмы Borland, прочно вошедшем в мир программирования в 1983 году и до сих пор являющимся удобным языком программирования для начинающих программистов, а также просто хорошим языком программирования, к которому обращаются как прикладные программисты, так и системные.

При разработке программного обеспечения производил вычисления и обработку данных, была разработана подпрограмма с использование графического режима экрана, использовались звуковые сигналы при ошибочном вводе данных, программный продукт написан в стиле структурного программирования. Все это характеризует то, что использовались возможности языка программирования Turbo Pascal для написания этого программного продукта.

При разработке курсовой работы был приобретен опыт работы с языком программирования, изучен синтаксис данного языка, основные конструкции, его семантика.

Работа с данным языком помогла приобрести навыки программирования.

Список использованной литературы

  1. Вирт Никлаус Алгоритмы+структуры данных= программы. — М.: «Мир», 1985.

  2. Грогоно Питер Программирование на языке Паскаль. — М.: «Мир», 1982.

  3. Йенсен К., Вирт Н. Паскаль. Руководство для пользователя и описание языка. — М.: «Финансы и статистика», 1982.

  4. Культин Н.Б. Delphi 6. Программирование на Object Pascal. — СПб.: «БХВ-Петербург», 2001. — С. 528. — ISBN 5-94157-112-7.

  5. Моргун Александр Николаевич Программирование на языке Паскаль (Pascal). Основы обработки структур данных. — М.: «Диалектика», 2005. — С. 576. — ISBN 5-8459-0935-X.

  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

Свежие статьи
Популярно сейчас
Зачем заказывать выполнение своего задания, если оно уже было выполнено много много раз? Его можно просто купить или даже скачать бесплатно на СтудИзбе. Найдите нужный учебный материал у нас!
Ответы на популярные вопросы
Да! Наши авторы собирают и выкладывают те работы, которые сдаются в Вашем учебном заведении ежегодно и уже проверены преподавателями.
Да! У нас любой человек может выложить любую учебную работу и зарабатывать на её продажах! Но каждый учебный материал публикуется только после тщательной проверки администрацией.
Вернём деньги! А если быть более точными, то автору даётся немного времени на исправление, а если не исправит или выйдет время, то вернём деньги в полном объёме!
Нет! Мы не выполняем работы на заказ, однако Вы можете попросить что-то выложить в наших социальных сетях.
Добавляйте материалы
и зарабатывайте!
Продажи идут автоматически
4144
Авторов
на СтудИзбе
667
Средний доход
с одного платного файла
Обучение Подробнее