Разработка алгоритма и написание программы на языке Turbo Pascal

Автор работы: Пользователь скрыл имя, 12 Октября 2014 в 22:06, курсовая работа

Краткое описание

Разработать алгоритм и написать программу на языке Turbo Pascal.
Задана матрица (двумерный массив) A размером N x М, состоящая из действительных элементов. Числа M и N вводятся с клавиатуры. Для задания исходной матрицы предусмотреть ввод с клавиатуры или ввод с помощью датчика случайных чисел. Где это необходимо ввести квадратную матрицу. Во всех вариантах вывести исходную матрицу в общепринятом виде и необходимые результаты работы программы.
Сформировать вектор из произведения элементов столбцов и найти их среднее арифметическое. Упорядочить вектор по не возрастанию. Вывести на экран упорядоченный и неупорядоченный векторы, среднее арифметическое.
 

Содержание

Задание №1 4
Задание №2 11
Задание №3 18
Задание №4 22
Задание №5 37
Список литературы 47
 

Скачать в ZIP архиве (1.58 Мб) Сколько стоит заказать работу?
Вложенные файлы: 1 файл

Готовая курсовая.docx

— 1.65 Мб (Скачать файл)

 

 

 

Таблица 3 – Фильтр. Десять фирм, имеющих минимальные итоговые начисления.

Продолжение таблицы 3 – Фильтр. Десять фирм, имеющих минимальные итоговые начисления.

 

Диаграмма, отображающую долю каждого должника в общей сумме долга на конец месяца..

 

 

По диаграмме видно, что самая большая доля долга у фирмы ООО «нива» – 207038,20 рублей, а у фирмы альянс доля долга самая маленькая – 39072,60 рублей.

 

 

Задание №3

Вычислить значение функции и начертить их графики в Excel в одной системе координат:

 с шагом 0,1 .

 

Выполнение задачи в Excel.

 

х

f(x)

-2

4,971875

-1,9

4,875094

-1,8

4,702325

-1,7

4,448974

-1,6

4,113388

-1,5

3,697036

-1,4

3,204576

-1,3

2,643782

-1,2

2,025356

-1,1

1,362618

-1

0,671084

-0,9

-0,03204

-0,8

-0,72843

-0,7

-1,3993

-0,6

-2,02606

-0,5

-2,59093

-0,4

-3,07766

-0,3

-3,47202

-0,2

-3,76239

-0,1

-3,94015

0

-4

0,1

9,924213

0,2

9,998

0,3

10,11978

0,4

10,28786

0,5

10,5

0,6

10,7536

0,7

11,04581

0,8

11,37365

0,9

11,73414

1

12,12436

1,1

12,54153

1,2

12,98307

1,3

13,44656

1,4

13,92982

1,5

14,43087

1,6

14,94791

1,7

15,47934

1,8

16,02373

1,9

16,57981

2

17,14643


 

 

В формульном виде

х

f(x)

-2

=ЕСЛИ(A2<=0;4*SIN(A2)^2-4*COS(A2);7*КОРЕНЬ(2+A2^2))

=A2+0,1

=ЕСЛИ(A3<=0;4*SIN(A3)^2-4*COS(A3);7*КОРЕНЬ(2+A3^2))

=A3+0,1

=ЕСЛИ(A4<=0;4*SIN(A4)^2-4*COS(A4);7*КОРЕНЬ(2+A4^2))

=A4+0,1

=ЕСЛИ(A5<=0;4*SIN(A5)^2-4*COS(A5);7*КОРЕНЬ(2+A5^2))

=A5+0,1

=ЕСЛИ(A6<=0;4*SIN(A6)^2-4*COS(A6);7*КОРЕНЬ(2+A6^2))

=A6+0,1

=ЕСЛИ(A7<=0;4*SIN(A7)^2-4*COS(A7);7*КОРЕНЬ(2+A7^2))

=A7+0,1

=ЕСЛИ(A8<=0;4*SIN(A8)^2-4*COS(A8);7*КОРЕНЬ(2+A8^2))

=A8+0,1

=ЕСЛИ(A9<=0;4*SIN(A9)^2-4*COS(A9);7*КОРЕНЬ(2+A9^2))

=A9+0,1

=ЕСЛИ(A10<=0;4*SIN(A10)^2-4*COS(A10);7*КОРЕНЬ(2+A10^2))

=A10+0,1

=ЕСЛИ(A11<=0;4*SIN(A11)^2-4*COS(A11);7*КОРЕНЬ(2+A11^2))

=A11+0,1

=ЕСЛИ(A12<=0;4*SIN(A12)^2-4*COS(A12);7*КОРЕНЬ(2+A12^2))

=A12+0,1

=ЕСЛИ(A13<=0;4*SIN(A13)^2-4*COS(A13);7*КОРЕНЬ(2+A13^2))

=A13+0,1

=ЕСЛИ(A14<=0;4*SIN(A14)^2-4*COS(A14);7*КОРЕНЬ(2+A14^2))

=A14+0,1

=ЕСЛИ(A15<=0;4*SIN(A15)^2-4*COS(A15);7*КОРЕНЬ(2+A15^2))

=A15+0,1

=ЕСЛИ(A16<=0;4*SIN(A16)^2-4*COS(A16);7*КОРЕНЬ(2+A16^2))

=A16+0,1

=ЕСЛИ(A17<=0;4*SIN(A17)^2-4*COS(A17);7*КОРЕНЬ(2+A17^2))

=A17+0,1

=ЕСЛИ(A18<=0;4*SIN(A18)^2-4*COS(A18);7*КОРЕНЬ(2+A18^2))

=A18+0,1

=ЕСЛИ(A19<=0;4*SIN(A19)^2-4*COS(A19);7*КОРЕНЬ(2+A19^2))

=A19+0,1

=ЕСЛИ(A20<=0;4*SIN(A20)^2-4*COS(A20);7*КОРЕНЬ(2+A20^2))

=A20+0,1

=ЕСЛИ(A21<=0;4*SIN(A21)^2-4*COS(A21);7*КОРЕНЬ(2+A21^2))

0

=ЕСЛИ(A22<=0;4*SIN(A22)^2-4*COS(A22);7*КОРЕНЬ(2+A22^2))

=A22+0,1

=ЕСЛИ(A23<=0;4*SIN(A23)^2-4*COS(A23);7*КОРЕНЬ(2+A23^2))

=A23+0,1

=ЕСЛИ(A24<=0;4*SIN(A24)^2-4*COS(A24);7*КОРЕНЬ(2+A24^2))

=A24+0,1

=ЕСЛИ(A25<=0;4*SIN(A25)^2-4*COS(A25);7*КОРЕНЬ(2+A25^2))

=A25+0,1

=ЕСЛИ(A26<=0;4*SIN(A26)^2-4*COS(A26);7*КОРЕНЬ(2+A26^2))

=A26+0,1

=ЕСЛИ(A27<=0;4*SIN(A27)^2-4*COS(A27);7*КОРЕНЬ(2+A27^2))

=A27+0,1

=ЕСЛИ(A28<=0;4*SIN(A28)^2-4*COS(A28);7*КОРЕНЬ(2+A28^2))

=A28+0,1

=ЕСЛИ(A29<=0;4*SIN(A29)^2-4*COS(A29);7*КОРЕНЬ(2+A29^2))

=A29+0,1

=ЕСЛИ(A30<=0;4*SIN(A30)^2-4*COS(A30);7*КОРЕНЬ(2+A30^2))

=A30+0,1

=ЕСЛИ(A31<=0;4*SIN(A31)^2-4*COS(A31);7*КОРЕНЬ(2+A31^2))

=A31+0,1

=ЕСЛИ(A32<=0;4*SIN(A32)^2-4*COS(A32);7*КОРЕНЬ(2+A32^2))

=A32+0,1

=ЕСЛИ(A33<=0;4*SIN(A33)^2-4*COS(A33);7*КОРЕНЬ(2+A33^2))

=A33+0,1

=ЕСЛИ(A34<=0;4*SIN(A34)^2-4*COS(A34);7*КОРЕНЬ(2+A34^2))

=A34+0,1

=ЕСЛИ(A35<=0;4*SIN(A35)^2-4*COS(A35);7*КОРЕНЬ(2+A35^2))

=A35+0,1

=ЕСЛИ(A36<=0;4*SIN(A36)^2-4*COS(A36);7*КОРЕНЬ(2+A36^2))

=A36+0,1

=ЕСЛИ(A37<=0;4*SIN(A37)^2-4*COS(A37);7*КОРЕНЬ(2+A37^2))

=A37+0,1

=ЕСЛИ(A38<=0;4*SIN(A38)^2-4*COS(A38);7*КОРЕНЬ(2+A38^2))

=A38+0,1

=ЕСЛИ(A39<=0;4*SIN(A39)^2-4*COS(A39);7*КОРЕНЬ(2+A39^2))

=A39+0,1

=ЕСЛИ(A40<=0;4*SIN(A40)^2-4*COS(A40);7*КОРЕНЬ(2+A40^2))

=A40+0,1

=ЕСЛИ(A41<=0;4*SIN(A41)^2-4*COS(A41);7*КОРЕНЬ(2+A41^2))

=A41+0,1

=ЕСЛИ(A42<=0;4*SIN(A42)^2-4*COS(A42);7*КОРЕНЬ(2+A42^2))


 

 

 

График функции  f(x)

 

Задание №4

 

Составить двухтабличную БД и обработать данные в ней посредством выборки и сортировки; создать запросы и отчеты.

1. Сформировать структуры  таблиц, необходимых для выполнения  заданной БД, определить ключевые  поля. Обосновать этот выбор.

2. Создать схему данных. Ввести в таблицы от 10 до 20 записей.

3. Сформулировать и выполнить  запрос по критериям, заданным  в варианте задания. Сформулировать  и выполнить запрос с вычисляемым  полем (данные для этого запроса  задать самостоятельно). Результаты  всех запросов сохранить. Запросы  выполняются по двум связанным  таблицам. Поля для запроса выбираются  исходя из особенностей и требований  конкретной БД.

4. Создать не менее 3-х  запросов с использованием языка  SQL.

5. Произвести сортировку  записей в соответствии с вариантом. Сортировка выполняется для таблиц, содержащих результаты запроса.

6. Составить отчет в  соответствии с вариантом. Создаваемый  отчет, исходя из особенностей  конкретной БД, обязательно должен  удовлетворять следующим требованиям:

- составляться по двум  связанным таблицам;

- иметь итоговые значения  по группам и по отчету в  целом;

- при выборке полей, используемых  для группировки и подведения  итогов, руководствоваться логикой их содержания.

Тема для составления БД: Факультет - кафедры.

В университете имеется несколько факультетов. К характеристикам факультета относятся: ·название факультета,  декан, количество студентов, год основания, количество кафедр и т.д. О кафедрах известно: название кафедры, зав. кафедрой, количество преподавательского состава, год основания, и т.п. Критерий для запросов – выборок: с логическим ИЛИ, связывающими два значения одного числового поля; сортировка данных по убыванию в числовом поле; виды итогов: сумма.

 

 

        Таблица – «Факультет»

Факультет

Код факультета

Название факультета

Декан

Количество студентов

Количество кафедр

1

Финансово-экономический

Злобин Е.Ф.

1243

7

2

Юридический

Астафичев П.А.

1543

5

3

Гуманитарный

Киричек А.В.

1567

5

4

Учебно-научно-исследовательский

Константинов И.С.

1289

3

5

Естественно-научный

Матюхин С.И

1072

5

6

Пищевой биотехнологии и товароведения

Зомитева Г.М.

1209

3

7

Институт транспорта

Севостьнов А.Л.

908

2

8

Архитектурно-строительный

Колчунов В.И.

1342

5

9

Физической культуры и спорта

Бойко В.А.

700

2

10

Новых технологий и автоматизации

Пилипенко О.В.

600

6


 

Ключевое поле – Код факультета, так как поле не повторяется.

 

Таблица – «Кафедра»

Кафедра

  

Код кафедры

Название кафедры

зав кафедры

год основания

Код

факультета

1

Государственное управление и финансы

Уварова А.Я.

1993

1

2

Бухгалтерский учёт и налогообложение

Попова Л.В.

2000

1

3

Теория и история государства и права

Сизов В.Е.

1995

2

4

Уголовное право и процесс

Назаренко Г.В.

2008

2

5

Информационные системы

Константинов И.С.

1998

4

6

Приборостроение, метрология и сертификация

Подмастерьев К.В

1984

4

7

Философия и история

Аронов Д.В.

1966

3

8

Русский язык и педагогика

Бобыёв Б.Г.

2002

3

9

Динамика и прочность машин

Малинин В.Г.

2004

10

10

Теоретическая и прикладная механика

Ешутник Д.Н.

2004

10

11

Высшая математика

Гордон В.А.

1983

5

12

Химия

Куценко С.А.

1999

5

13

Подъёмно-транспортные, строительные идорожные машины

Ушаков Л.С.

1995

7

14

Сервис и ремонт машин

Андреев Г.П.

2001

7

15

Архитектура

Колесникова Т.Н.

2004

8

16

Городское строительство и хозяйство

Никулин А.И.

2004

8

17

Технология и товароведение продуктов питания

Иванова Т.Н.

1996

6

18

Технология и организация питания, гостиничного хозяйства и туризма

Артёмова Е.Н.

2002

6

19

Физическая культура

Котьков Н.Н.

1964

9

20

Туризм, рекреация и спорт

Макеева В.С.

2005

9


 

Ключевое поле – код факультета, так как поле не повторяется.

 

Схема данных

Схема данных выбрана таким образом, так как на одном факультете может быть несколько кафедр и никогда наоборот.

 

Запрос 1-Запрос на выборку:

Условие: год основания 1999 или 2002

Запрос 1-В режиме конструктора

 

 

 

 

 

Запрос 1-Режим SQL

SELECT Кафедра.[Название кафедры], Факультет.[Название факультета], Кафедра.[зав  кафедры], Кафедра.[год основания]

FROM Факультет INNER JOIN Кафедра ON Факультет.[Код факультета] = Кафедра.[Код  факультета]

WHERE (((Кафедра.[год основания])=1999 Or (Кафедра.[год основания])=2002));

 

 

 

 

 

 

Запрос 1-Результат

Запрос1

Название кафедры

Название факультета

зав кафедры

год основания

Русский язык и педагогика

Гуманитарный

Бобыёв Б.Г.

2002

Химия

Естественно-научный

Куценко С.А.

1999

Технология и организация питания, гостиничного хозяйства и туризма

Пищевой биотехнологии и товароведения

Артёмова Е.Н.

2002


 

 

Запрос 2 – отсортировать данные в поле количество студентов по убыванию

Запрос 2 – Режим конструктора

 

 

 

 

 

 

 

 

Запрос 2 - Режим SQL

SELECT Кафедра.[Название кафедры], Факультет.[Название факультета], Факультет.Декан, Факультет.[Количество студентов]

FROM Факультет INNER JOIN Кафедра ON Факультет.[Код факультета] = Кафедра.[Код  факультета]

WHERE (((Факультет.[Количество  студентов])>1000))

ORDER BY Факультет.[Количество  студентов] DESC;

 

Запрос 2 – Результат

Запрос2

Название кафедры

Название факультета

Декан

Количество студентов

Русский язык и педагогика

Гуманитарный

Киричек А.В.

1567

Философия и история

Гуманитарный

Киричек А.В.

1567

Уголовное право и процесс

Юридический

Астафичев П.А.

1543

Теория и история государства и права

Юридический

Астафичев П.А.

1543

Городское строительство и хозяйство

Архитектурно-строительный

Колчунов В.И.

1342

Архитектура

Архитектурно-строительный

Колчунов В.И.

1342

Приборостроение, метрология и сертификация

Учебно-научно-исследовательский

Константинов И.С.

1289

Информационные системы

Учебно-научно-исследовательский

Константинов И.С.

1289

Бухгалтерский учёт и налогообложение

Финансово-экономический

Злобин Е.Ф.

1243

Государственное управление и финансы

Финансово-экономический

Злобин Е.Ф.

1243

Технология и организация питания, гостиничного хозяйства и туризма

Пищевой биотехнологии и товароведения

Зомитева Г.М.

1209

Технология и товароведение продуктов питания

Пищевой биотехнологии и товароведения

Зомитева Г.М.

1209

Химия

Естественно-научный

Матюхин С.И

1072

Высшая математика

Естественно-научный

Матюхин С.И

1072

Информация о работе Разработка алгоритма и написание программы на языке Turbo Pascal