Курсовая работа: Turbo Pascal
🛑 👉🏻👉🏻👉🏻 ИНФОРМАЦИЯ ДОСТУПНА ЗДЕСЬ ЖМИТЕ 👈🏻👈🏻👈🏻
Кафедра Вычислительной и Прикладной математики
«Алгоритмические языки и программирование»
1. Анализ задания и математическая постановка задачи.
2. Разработка схемы алгоритма и её описание.
3. Инструкция по использованию разработанной программы.
4. Проверка правильности функционирования программы.
РЯЗАНСКАЯ РАДИОТЕХНИЧЕСКАЯ АКАДЕМИЯ
КАФЕДРА ВЫЧИСЛИТЕЛЬНОЙ И ПРИКЛАДНОЙ МАТЕМАТИКИ
«Алгоритмические языки и программирование»
Студенту Хамидулину А.Р. группы 041.
Задание 1. Составить программу вычисления матрицы P=f(A,B,C)
f(A,B,C) – матричное выражение. A,B,C – исходные матрицы,
Размер и значение элементов, которых набираются произвольно.
Сформировать вектор из средних арифметических значений элементов столбцов.
Задание 2. Составить программу вычисления определённого интеграла с погрешностью, не превышающей заданную величину ε. Для проверки программы интегрирования вычислить определённый интеграл с заданной точностью.
Интеграл вычислить с помощью формулы прямоугольников.
Современные средства вычислительной техники и ЭВМ позволяют существенным образом повысить эффективность деятельности инженеров при решении различных задач. При этом наиболее существенным вопросом является организация взаимодействия пользователя со средствами ЭВМ. В настоящей курсовой работе для этих целей использовался диалоговый режим, что позволило существенным образом упростить процесс отладки и работы с программой. В качестве языка программирования выбран изучаемый на занятиях по дисциплине «Алгоритмические языки и программирование» язык программирования «Паскаль». К достоинствам языка следует отнести такие его характеристики, как модульность, универсальность, удобство работы с массивами и т. д.
1. Анализ задания и математическая постановка задачи
При решении поставленной задачи необходимо выполнить следующие действия:
1. Ввести значения элементов матриц A, B, C.
2. Напечатать значения элементов исходных матриц.
3. Провести транспонирование матрицы B, т. е. вычислить матрицу U=B T
.
4. Умножить матрицу В Т
на 2, т. е. вычислить матрицу U=2*В Т
.
5. Сложить матрицы A и 2*В Т
, т. е. вычислить матрицу U=A+2*В Т
.
6. Умножить матрицы С и (A+2*B Т
), т. е. вычислить матрицу
8. Сформировать вектор VECT из средних арифметических значений элементов столбцов.
Печать целесообразно реализовать с помощью подпрограммы (процедуры общего вида). Пункты 1-8 целесообразно также оформить в виде подпрограмм.
Матрицей будем называть таблицу чисел:
Если m=n, то матрица называется квадратной, n-порядок.
Произведением 2-х прямоугольных матриц
у которой элемент Сij, стоящий на пересечении i-ой строки и j-ого столбца, равен сумме произведений соответствующих элементов i-ой строки первой матрицы А и j-того столбца 2-ой матрицы В.
Суммой 2-х прямоугольных матриц А=(а i
j
) и В=(в i
j
) одинаковых размеров (m х n) называется матрица С=(с i
j
) тех же размеров, элементы которой равны суммам cответствующих элементов данной матрицы.
2.Разработка схемы алгоритма и её описание
По результатам анализа задания можно составить укрупненную схему алгоритма последовательной структуры:
3) Подпрограмма транспонирования матриц
5) Подпрограмма умножения матрицы на число
7) Подпрограмма формирования вектора из средних арифметических значений элементов столбцов.
3. Инструкция по использованию разработанной программы
a(10,10), b(10,10), c(10,10), u(10,10),
4. Проверка правильности функционирования программы.
Программа выводит для контроля входные данные:
В процессе получения результирующей матрицы реализованы следующие действия с массивами:
-транспонирование квадратных матриц произвольной размерности;
-умножение квадратных матриц произвольной размерности;
-сложение квадратных матриц произвольной размерности;
-умножение на число квадратных матриц произвольной размерности;
Все указанные действия реализованы с помощью подпрограмм. Ввод и вывод матриц также реализован в подпрограммах.
Модуль KursUn,содержащий описанные подпрограммы.
UnitKursUn; {*** Начало модуля KursUn ***}
interface {*** Интерфейсная секция ***}
matrix= array [1..10,1..10] of real;
procedure outputmat (n:word; a:matrix; m:char);
procedure inputm (n:word; var a:matrix;m:char);
procedure sred_arifm (n:word; a:matrix;var z:vector);
procedure transpm (n:word; a:matrix; var c:matrix);
procedure sum_m (n:word; a,b:matrix; var c:matrix);
procedure multm (n:word; a,b:matrix; var c:matrix);
procedure multconstm (n:word; r:real; a:matrix;var c:matrix);
implementation {*** ИСПОЛНЯЕМАЯЧАСТЬ ***}
{***************************************************************************}
writeln(' Введите матрицу ',m,' размером ',n,'*',n);
{***************************************************************************}
{***************************************************************************}
{*** процедура транспонирования матрицы ***}
{***************************************************************************}
{*** процедура умножения матрицы на число ***}
{***************************************************************************}
{*** процедура суммирования матриц ***}
{***************************************************************************}
{***************************************************************************}
{*** процедура формирования вектора из средних ***}
{*** арифметических значений элементов столбцов ***}
{***************************************************************************}
writeln(' ╔═══════════════════════════════════════════════════════════════╗');
writeln(' ║ Этапрограммавычисляетматричноевыражение║');
writeln(' ╚═══════════════════════════════════════════════════════════════╝');
write(' Введите размерности матриц: '); readln(n);
if n=0 then {*** проверка размерности матрицы ***}
writeln(' Такая размерность не допустима!!!');
inputm(n,a,'A'); {*** вводматрицы A ***}
inputm(n,b,'B'); {*** вводматрицы B ***}
inputm(n,c,'C'); {*** вводматрицы C ***}
transpm(n,b,u); {*** транспонирование матрицы B. ***}
multconstm(n,2,u,u); {*** умножения матрицы на 2. ***}
sum_m(n,a,u,u); {*** суммирование матриц A+2*BT. ***} multm(n,c,u,u); {*** умножение матриц С и (A+2*BT). ***}
writeln(' ****************** Исходные значения ********************');
outputmat(n, a, 'A'); {*** вывод матрицы A***}
outputmat(n, b, 'B'); {*** вывод матрицы B***}
outputmat(n, c, 'C'); {*** вывод матрицы C***}
writeln(' ***** Для продолжения нажмите любую клавишу *****');
outputmat(n, u, 'U'); {*** вывод результата: матрицы U ***}
writeln(' ***** Для продолжения нажмите любую клавишу *****');
writeln(' *******************************************************');
writeln(' * Вектор из средних арифметических значений элементов *');
writeln(' * столбцов результирующей матрицы. *');
writeln(' *******************************************************');
1. Анализ задания и математическая постановка задачи
При решении поставленной задачи необходимо выполнить следующие действия:
2. Нахождение значения определённого интеграла с использованием метода прямоугольников.
При численном интегрировании вместо кривой подынтегральной функции используют заменяющие (аппроксимирующие) её кривые или ломаные линии, для которых вычисление ограниченной ими площади производится в соответствии с достаточно несложными формулами.
Принцип метода прямоугольников состоит в том, что исходный отрезок разбивается на достаточно малые части:
a= x 1
< x 2
< x 3
<…< x n-1
< x n
=b; h= x k
-x k-1
;
площадь каждой такой части (прямоугольника): S k
=h*f(x k
);
соответственно площадь всей фигуры, образованной из n-1 таких прямоугольников: S= S 1
+S 2
+…+ S n-2
+ S n-1
.Величина S является приближённым значением определённого интеграла, она приближается к истинному значению при увеличении числа n.
Погрешность данного метода определяется абсолютным значением разности приближённых значений определённого интеграла при различных n. Если эта разность меньше требуемой погрешности, то необходимая точность достигнута, и дальнейшее увеличение n не требуется.
2. Разработка схемы алгоритма и её описание
По результатам анализа задания можно составить укрупненную схему алгоритма последовательной структуры:
Инструкция по использованию разработанной программы
4. Проверка правильности функционирования программы.
Введём определённые ранее исходные данные.
При c=1,90 и d=3,00 значение определённого интеграла
Количество разбиений отрезка [1,00;2,00]: 4000
При c=2,05 и d=3,05 значение определённого интеграла
Количество разбиений отрезка [1,00;2,00]: 4000
При c=2,20 и d=3,10 значение определённого интеграла
Количество разбиений отрезка [0,00;2,00]: 4000
Для проверки программы интегрирования вычислим определённый интеграл с заданной точностью.
writeln(' ╔═══════════════════════════════════════════════════════════════╗');
writeln(' ║ Этапрограммавычисляетопределённыйинтегралотфункции║');
writeln(' ║ f(x)= ------------- ║');
writeln(' ║ наотрезке [a,b] спогрешностью e. ║');
writeln(' ╚═══════════════════════════════════════════════════════════════╝');
write(' Введителевуюграницуинтервала: '); readln(a);
write(' Введите правую границу интервала: '); readln(b);
write(' Введите погрешность вычислений: '); readln(e);
writeln(' *****************************************');
write(' Введите значения c: '); read(c);
write(' Введите значения d: '); read(d);
writeln(' **** Сработала защита от зацикливания ****');
writeln('*******************************************************************');
writeln('При с=',c:3:2,'и d=',d:3:2,'значение определённого интеграла',y2:5:3);
writeln(' с точностью до ',e:6:5 );
writeln(' Количество разбиений отрезка [',a:3:2,';',b:3:2,']: ',n div 2 );
writeln('*******************************************************************');
1. Методические указания по выполнению курсовой работы «Алгоритмические языки и программирование»
2. Методические указания «Модульное программирование на Турбо Паскале» №3037,В.С.Новичков, Н. И. Парфилова, А. Н. Пылькин, Рязань: РГРТА, 2000.
3. «Программирование на языке ПАСКАЛЬ», Г. Л. Семашко, А. И. Салтыков, Москва «Наука», 1988.
4. «Программирование на языке ПАСКАЛЬ», О. Н. Перминов, «Радио и связь», 1988.
Название: Turbo Pascal
Раздел: Рефераты по информатике
Тип: курсовая работа
Добавлен 20:00:27 10 декабря 2010 Похожие работы
Просмотров: 43
Комментариев: 18
Оценило: 2 человек
Средний балл: 5
Оценка: неизвестно Скачать
Матрицы, используемые в подпрограммах
Переменная, используемая в подпрограмме
Переменная, используемая в подпрограмме
Значения определённого интеграла при числах разбиений n и 2*n
Шаг интегрирования (определяется по формуле h=(b-a)/n)
Срочная помощь учащимся в написании различных работ. Бесплатные корректировки! Круглосуточная поддержка! Узнай стоимость твоей работы на сайте 64362.ru
Привет студентам) если возникают трудности с любой работой (от реферата и контрольных до диплома), можете обратиться на FAST-REFERAT.RU , я там обычно заказываю, все качественно и в срок) в любом случае попробуйте, за спрос денег не берут)
Да, но только в случае крайней необходимости.
Курсовая работа: Turbo Pascal
Сочинение Описание Внешности Дубровского Младшего
Учебное пособие: Методические указания По дисциплине «Логистика» По специальности 080502 Экономика и управление на предприятиях полиграфической промышленности
Реферат: Селинджер. Девять рассказов
Реферат по теме Лабораторные работы по Теории вычислительных процессов и структур
Контрольная Работа На Тему Нормування І Контроль У Галузі Охорони Праці. Предмет "Охорона Праці" І Його Місце Серед Інших Наук
Дипломная работа по теме Механизм и динамика развития производственных отношений
Курсовая работа: Психология межгрупповых отношений: границы группы, чувство "мы", групповой фаворитизм
Дипломная работа по теме Производство азотной кислоты под повышенным давлением
Реферат по теме Restoration of Russian Icon
Эссе По Фильму Судьба Человека
Апокриновые Потовые Железы Реферат
Социальное Обслуживание Реферат
Реферат по теме Зовнішня торгівля головних центрів економічної сили: США, ЄС, Японії
Курсовая работа по теме Применение катализа для защиты окружающей среды
Реферат: Рынок кредитных и платежных карточек и направления его равития
Эссе На Тему Достижения Эпохи Ренессанса
План График Выполнения Курсовой Работы
Статья На Тему Послание Архангела Адоная
Реферат На Тему Лептоспироз
Сочинение На Тему Воспитывать
Сочинение: Борис Леонидович Пастернак
Реферат: Права военнослужащих
Контрольная работа: Анализ вопросов по уголовному праву Российской Федерации