Программирование вычислительных процессов на языке BASIC - Программирование, компьютеры и кибернетика курсовая работа

Главная

Программирование, компьютеры и кибернетика
Программирование вычислительных процессов на языке BASIC

Составление схемы алгоритма и программы для построения графика временной функции, работающей как в машинном, так и в реальном времени. Пример вычисления степенного ряда с помощью схемы Горнера. Описание переменных программы, листинг, процедуры и функции.


посмотреть текст работы


скачать работу можно здесь


полная информация о работе


весь список подобных работ


Нужна помощь с учёбой? Наши эксперты готовы помочь!
Нажимая на кнопку, вы соглашаетесь с
политикой обработки персональных данных

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Выбор и обоснование методов решения
С развитием промышленности возникает необходимость в автоматизации технологических процессов и производств. На данном этапе развития техники широкое применение находят роботы и робототехнические системы. Для управления производственными процессами в 70-е, 80-е годы стало возможным применение микропроцессорной техники. Развитие различных языков программирования (Fortran, Basic, Assembler, Pascal, C и т.д.) дает возможность разработки и внедрения объемных пакетов прикладных программ для управления сложными технологическими процессами и производствами. Пакеты прикладных программ дают возможность дистанционного управления и контроля сложных процессов с невозможным прямым вмешательством человека. Управляющая система намного быстрее и точнее выполняет поставленные задачи, не требуя при этом времени на отдых. Применение программного управления значительно увеличивает производительность труда. Первоначальные затраты материальных средств на установку и наладку микропроцессорного оборудования в процессе работы быстро окупаются. Это делает выгодным применение систем такого рода в производстве.
Для написания программного обеспечения к микропроцессорному оборудованию подходит язык программирования Basic. Программы, написанные на нем, обладают высокой работоспособностью и не требуют от управляющей машины высоких аппаратных качеств. Они позволяют провести расчет параметров системы, как в машинном, так и в реальном времени.
Составить схему алгоритма и программу для построения графика временной функции, работающую как в машинном, так и в реальном времени. Реальное время в диапазоне () формируется таймером в виде программного модуля с метками , называемыми временем квантования.
При вычислении функции использовать алгоритм Горнера.
- корень нелинейного уравнения , которое надо ре-шить методом простых итераций с точностью , при начальном зна-чении корня лежащем в диапазоне .
- сумма корней квадратного уравнения , при .
Выбор и обоснование методов решения
В соответствии с заданием выбираем методы решения задач.
Для нахождения корня нелинейного уравнения используем метод простых итераций.
Этот метод основан на основе попадания в -окрестность модуля разности двух последовательно приближенно вычисленных корней и . Подробнее см. листинг программы. В этом случае нелинейное уравнение считают решенным с заданной степенью точности.
Для вычисления функции используем алгоритм Горнера (схему Горнера).
Схема Горнера применяется для вычисления степенных рядов. Схема Горнера представляет собой рекуррентную формулу, по которой вычисляется значение функции в каждый момент времени.
Пример вычисления степенного ряда с помощью схемы Горнера.
Вычислим функцию в точке при помощи схемы Горнера.
Для этого составим следующую программу на языке Basic:
В результате работы данной программы будет вычислена функция в точке , а результат будет выведен на экран.
DECLARE FUNCTION Range! (K!, Range!)
DECLARE SUB Scale (A!, B!, C!, MaxT!, Tkv!)
DECLARE FUNCTION RootSum! (A!, B!, C!)
DECLARE FUNCTION Iteration! (XBeg!, XEnd!, Eps!)
' =======================================
' =======================================
' ==============Constants================
CONST TConst = 2500: 'Depends from the machine
' ==============Shared Vars==============
' ===============Intro===================
' =============Main Screen===============
' ==================END==================
BaseF = ABS(A * K ^ 3 + B * K ^ 2 + C * K + d + g)
SHARED TBeg, TEnd, Tkv, XBeg, XEnd, Eps, A, B, C, A1, B1, C1, d, g, DataFlag
PRINT "Введение начальных значений:"
SHARED TBeg, TEnd, Tkv, XBeg, XEnd, Eps, A, B, C, A1, B1, C1, d, g, DataFlag
LINE (32, I * 32 + 8)-(232, (I + 1) * 32 + 8), 7, B
LINE (112, 8)-(112, 14 * 32 + 8), 7
LOCATE 2, 6: PRINT "Tнач.": LOCATE 2, 16: PRINT TBeg
LOCATE 4, 6: PRINT "Tкон.": LOCATE 4, 16: PRINT TEnd
LOCATE 6, 6: PRINT "Tквант.": LOCATE 6, 16: PRINT Tkv
LOCATE 8, 6: PRINT "Xнач.": LOCATE 8, 16: PRINT XBeg
LOCATE 10, 6: PRINT "Xкон.": LOCATE 10, 16: PRINT XEnd
LOCATE 12, 6: PRINT "Точность": LOCATE 12, 16: PRINT Eps
LOCATE 14, 6: PRINT "A": LOCATE 14, 16: PRINT A
LOCATE 16, 6: PRINT "B": LOCATE 16, 16: PRINT B
LOCATE 18, 6: PRINT "C": LOCATE 18, 16: PRINT C
LOCATE 20, 6: PRINT "A1": LOCATE 20, 16: PRINT A1
LOCATE 22, 6: PRINT "B1": LOCATE 22, 16: PRINT B1
LOCATE 24, 6: PRINT "C1": LOCATE 24, 16: PRINT C1
LOCATE 26, 6: PRINT "d": LOCATE 26, 16: PRINT d
LOCATE 28, 6: PRINT "g": LOCATE 28, 16: PRINT g
LOCATE 19, 3: PRINT Range(100 * ScY, 2)
LOCATE 13, 3: PRINT Range(200 * ScY, 2)
LOCATE 7, 3: PRINT Range(300 * ScY, 2)
LOCATE 27, 25: PRINT Range(100 * ScX, 2)
LOCATE 27, 37: PRINT Range(200 * ScX, 2)
LOCATE 27, 50: PRINT Range(300 * ScX, 2)
LOCATE 27, 62: PRINT Range(400 * ScX, 2)
PRINT "Программирование вычислительных процессов на языке BASIC."
PRINT "Выполнил студент гр.107110 Орел О.О."
FUNCTION Iteration (XBeg, XEnd, Eps)
LOCATE 2, 37: PRINT "------------ОСНОВНОЕ МЕНЮ------------"
LOCATE 10, 48: PRINT "ЗАДАТЬ ПАРАМЕТРЫ"
LOCATE 14, 46: PRINT "ПАРАМЕТРЫ ПО УСЛОВИЮ"
LOCATE 18, 44: PRINT "ГРАФИК В РЕАЛЬНОМ ВРЕМЕНИ"
LOCATE 22, 44: PRINT "ГРАФИК В МАШИННОМ ВРЕМЕНИ"
SHARED MI: MI = 1: 'First menu item
IF (Key$ = CHR$(0) + "P") AND (MI < 6) THEN
LINE (304, 72 + (MI - 1) * 64)-(576, 104 + (MI - 1) * 64), 0, B
LINE (304, 72 + (MI - 1) * 64)-(576, 104 + (MI - 1) * 64), 3, B
IF (Key$ = CHR$(0) + "H") AND (MI > 1) THEN
LINE (304, 424 - (6 - MI) * 64)-(576, 392 - (6 - MI) * 64), 0, B
LINE (304, 424 - (6 - MI) * 64)-(576, 392 - (6 - MI) * 64), 3, B
LOCATE 2, 37: PRINT "------------ОСНОВНОЕ МЕНЮ------------"
LOCATE 10, 48: PRINT "ЗАДАТЬ ПАРАМЕТРЫ"
LOCATE 14, 46: PRINT "ПАРАМЕТРЫ ПО УСЛОВИЮ"
LOCATE 18, 44: PRINT "ГРАФИК В РЕАЛЬНОМ ВРЕМЕНИ"
LOCATE 22, 44: PRINT "ГРАФИК В МАШИННОМ ВРЕМЕНИ"
LINE (304, 72 + (MenuItem - 1) * 64)-(576, 104 + (MenuItem - 1) * 64), 0, B
LINE (304, 72 + (MenuItem - 1) * 64)-(576, 104 + (MenuItem - 1) * 64), 3, B
LINE (300 - Length * 8, 190)-(340 + Length * 8, 290), 0, BF
LINE (300 - Length * 8, 190)-(340 + Length * 8, 290), 7, B
LOCATE 15, 41 - Length / 2: PRINT Message$
CALL MessageBox("Программа завершила свою работу.")
RealN = INT((N - IntN) * 10 ^ Range)
RootSum = ((SQR(B * B - 4 * A * C) - B) / 2 * A) + ((-SQR(B * B - 4 * A * C) - B) / 2 * A): RootsFlag = 1
ELSE CALL MessageBox("Ошибка в вычислении корней."): CLS : RootsFlag = 0
MaxY = INT(A * MaxT ^ 3 + B * MaxT ^ 2 + C * MaxT + d + g)
SHARED TBeg, TEnd, Tkv, XBeg, XEnd, Eps, A, B, C, A1, B1, C1, d, g, DataFlag
LOCATE 2, 38: PRINT "--------------УСЛОВИЕ--------------"
LOCATE 6, 34: PRINT "Составить схему алгоритма и программу для "
LOCATE 7, 35: PRINT "построения графика временной функции, ра-"
LOCATE 8, 35: PRINT "ботающую как в машинном, так и в реальном"
LOCATE 9, 35: PRINT "ботающую как в машинном, так и в реальном"
LOCATE 10, 35: PRINT "времени. Реальное время в диапазоне "
LOCATE 11, 35: PRINT "(t0-tкон.) формируется таймером в виде про-"
LOCATE 12, 35: PRINT "граммного модуля с метками Тквант., называ-"
LOCATE 13, 35: PRINT "емыми временем квантования. При вычислении"
LOCATE 14, 35: PRINT "функции использовать алгоритм Горнера."
LOCATE 16, 38: PRINT "-------------ПАРАМЕТРЫ-------------"
LOCATE 18, 38: PRINT "F(t) = |At^3 + Bt^2 + Ct + d + g|"
LOCATE 19, 35: PRINT "tквант.=0.25 с; t0=0 с; tкон.=7 с."
LOCATE 21, 34: PRINT "g-корень нелинейного ур-я: x+cos(x^0.52+2)=0,"
LOCATE 22, 34: PRINT "которое надо решить методом простых итераций."
LOCATE 24, 36: PRINT "Точность-0.001; Xнач.=0.5; Xкон.=1."
LOCATE 26, 34: PRINT "d-сумма корней квадр-го ур-я: A1z^2+B1z+C1=0"
LOCATE 27, 45: PRINT "При A1=2; B1=5; C1=-2."
LOCATE 28, 40: PRINT "Коэффициенты: A=2.7; B=1.5; C=A+B."
SHARED TBeg, TEnd, Tkv, XBeg, XEnd, Eps, A, B, C, A1, B1, C1, d, g, ScX, ScY
CALL MessageBox("Не заданы параметры задачи!")
IF (TBeg >= TEnd) OR (TBeg < 0) OR (Tkv <= 0) THEN
CALL MessageBox("Временные коэффициенты заданы неверно.")
IF (A > 5) OR (B > 10) OR (C > 10) THEN
CALL MessageBox("Один из коэффициентов A,B,C слишком велик.")
CALL MessageBox("Коэффициенты A1,B1,C1 превышают допустимые значения.")
CALL MessageBox("Слишком много точек.Уменьшите время квантования.")
CALL MessageBox("g превышает допустимое значение.")
YBlock(X) = Array(I - 1) + P * (X + TBeg / Tkv) * Tkv
IF Points <> CINT(Points) THEN YBlock(Points + 1) = -BaseF(TEnd)
FOR K = TBeg / ScX TO TEnd / ScX - 2
CIRCLE (100 + K, 400 - BaseF(K * ScX) / ScY), 1, 14
PAINT (100 + K, 400 - BaseF(K * ScX) / ScY), 14
CIRCLE (100 + K * Tkv / ScX, 400 - YBlock(K - TBeg / Tkv) / ScY), 2, 4
PAINT (100 + K * Tkv / ScX, 400 - YBlock(K - TBeg / Tkv) / ScY), 4
IF Time <> 0 THEN CALL Delay(Time * 100)
CIRCLE (100 + TEnd / ScX, 400 + YBlock(Points + 1) / ScY), 2, 3
PAINT (100 + TEnd / ScX, 400 + YBlock(Points + 1) / ScY), 3
LINE (32, I * 32 + 8)-(232, (I + 1) * 32 + 8), 7, B
LOCATE 2, 38: PRINT "-----ДОПОЛНИТЕЛЬНАЯ ИНФОРМАЦИЯ-----"
LOCATE 7, 50: PRINT "Коэффициенты:"
LINE (112, 8)-(112, 14 * 32 + 8), 7
LINE (32, I * 32 + 8)-(232, (I + 1) * 32 + 8), 7, B
LINE (112, 8)-(112, 14 * 32 + 8), 7
LOCATE 2, 38: PRINT "-----ДОПОЛНИТЕЛЬНАЯ ИНФОРМАЦИЯ-----"
LOCATE 7, 50: PRINT "Коэффициенты:"
LOCATE I, 6: PRINT Range(K * Tkv, 3)
LOCATE I, 16: PRINT Range(YBlock(K), 3)
При задании параметров задачи нужно учитывать что во избежание некорректной работы программы переменные программы могут принимать следующие значения:
Параметры , и должны быть выбраны таким образом, что .
SUB Delay (Time!) - временная задержка. В процедуре используется временная константа TConst, объявленная в основной программе. Параметр Time - время в секундах.
FUNCTION BaseF! (K!) - временная функция. Используется для построения линии графика. Параметр K - значение аргумента. Возвращает значение функции для аргумента K.
FUNCTION Range! (K!, Range!) - возвращает K, отбрасывая все знаки после запятой, начиная с Range.
SUB Scale (A!, B!, C!, MaxT!, Tkv!) - масштабирование графика. Параметры: A, B, C - коэффициенты функции, MaxT - наибольшее возможное значение времени, Tkv - время квантования. Вычисляет коэффициенты масштабирования ScX, ScY.
SUB Grid () - рисование координатной сетки с нанесенными значениями.
SUB MessageBox (Message$) - вывод сообщения. Параметр - текстовая переменная, содержащая сообщение.
SUB MainRef (MenuItem!) - обновление основного меню. Параметр - номер элемента меню.
SUB Text () - вывод текстового сообщения, содержащего условие задачи.
SUB StData () - задание параметров задачи по условию.
SUB Main () - основная процедура, содержащая механизм меню.
SUB DataOut () - вывод окна с таблицей параметров задачи.
SUB DataIn () - задание параметров задачи.
SUB Outro () - вывод сообщения о завершении программы.
SUB Work (Time!) - процедура вычисления значений функции в основных точках и рисования графика в машинном или реальном времени. Параметр - время в секундах.
FUNCTION RootSum! (A!, B!, C!) - возвращает сумму корней квадратного уравнения. Параметры - коэффициенты квадратного уравнения.
FUNCTION Iteration! (XBeg!, XEnd!, Eps!) - возвращает корень нелинейного уравнения, лежащий в диапазоне [XBeg;XEnd], вычисленный методом простых итераций с точностью Eps.
SUB Intro () - вывод титульного листа.
Мировой и отечественный опыт подготовки специалистов в области компьютерной науки и компьютерной инженерии подтверждает целесо-образность и эффективность понимания основ программирования на более простых и базирующих языках программирования, одним из которых является Basic. На примере данной программы, написанной на языке Basic, показан несложный вычислительный процесс, позволяющий обеспечить построение графика временной функции, работающий как в машинном, так и в реальном времени.
Примечание: электронный вариант программы находится на приложенной к пояснительной записке дискете под именем KURS.bas, а электронный вариант пояснительной записки - под именем Zap.doc.
1. Дьяконов В. П. “Компьютер в быту”. - С.:Русич, 2006 г.
Выбор и обоснование методов составления схемы алгоритма и разработки программы для построения графика временной функции, работающей как в машинном, так и в реальном времени. Алгоритм Горнера. Программа на языке Quick BASIC (с распечаткой листинга). курсовая работа [55,1 K], добавлен 21.11.2012
Составление схемы алгоритма и программы для построения графика временной функции, работающей как в машинном, так и в реальном времени. Выбор и обоснование методов расчета. Разработка основной программы. Блок-схемы алгоритмов. Распечатка листинга. курсовая работа [1,5 M], добавлен 21.11.2013
Создание программ в Borland C++ Builder 6.0. Разработка программы для построения графика временной функции, работающей, как в машинном, так и в реальном времени. Использование алгоритма Горнера для вычисления корня квадратного и нелинейного уравнений. контрольная работа [925,2 K], добавлен 05.01.2016
Построение схемы алгоритма и программы для создания графика временной функции, работающей в машинном и реальном времени. Выбор методов решения и их обоснование. Значение коэффициентов и временной функции. Реализация временных задержек в программе. курсовая работа [6,2 M], добавлен 09.03.2012
Общие сведения об алгоритмическом языке PASCAL. Схема алгоритма и программы для построения графика временной функции, работающей как в машинном, так и в реальном времени. Применение метода простой итерации, метода решения полинома на языке PASCAL. курсовая работа [41,5 K], добавлен 15.03.2012
Программирование на алгоритмическом языке Turbo Pascal на примере разработки алгоритма и программы расчета временной функции. Выбор, обоснование методов решения. Схемы алгоритмов основной программы и подпрограмм. Распечатка исходных и вычисленных величин. реферат [154,8 K], добавлен 15.03.2012
Понятие машинного и реального времени, дискретизация времени. Реализация временных задержек в программе. Вычисление значения многочлена методом Горнера. Разработка схем алгоритмов, основной программы и подпрограмм. Построение графика временной функции. курсовая работа [40,7 K], добавлен 18.04.2012
Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д. PPT, PPTX и PDF-файлы представлены только в архивах. Рекомендуем скачать работу .

© 2000 — 2021



Программирование вычислительных процессов на языке BASIC курсовая работа. Программирование, компьютеры и кибернетика.
Доклад по теме Филантропия: милостыня или социальная инженерия
Сигареты Эссе Без Кнопки
Эссе На Тему Собственность
Реферат: Пищевые токсикоинфекции
Выбор И Альтернативная Стоимость Экономический Выбор Реферат
Реферат по теме Пушкин как психолог
Реферат: Задание на выполнение курсового проекта;
Сочинение Как Я Вижу Окружающий Мир
Курсовая Работа На Тему Средства Физического Воспитания
Реферат: Методические рекомендации по подготовке и проведению государственной (итоговой) аттестации выпускников IX и XI
Реферат Формы Организации Педагогического Процесса
Курсовая работа: Принцип построения РЛС управления воздушным движением
Контрольная работа: Определение статистических данных
Контрольная Работа По География 8 Природного
Дипломная Работа На Тему Педагогічні Умови Ефективності Професійної Орієнтації Молодших Школярів
Курсовая работа: Опоры при идентификации слова
Курсовая работа: Внутрифирменный финансовый контроль
Сочинение Тема Любви В Поэзии Есенина
Реферат: Can You Believe TV Ratings Essay Research
Реферат: Частная собственность, тенденции и перспективы развития
Организация личного трудового процесса руководителя - Менеджмент и трудовые отношения курсовая работа
Обзор рынка корпоративных систем управления - Менеджмент и трудовые отношения реферат
Прогноз структуры мировой экономики на основе численного эксперимента - Международные отношения и мировая экономика контрольная работа