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

Главная

Программирование, компьютеры и кибернетика
Основные задачи программирования с помощью языка Паскаль

Программирование нестандартных функций, задач оптимизации, дифференциального уравнения и аппроксимации с помощью языка Паскаль. Алгоритм и программа операций над матрицами. Нахождение значения корней нелинейного уравнения по методу половинного деления.


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


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


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


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


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

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Размещено на http://www.allbest.ru/
Известно, что технический уровень, а, следовательно, и конкурентоспособность выпускаемой машиностроительными предприятиями продукции в большой степени зависят от качества проектных решений на стадии технологической подготовки производства. В процессе технологической подготовки производства инженерам приходится сталкиваться со сложными задачами расчетного и проектного характера, решение которых во многих случаях с помощью традиционных методов либо практически не возможно, либо занимает много времени. В связи с усложнением конструкций изделий и увеличением их номенклатуры для решения возникающих задач потребуется множество новых проектировщиков, что привело бы в свою очередь к большим затратам. В связи с этим весьма актуальна автоматизация технологической подготовки производства, которая имеет следующие особенности: использование принципиально новых методологических основ проектирования; широкое применение экономико-математических методов проектирования; всесторонняя автоматизация инженерного труда. С появлением ЭВМ возможность автоматизации технологической подготовки производства стала реальностью. Появилось много систем автоматизированного проектирования (САПР), управления производством, управления технологическими процессами и др. Возникли новые методы решения таких задач (в отличие от традиционных), которые рассматриваются в курсе информатики.
В качестве примеров рассмотрим основные задачи программирования с помощью языка Паскаль.
1. Программирование нестандартных функций
1.1 Составить алгоритм и программу вычисления функции
c использованием нестандартной функции. Построить график функции.
1.2 На языке Паскаль функцию описывают с помощью невыполняемого оператора Function 1 :
Function F(x:T k ):T (где F - имя функции; x - формальный параметр; T k - тип параметра; T - тип имени функции, например, целого, вещественного и др. типов). Обращение к функции осуществляется в правой части оператора присваивания по имени F(X 1 ,X 2 ,X k ) ( где F - имя функции; X k - фактические параметры).
В данном случае представим гиперболическую функцию тангенс в виде нестандартной функции с формальным параметром X:
Fns(X) = Th(X) = (Exp(x) - Exp(-X)) / (Exp(X) + Exp(-X)).
Блок-схема к программе показана на рис. 1.
Рис. 1. Блок-схема программы вычисления функции Y = Th(x)/ - x2 :(а) - для вычисления нестандартной функции; (б) - для вычисления функции Y.
1.3 Программа вычисления и построения графика нестандартной функции:
Myth:=(Exp(x)-Exp(-x))/(Exp(x)+Exp(-x));
WRITELN('OSHIBKA!!!', #10#13,GRAPHERRORMSG(ERROR) ); HALT;
MX := GetMaxX; MX03 := ROUND (0.3 * MX);
MY := GetMaxY; MY09 := ROUND (0.9 * MY);
Line(MX03, MY005, MX03-3, MY005+10);
Line(MX03, MY005, MX03+3, MY005+10);
SetTextStyle(0, 0, 2); SetColor(14);
SetTextStyle(0, 0, 1); SetColor(12);
OutTextXY( ROUND(0.4 * MX), ROUND(0.1 * MY),
OutTextXY( ROUND(0.4 * MX), ROUND(0.2 * MY),
OutTextXY(ROUND(0.4*MX),ROUND(0.5*MY), 'Y=Th(X)/Sqrt(x*x+z*z)+x*x');
OutTextXY( ROUND(0.4 * MX), ROUND(0.4 * MY), 'Graphik function');
1.4 Результаты ручного счёта при z = 0:
при х = 0 Y=th(x) / - x 2 = нет корней;
Результаты машинного счёта соответствуют графику(см. рис. 2).
2. Программирование операций над матрицами
2.1 Составить алгоритм и программу операций над матрицами:
2.2 На языке Паскаль для описания массива используют оператор Array 1 . Например, запись Var A: Array [1..50] of Real указывает на то, что переменная А представляет массив, состоящий из 50 элементов вещественного типа. Запись Var C: Array [1..Imax,1..Ymax] of Integer характеризует переменную С, представляющую матрицу, состоящую из М строк и N столбцов, причём М = Imax и N = Ymax. Каждый элемент матрицы целочисленного типа (Integer).Ввод элементов осуществляется с помощью операторов Read и операторов цикла For. Вывод элементов массива производят операторами - Write, Writeln, For. Блок-схему к программе см. на стр.10-16.
write('Vvedite element [',i,',',j,'] matricu A: A[',i,',',j,']= ');
write('Vvedite element [',i,',',j,'] matricu B: B[',i,',',j,']= ');
write('Vvedite element [',i,',',j,'] matricu C: C[',i,',',j,']= ');
2.4 Результаты ручного и машинного счёта:
3. Программирование нелинейных уравнений.
3.1 Найти значение корней нелинейного уравнения Y = 3(X - 1) 4 - 3(X - 1) 2 , по методу половинного деления. Оформить графически.
3.2 Суть метода половинного деления 1 заключается в том, что приближённое значение корня на каком-либо отрезке может быть найдено исходя из физических соображений. После нахождения приближённого значения корня или отрезка, на котором находится этот корень, последовательно, шаг за шагом, уточняют значение корня. Составим блок-схему к программе(см.рис.3).
3.3 Программа вычисления нелинейного уравнения:
Fb:= 3*Sqr(b-1)*Sqr(b-1)-3*Sqr(b-1);
Fn:= (3*Sqr(n-1)*Sqr(n-1)) - 3*Sqr(n-1);
WRITELN('OSHIBKA!!!', #10#13,GRAPHERRORMSG(ERROR) ); HALT;
MX := GetMaxX; MX03 := ROUND (0.3 * MX);
MY := GetMaxY; MY09 := ROUND (0.9 * MY);
Line(MX03, MY005, MX03-3, MY005+10);
Line(MX03, MY005, MX03+3, MY005+10);
Y := 3*Sqr(x-1)*Sqr(x-1)-3*Sqr(x-1);
Y := 3*Sqr(x-1)*Sqr(x-1)-3*Sqr(x-1);
OutTextXY( ROUND(0.4 * MX), ROUND(0.1 * MY),
OutTextXY( ROUND(0.4 * MX), ROUND(0.2 * MY),
OutTextXY( ROUND(0.4 * MX), ROUND(0.4 * MY), 'Graphik Lin. uravneniay');
3.4 Результаты ручного и машинного счёта:
Результаты машинного счёта соответствуют графику (см. рис.4).
4. Программирование численного интегрирования
4.1 Составить алгоритм и программу вычисления определённого интеграла:
Число разбиения каждого интервала принять равным 10. Построить график.
4.2 Найдём интеграл методом прямоугольников 1 . Составим блок-схему к программе (см. рис. 5)
4.3 Программа вычисления определённого интеграла:
WRITELN('OSHIBKA!!!', #10#13,GRAPHERRORMSG(ERROR) ); HALT;
MX := GetMaxX; MX03 := ROUND (0.3 * MX);
MY := GetMaxY; MY09 := ROUND (0.9 * MY);
Line(MX03, MY005, MX03-3, MY005+10);
Line(MX03, MY005, MX03+3, MY005+10);
OutTextXY( ROUND(0.4 * MX), ROUND(0.1 * MY),
OutTextXY( ROUND(0.4 * MX), ROUND(0.2 * MY),
OutTextXY( ROUND(0.5 * MX), ROUND(0.4 * MY), 'Graphik Integrala');
4.4 Результаты ручного и машинного счёта:
S = 15.281, что соответствует графику (см. рис.6).
относительная погрешность составляет 1.3%.
паскаль программирование функция уравнение
5. Программирование задач оптимизации
5.1 Составить алгоритм и программу для вычисления наибольшего и наименьшего значений функции y = 3(x - 1) 4 - 3(x - 1) 2 , на интервале [a,b] = [0;2.5] .
5.2 Решаем задачу оптимизации методом перебора 1 , при котором при нахождении наибольшего значения функции у перед циклом задают в качестве наибольшего значения заведомо малую величину ?, а внутри цикла находят текущее значение у при следующих условиях:
При нахождении минимальной величины функции за начальное значение принимают заведомо большую величину, с которой сравнивают значение у с использованием условий:
Составим блок-схему к программе (см. рис. 7).
5.3 Программа вычисления наибольшего и наименьшего значения функции:
Ymax := 3*Sqr(c-1)*Sqr(c-1)-3*Sqr(c-1);
Ymin := 3*Sqr(b-1)*Sqr(b-1)-3*Sqr(b-1);
Z := 3*Sqr(N-1)*Sqr(N-1)-3*Sqr(N-1);
Z := 3*Sqr(N-1)*Sqr(N-1)-3*Sqr(N-1);
WRITELN('OSHIBKA!!!', #10#13,GRAPHERRORMSG(ERROR) ); HALT;
MX := GetMaxX; MX03 := ROUND (0.3 * MX);
MY := GetMaxY; MY09 := ROUND (0.9 * MY);
Line(MX03, MY005, MX03-3, MY005+10);
Line(MX03, MY005, MX03+3, MY005+10);
Y := 3*( Sqr(x-1) * Sqr(x-1) ) - 3*Sqr(x-1);
OutTextXY( ROUND(0.4 * MX), ROUND(0.1 * MY),
OutTextXY( ROUND(0.4 * MX), ROUND(0.2 * MY),
OutTextXY( ROUND(0.4 * MX), ROUND(0.4 * MY), 'Graphik Optimizacii');
5.4 Результаты ручного и машинного счёта:
Машинный счёт: Y max = 8.43; Y min = - 0.750
Машинный счёт соответствует графику (см. рис.8).
На графике функции видно, что Y max = 8.43; Y min = - 0.75, что соответствует машинному счёту.
6. Программирование дифференциального уравнения
6.1 Составить алгоритм и программу решения дифференциального уравнения y' = | (1-x)М(1-2x)М(1-3x) | .
6.2 Решение проводим по методу Эйлера 1 . Первообразную функцию в каждой точке определяем по формулам
Блок-схема к программе показана на рис.9.
6.3 Программа решения дифференциального уравнения:
5: Fc := Fc + h*Abs((1-c)*(1-2*c)*(1-3*c));
writeln('c = ',c:5:3,' ':3,'Fc = ',Fc:5:3);
WRITELN('OSHIBKA!!!', #10#13,GRAPHERRORMSG(ERROR) ); HALT; END;
MX := GetMaxX; MX03 := ROUND (0.3 * MX);
MY := GetMaxY; MY09 := ROUND (0.9 * MY);
Line(MX03, MY005, MX03-3, MY005+10);
Line(MX03, MY005, MX03+3, MY005+10);
Y := Y + h*Abs((1-x)*(1-2*x)*(1-3*x));
OutTextXY( ROUND(0.4 * MX), ROUND(0.1 * MY),
OutTextXY( ROUND(0.4 * MX), ROUND(0.2 * MY),
OutTextXY( ROUND(0.4 * MX), ROUND(0.4 * MY), 'Graphik Dif. ravneniay');
6.4 Результаты ручного и машинного счёта:
x 0 = 0; y 0 = 1; x k = 3; h = 0.5;
с1 = 0; у1 = 1.5; с1 = 0; у1 = 1.5;
с2 = 0.5; у2 = 1.5; с2 = 0.5; у2 = 1.5;
с3 = 1.0; у3 = 1.5; с3 = 1.0; у3 = 1.5;
с4 = 1.5; у4 = 3.2; с4 = 1.5; у4 = 3.2;
с5 = 2.0; у5 = 10.75; с5 = 2.0; у5 = 10.75;
Результаты машинного счёта соответствуют графику (см. рис.10).
6.5 Вывод: относительная погрешность составляет 0%.
writeln('A0= ',A0:4:2, ' A1= ',A1:4:2);
WRITELN('OSHIBKA!!!', #10#13,GRAPHERRORMSG(ERROR) ); HALT;
MX := GetMaxX; MX03 := ROUND (0.3 * MX);
MY := GetMaxY; MY09 := ROUND (0.7 * MY);
Line(MX03, MY005, MX03-3, MY005+10);
Line(MX03, MY005, MX03+3, MY005+10);
OutTextXY( ROUND(0.4 * MX), ROUND(0.1 * MY),
OutTextXY( ROUND(0.4 * MX), ROUND(0.2 * MY),
OutTextXY( ROUND(0.5 * MX), ROUND(0.4 * MY), 'Graphik Aproksimacii');
Подставляем значения х и у из таблицы 7.1. (см. стр.41).
График аппроксимирующей функции представлен на рис.12.
Сравнивая значения машинного и ручного счёта, мы видим точное совпадение чисел.
В широком смысле под информатикой понимается фундаментальная естественная наука, изучающая процессы сбора, накопления, передачи и обработки информации. В конкретном случае информатика предназначена для автоматизации решения многих инженерных проектных и расчетных задач. Она является одной из базовых дисциплин, необходимых для изучения дисциплины «САПР технологических процессов, инструментов и станков». В ней рассматриваются принципы разработки математических моделей (в том числе трудно формализуемых задач), алгоритмов и программ, а также вопросы построения некоторых вычислительных систем.
1. Карев Е.А. Информатика: Учебное пособие. - Ульяновск: УлГТУ, 2006. - 104с.
2. Карев Е.А. Технологическая информатика. - Ульяновск: УлГТУ, 2006. - 52 с.
3. Климова Л.М. Практическое программирование. Решение типовых задач. - Москва, 2008. - 526с.
Логические конструкции в системе программирования Паскаль. Команды языка программирования, использование функций, процедур. Постановка и решение задач механики в среде системы Паскаль. Задачи статики, кинематики, динамики решаемые с помощью языка Паскаль. курсовая работа [290,9 K], добавлен 05.12.2008
Использование нестандартных функций и подпрограмм (процедур) для составления алгоритмов вычислений. Программы для вычисления значение корней нелинейного уравнения по методу половинного деления. Составление алгоритма операций над матрицами и интегралами. курсовая работа [580,0 K], добавлен 23.08.2015
Принципы разработки математических моделей, алгоритмов и программ. Составление программы вычисления функции с использованием нестандартных функций. Нахождение значения корней нелинейного уравнения по методу касательных. Программа для вычисления интеграла. курсовая работа [568,3 K], добавлен 07.03.2015
Разработка с использованием приложения Mathcad алгоритма и программы решения нелинейного уравнения методами касательных, половинного деления и хорд. Решение с помощью ее заданных нелинейных уравнений. Создание графической иллюстрации полученных решений. курсовая работа [665,7 K], добавлен 22.08.2013
Основные сведения о системе программирования Турбо Паскаль. Структура программы на Паскале и ее компоненты. Особенности и элементы языка Турбо Паскаль. Порядок выполнения операций в арифметическом выражении, стандартные функции и оператор присваивания. лекция [55,7 K], добавлен 21.05.2009
Математическое описание, алгоритм и программа вычисления нелинейного уравнения методом дихотомии. Метод половинного деления. Метод поиска корней функции. Написание текста программы с комментариями. Проведение тестовых расчетов. Вывод ответа на экран. курсовая работа [67,2 K], добавлен 15.02.2016
Метод численного интегрирования. Использование метода половинного деления для решения нелинейного уравнения. Определение отрезка неопределенности для метода половинного деления. Получение формулы Симпсона. Уменьшение шага интегрирования и погрешности. курсовая работа [3,0 M], добавлен 21.05.2013
Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д. PPT, PPTX и PDF-файлы представлены только в архивах. Рекомендуем скачать работу .

© 2000 — 2021



Основные задачи программирования с помощью языка Паскаль курсовая работа. Программирование, компьютеры и кибернетика.
Курсовая работа по теме Российская Академия художеств как научный и методический центр художественного образования
Реферат На Тему Здоровый Образ Жизни Вред Алкоголя
Курсовая работа по теме Форми і методи перевірки знань, умінь і навичок молодших школярів
Книги Классика Собрание Сочинений
Работа Банка С Ценными Бумагами Реферат
Реферат: Масонство в Україні у ХVIII ст
Ремарк Собрание Сочинений Торрент
Контрольная работа по теме Правовое положение и организационное построение ОВД
Отчет по практике по теме Исследование маркетинговой деятельности АО 'КЗИ банк Казахстан'
Контрольная работа: Понятие и содержание внешнеторгового договора
Реферат: Artificial Sweeteners Essay Research Paper Artificial sweeteners
Реферат: Аналитика и полезная информация. Скачать бесплатно и без регистрации
Тригонометрическая Форма Комплексного Числа Реферат
Сочинение Про Полевые Цветы
Сочинение По Капитанской Дочке 8 Класс
Курсовая Работа Медицинское Страхование В Рб
Картина Серова Мика Морозов Сочинение 4
Сочинение На Тему Первый Раз В Театре
Реферат: Гражданско- правовое представительство
Курсовая работа по теме Предметная область "тестирование"
Каторга и ссылка в России в XIX-начале XX в. - История и исторические личности реферат
Ряды Фурье. Интеграл Фурье. Операционное исчисление - Математика учебное пособие
Давньогрецька цивілізація - История и исторические личности дипломная работа