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

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

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

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

Скачать полностью (1.46 Мб) Сколько стоит заказать работу?

Прикрепленные файлы: 1 файл

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

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

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

Схема данных

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

Условие: Автобусы с протяженностью маршрута >10 и <20 км.

Конструктор запроса на выборку

Результат

Запрос1
№ автобуса	ФИО водителя	Вместимость (чел)	№ маршрута	Протяженность (км)
124	Абанин А.	35	7	17
126	Бабакин А.	25	25	13
324	Ладыгин Е.	35	7	17
325	Ливчин С.	20	25	13
670	Владыкин И.	20	5	18
698	Окатов Е.	25	7	17
756	Овдин А.	30	5	18
757	Видяев О.	25	27	14
779	Неволин Е.	25	27	14

Отчет выполняется по результатам Запроса.

Автобусы

№ маршрута № автобуса ФИО водителя Вместимость (чел) Протяженность (км)

756 Овдин А. 30 18

670 Владыкин И. 20 18

Итоги для '№ маршрута' = 5 (2 записей)

Max 30

698 Окатов Е. 25 17

324 Ладыгин Е. 35 17

124 Абанин А. 35 17

Итоги для '№ маршрута' = 7 (3 записей)

Max 35

126 Бабакин А. 25 13

325 Ливчин С. 20 13

Итоги для '№ маршрута' = 25 (2 записей)

Max 25

779 Неволин Е. 25 14

757 Видяев О. 25 14

Итоги для '№ маршрута' = 27 (2 записей)

Max 25

15 декабря 2012 г. Страница 1 из 1

Запросы на языке SQL

ЗапросSQL1: Информация о автобусах, с вместимостью <25 человек.

SELECT Автобусы.[№ автобуса], Автобусы.Марка, Автобусы.[Вместимость (чел)], Маршруты.[№ маршрута]

FROM Маршруты INNER JOIN Автобусы ON Маршруты.Код=Автобусы.[Код маршрута]

WHERE (Автобусы.[Вместимость (чел)]<25);

Результат запроса:

ЗапросSQL1
№ автобуса	Марка	Вместимость (чел)	№ маршрута
656	Мерседес	20	3
670	Икарус	20	5
325	Икарус	20	25
127	ГАЗ	20	26

ЗапросSQL2: Вывод информации о маршрутах, на которых работают автобусы «Икарус»

SELECT Маршруты.[№ маршрута], Маршруты.[Время в пути (мин)], Автобусы.[ФИО водителя], Автобусы.Изготовитель, Автобусы.[Вместимость (чел)]

FROM Маршруты INNER JOIN Автобусы ON Маршруты.Код = Автобусы.[Код маршрута]

WHERE (Автобусы.Изготовитель="Mersedes");

Результат запроса:

ЗапросSQL2
№ маршрута	Время в пути (мин)	ФИО водителя	Изготовитель	Вместимость (чел)
1	50	Тимонин А.	Mersedes	25
3	40	Демчук А.	Mersedes	20
7	70	Окатов Е.	Mersedes	25

ЗапросSQL3: Информация о водителях «Сорокин И.» и «Абанин А.»

SELECT Автобусы.[ФИО водителя], Автобусы.[№ автобуса], Автобусы.[Вместимость (чел)], Маршруты.[№ маршрута], Маршруты.[Протяженность (км)]

FROM Маршруты INNER JOIN Автобусы ON Маршруты.Код = Автобусы.[Код маршрута]

WHERE (Автобусы.[ФИО водителя]="Сорокин И." Or Автобусы.[ФИО водителя]="Абанин А.");

Результат запроса:

ЗапросSQL3
ФИО водителя	№ автобуса	Вместимость (чел)	№ маршрута	Протяженность (км)
Абанин А.	124	35	7	17
Сорокин И.	671	25	12	12

Задание №5

Создание Web-страниц

Турбаза "Орлиный приют"

Цены на заезды

	Ноябрь	Декабрь	Январь	Февраль
Люкс	2000	2300	3000	1000
Полулюкс	2500	3000	5000	3000
2-х местный номер	1000	5000	1000	2000
Общая палата	2000	7000	2000	3000

Листинг HTML

<html>

<head>

<title>Турбаза "Орлиный приют"</title>

</head>

<body>

<tr>

<td>

<A href="prod.html">Предложения</A>

<A href="kollektiv.html">Коллектив</A>

</td>

</tr>

<tr>

История

Турбаза была приватизирована в перестроечный период, тогда она

находилась в плачевном состоянии. Мы вложили в нее большие деньги и сейчас она пользуется популярностью

Мы сдаем комнты следующих типов :1. Люкс 2. Полулюкс 3. 2-х местный номер 4. Общие палаты

Мобильный рабочий Тел: 85-500-458-15

Мобильный рабочий Тел: 85-500-458-16

Главный офис:

</tr>

</table>

</body>

</html>

Листинг HTML

<html>

<head>

<title>Турбаза "Орлиный приют"</title>

</head>

<body >

<tr>

<td>

<A href="index.html">Главная</A>

<A href="kollektiv.html">Коллектив</A>

</td>

</tr>

<tr>

<td valign="top"> Турбаза "Орлиный приют"

<caption>Цены на заезды</caption>

<td>ноябрь</td>

<td>декабрь</td>

<td>январь</td>

<td>февраль</td>

</tr>

</tr>

<td>Полулюкс</td>

</tr>

<td>2-х местный номер</td>

</tr>

<td>Общая палата</td>

</tr>

</table>

Люкс

Полулюкс

2-х местный номер

Общая палата

</tr>

</table>

</body>

</html>

Листинг HTML

<html>

<head>

<title>Турбаза "Орлиный приют"</title>

</head>

<body>

<tr>

<td>

<A href="index.html">Главная</A>

<A href="prod.html">Предложение</A>

</td>

</tr>

<tr>

<td valign="top">Наш коллектив

Васютин Е.- заместитель директора

Коломин А. - менеджер по номерам

Велесов О. - сантехник

Крутов А. - начальник охраны

Селезнев Е. - водиетель

Директор - голова!

Наш адрес: г. Анапа, ул. Ленина, д5., корпус 1.

</tr>

</table>

</body>

</html>

Список литературы

Прайс, Д. Программирование на языке Паскаль: Практическое руководство. [Текст]/ Д. Прайс - М., 1987.
Фаронов, В.В. Турбо Паскаль 7.0. Начальный курс. Учебное пособие. [Текст]/ В.В. Фаронов - М., 1997.
Немнюгин С.А. Turbo Pascal :практикум: учеб. пособие для вузов/ С.А.Немнюгин. – СПб. : Питер, 2003. – 253с.
Штайнер Г. Excel. 2002. [Текст]: справочник/ Г. Штайнер. – М.: Лаборатория базов. знания, 2002. – 512с.

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