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

Автор работы: Пользователь скрыл имя, 24 Марта 2013 в 11:44, курсовая работа

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

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

Скачать полностью (1.46 Мб) Сколько стоит заказать работу?
Прикрепленные файлы: 1 файл

Курсовая вар №6.doc

— 1.88 Мб (Скачать документ)

 

 

 

 

 

 

 

Фирмы, оплатившие услуги не в полном объеме.

Для этого находим  разницу между Итого проплачено и Итого начислено. И с использованием фильтра выводим те фирмы, у которых эта разница меньше 0.

N

Фирма-арендатор

Адрес

Занимаемая площадь

На начало месяца

Начислено

Итого начислено

Проплачено

Итого проплачено

На конец  месяца

Статус

задолженность

переплата

аренда

НДС аренды

коммун. платежи

НДС

тех. обслуживание

аренда

коммун. платежи

тех. обслуживание

задолженность

переплата

                                     

2

Магазин № 2

ул. Пасадская, 2а

8

205,00р.

  

66,40р.

11,95р.

52,00р.

9,36р.

31,20р.

170,91р.

70,00р.

62,00р.

35,00р.

167,00р.

208,91р.

0,00р.

Долг

16

Магазин № 16

ул. Щепная, 52

7

  

14,30р.

58,10р.

10,46р.

45,50р.

8,19р.

27,30р.

149,55р.

69,00р.

53,00р.

0,00р.

122,00р.

13,25р.

0,00р.

Долг


 

 

Магазин № 2: Итого начислено 170,91, а Итого проплачено 167,00, т.е. недоплата равна -3,91.

Магазин № 16: Итого начислено 149,55, а Итого проплачено 122,00, т.е. недоплата равна - 27,55.

У остальных фирм-арендаторов разница положительная, что означает, что они оплатили больше, чем начислено.

  

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

Таблица для построения столбиковой гистограммы.

Адрес

Итого начислено

Итого проплачено

ул. Гуртьева, 16

854,56р.

885,00р.

ул. Пасадская, 2а

320,46р.

330,22р.

ул. Щепная, 52

940,02р.

937,00р.

ул. Пушкина, 16

1 132,29р.

1 163,00р.

Итого

3 247,33р.

3 315,22р.


 

По столбиковой гистограмме видно, что больше всего Итого начислено и Итого проплачено по адресу ул. Пушкина, 16, а меньше всего – по адресу ул. Пасадская, 2а.

 

 

Задание №3

 

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

 с шагом 0,2 и

Листинг выполнения в Excel

x

f(x)

g(x)

-2

0.369296

-8

-1.8

0.251035

-5.872

-1.6

0.035887

-4.256

-1.4

-0.21093

-3.104

-1.2

-0.4113

-2.368

-1

-0.495

-2

-0.8

-0.41415

-1.952

-0.6

-0.14856

-2.176

-0.4

0.28401

-2.624

-0.2

0.766383

-3.248

0

1

-4

0.2

0.766383

-4.832

0.4

0.28401

-5.696

0.6

-0.14856

-6.544

0.8

-0.41415

-7.328

1

-0.495

-8

1.2

-0.4113

1.463034

1.4

-0.21093

1.885427

1.6

0.035887

2.278072

1.8

0.251035

2.647997

2

0.369296

3

2.2

0.357562

3.337504

2.4

0.22497

3.663034

2.6

0.019675

3.978512

2.8

-0.18721

4.285427

3

-0.3254

4.584963

3.2

-0.34892

4.878072

3.4

-0.25143

5.165535

3.6

-0.06803

5.447997

3.8

0.137083

5.725999

4

0.292766

6


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

 

 

 
Таблица в формульном виде

x

f(x)

g(x)

-2

=((1+A2^2)/(1+3*A2^2))*COS(3*A2)

=ЕСЛИ(A2<=1;A2^3-(A2+2)^2;LOG(A2;2)+A2)

-1.8

=((1+A3^2)/(1+3*A3^2))*COS(3*A3)

=ЕСЛИ(A3<=1;A3^3-(A3+2)^2;LOG(A3;2)+A3)

-1.6

=((1+A4^2)/(1+3*A4^2))*COS(3*A4)

=ЕСЛИ(A4<=1;A4^3-(A4+2)^2;LOG(A4;2)+A4)

-1.4

=((1+A5^2)/(1+3*A5^2))*COS(3*A5)

=ЕСЛИ(A5<=1;A5^3-(A5+2)^2;LOG(A5;2)+A5)

-1.2

=((1+A6^2)/(1+3*A6^2))*COS(3*A6)

=ЕСЛИ(A6<=1;A6^3-(A6+2)^2;LOG(A6;2)+A6)

-1

=((1+A7^2)/(1+3*A7^2))*COS(3*A7)

=ЕСЛИ(A7<=1;A7^3-(A7+2)^2;LOG(A7;2)+A7)

-0.8

=((1+A8^2)/(1+3*A8^2))*COS(3*A8)

=ЕСЛИ(A8<=1;A8^3-(A8+2)^2;LOG(A8;2)+A8)

-0.6

=((1+A9^2)/(1+3*A9^2))*COS(3*A9)

=ЕСЛИ(A9<=1;A9^3-(A9+2)^2;LOG(A9;2)+A9)

-0.4

=((1+A10^2)/(1+3*A10^2))*COS(3*A10)

=ЕСЛИ(A10<=1;A10^3-(A10+2)^2;LOG(A10;2)+A10)

-0.2

=((1+A11^2)/(1+3*A11^2))*COS(3*A11)

=ЕСЛИ(A11<=1;A11^3-(A11+2)^2;LOG(A11;2)+A11)

0

=((1+A12^2)/(1+3*A12^2))*COS(3*A12)

=ЕСЛИ(A12<=1;A12^3-(A12+2)^2;LOG(A12;2)+A12)

0.2

=((1+A13^2)/(1+3*A13^2))*COS(3*A13)

=ЕСЛИ(A13<=1;A13^3-(A13+2)^2;LOG(A13;2)+A13)

0.4

=((1+A14^2)/(1+3*A14^2))*COS(3*A14)

=ЕСЛИ(A14<=1;A14^3-(A14+2)^2;LOG(A14;2)+A14)

0.6

=((1+A15^2)/(1+3*A15^2))*COS(3*A15)

=ЕСЛИ(A15<=1;A15^3-(A15+2)^2;LOG(A15;2)+A15)

0.8

=((1+A16^2)/(1+3*A16^2))*COS(3*A16)

=ЕСЛИ(A16<=1;A16^3-(A16+2)^2;LOG(A16;2)+A16)

1

=((1+A17^2)/(1+3*A17^2))*COS(3*A17)

=ЕСЛИ(A17<=1;A17^3-(A17+2)^2;LOG(A17;2)+A17)

1.2

=((1+A18^2)/(1+3*A18^2))*COS(3*A18)

=ЕСЛИ(A18<=1;A18^3-(A18+2)^2;LOG(A18;2)+A18)

1.4

=((1+A19^2)/(1+3*A19^2))*COS(3*A19)

=ЕСЛИ(A19<=1;A19^3-(A19+2)^2;LOG(A19;2)+A19)

1.6

=((1+A20^2)/(1+3*A20^2))*COS(3*A20)

=ЕСЛИ(A20<=1;A20^3-(A20+2)^2;LOG(A20;2)+A20)

1.8

=((1+A21^2)/(1+3*A21^2))*COS(3*A21)

=ЕСЛИ(A21<=1;A21^3-(A21+2)^2;LOG(A21;2)+A21)

2

=((1+A22^2)/(1+3*A22^2))*COS(3*A22)

=ЕСЛИ(A22<=1;A22^3-(A22+2)^2;LOG(A22;2)+A22)

2.2

=((1+A23^2)/(1+3*A23^2))*COS(3*A23)

=ЕСЛИ(A23<=1;A23^3-(A23+2)^2;LOG(A23;2)+A23)

2.4

=((1+A24^2)/(1+3*A24^2))*COS(3*A24)

=ЕСЛИ(A24<=1;A24^3-(A24+2)^2;LOG(A24;2)+A24)

2.6

=((1+A25^2)/(1+3*A25^2))*COS(3*A25)

=ЕСЛИ(A25<=1;A25^3-(A25+2)^2;LOG(A25;2)+A25)

2.8

=((1+A26^2)/(1+3*A26^2))*COS(3*A26)

=ЕСЛИ(A26<=1;A26^3-(A26+2)^2;LOG(A26;2)+A26)

3

=((1+A27^2)/(1+3*A27^2))*COS(3*A27)

=ЕСЛИ(A27<=1;A27^3-(A27+2)^2;LOG(A27;2)+A27)

3.2

=((1+A28^2)/(1+3*A28^2))*COS(3*A28)

=ЕСЛИ(A28<=1;A28^3-(A28+2)^2;LOG(A28;2)+A28)

3.4

=((1+A29^2)/(1+3*A29^2))*COS(3*A29)

=ЕСЛИ(A29<=1;A29^3-(A29+2)^2;LOG(A29;2)+A29)

3.6

=((1+A30^2)/(1+3*A30^2))*COS(3*A30)

=ЕСЛИ(A30<=1;A30^3-(A30+2)^2;LOG(A30;2)+A30)

3.8

=((1+A31^2)/(1+3*A31^2))*COS(3*A31)

=ЕСЛИ(A31<=1;A31^3-(A31+2)^2;LOG(A31;2)+A31)

4

=((1+A32^2)/(1+3*A32^2))*COS(3*A32)

=ЕСЛИ(A32<=1;A32^3-(A32+2)^2;LOG(A32;2)+A32)


 

Задание №4

 

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

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

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

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

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

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

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

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

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

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

Тема для составления  БД – Автобусы – Маршруты.

В городе действует несколько  маршрутов о которых известно: № маршрута,  протяженность, время в пути, количество остановок и т.п. За маршрутами закреплено несколько автобусов, о которых необходимо знать: номерной знак автобуса, Ф.И.О. водителя, марка, изготовитель, вместимость и т.д.

Критерий для запросов выборок – по интервалу значений в числовом поле.

Сортировка данных –  по возрастанию в числовом поле.

При составлении отчета тип группировки – по полю.

Вид итога – максимальное.

Таблица «Маршруты»

Маршруты

Код

№ маршрута

Протяженность (км)

Время в пути (мин)

Кол-во остановок

1

1

12

50

12

2

3

8

40

9

3

5

18

65

13

4

6

7

35

11

5

7

17

70

18

6

12

12

52

11

7

24

11

47

12

8

25

13

54

15

9

26

12

51

13

10

27

14

56

11


Ключевое поле - Код, т.к. он индивидуален

 

Таблица «Автобусы»

Автобусы

Код

№ автобуса

ФИО водителя

Марка

Изготовитель

Вместимость (чел)

Код маршрута

1

323

Соколов Е.

Икарус

ВолгоМаш

30

1

2

124

Абанин А.

ГАЗ

Запорожский

35

5

4

757

Видяев О.

Белаз

ВолгоМаш

25

10

6

656

Демчук А.

Мерседес

Mersedes

20

2

7

671

Сорокин И.

Икарус

ВолгоМаш

25

6

8

125

Кабанов С.

ГАЗ

Запорожский

25

7

9

324

Ладыгин Е.

Икарус

ВолгоМаш

35

5

10

923

Ковалев В.

Белаз

ВолгоМаш

30

7

11

777

Нагорнов И.

ГАЗ

Запорожский

25

1

12

924

Кувакин А.

Белаз

ВолгоМаш

30

4

14

778

Маев О.

ГАЗ

Запорожский

25

6

15

670

Владыкин И.

Икарус

ВолгоМаш

20

3

16

758

Оверин И.

Белаз

ВолгоМаш

25

7

17

756

Овдин А.

Белаз

ВолгоМаш

30

3

18

779

Неволин Е.

ГАЗ

Запорожский

25

10

19

655

Тимонин А.

Мерседес

Mersedes

25

1

20

698

Окатов Е.

Мерседес

Mersedes

25

5

21

925

Дегтярев А.

Белаз

ВолгоМаш

40

9

22

325

Ливчин С.

Икарус

ВолгоМаш

20

8

23

126

Бабакин А.

ГАЗ

Запорожский

25

8

24

127

Негин О.

ГАЗ

Запорожский

20

9

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