Автор: Пользователь скрыл имя, 20 Января 2012 в 20:42, курсовая работа
Модули представляют собой инструмент для разработки библиотек прикладных программ и мощное средство модельного программирования.
Задача курсового проекта: разработать программу, представляющую собой информационно-справочную систему на языке программирования Turbo Pascal.
Введение 3
1 Двусвязные списки и основные операции над ними 4
1.1 Двунаправленные списки 4
1.2 Циклические списки 4
1.3 Свойства двунаправленных списков: 7
2 Разработка информационно-поисковой системы «Зачисление Абитуриентов» на языке программирования Паскаль 9
2.1 Постановка задачи 9
2.2 Описание алгоритма 11
2.3 Практическая часть выполнения задачи «Зачисление абитуриентов» на языке программирования 14
2.4 Результат работы программы 30
Заключение 34
Cписок используемых источников 35
Приложения 36
abiturient[i].ball:=s1+
end;
4:begin write('Вводите: ');
writeln;
Writeln('1 - Есть');
Writeln('2 - Нет');
readln(qwe);
case qwe of
1:begin abiturient[i].lgoti:='есть' end;
2:begin abiturient[i].lgoti:='нет' end;
end;
end;
5:begin write('Вводите: ');
writeln;
Writeln('1 - Готов');
Writeln('2 - Не готов');
readln(qwe);
case qwe of
1:begin abiturient[i].osnova:='готов' end;
2:begin abiturient[i].osnova:='не готов' end;
end; end; end;
assign(f,fio);
rewrite(f);
for i:=1 to n do
write(f,abiturient[i]);
close(f); end;
{Процедура меню}
procedure menu;
var m:integer;
begin
textcolor(12);
writeln(' Зачисление абитуриентов');
textcolor(14);
Writeln(' ______________________');
Writeln(' |Меню: |');
Writeln(' |______________________|');
Writeln(' |1 - Ввод |');
Writeln(' |2 - Вывод |');
Writeln(' |3 - Сортировка |');
Writeln(' |4 - Поиск |');
Writeln(' |5 - Удаление |');
Writeln(' |6 - Добавление |');
Writeln(' |7 - Подсчет |');
Writeln(' |8 - Коректировка |');
Writeln(' |0 - Выход |');
Writeln(' |______________________|');
Readln (m);
case m of
1:begin vvod; vivod; menu; end;
2:begin vivod; menu; end;
3:begin sortirovka; menu; end;
4:begin poisk; menu; end;
5:begin del; vivod; menu; end;
6:begin dob; vivod; menu; end;
7:begin pod;
textcolor(10);
Writeln
('Количество абитуриентов с
menu;
end;
8:begin korect; vivod; menu; end;
0:exit;
end;
end;
{Основная программа}
begin
clrscr;
fio:='fail.dat';
menu; end.
Вывод результата программы представлен в следующем виде:
Само меню выглядит так:
______________________________
|МЕНЮ:
|________________________
|1 - Ввод |
|2 - Вывод |
|3 - Сортировка |
|4 - Поиск |
|5 - Удаление |
|6 - Добавление |
|7 - Подсчет |
|8 – Корректировка |
|0 - Выход |
|________________________
Работа процедуры поиск выглядит следующим образом:
Выберите по чем искать
1-ФИО
2-Прописка
3-Набранные баллы
4-Наличие льгот
5-Договорная основа
3
Введите количество баллов по которому произведете поиск
15
Баллы выше вами набранного
1)Баллы, выше вами набранного!
2)Баллы, ниже вами набранного!
1
Абитуриенты:
|_________________|___________
| ФИО |Место прописки | Баллы | Льготы | Основа |
|_________________|___________
| 1)Романюк М.Н. |г.Брагин | 17 | есть | готов |
| 2)Леглик А.А. |г.Гомель | 18 | нет | не готов |
| 3)Шаков В.В. |п.Интернационал| 19 | нет | готов |
|_________________|___________
В данном случае мы выбрали баллы, выше вами набранного, аналогичным образом выбирается и баллы, ниже вами набранного.
Сортировка по фамилиям по возрастанию
Абитуриенты:
|_________________|___________
| ФИО |Место прописки | Баллы | Льготы | Основа |
|_________________|___________
| 1)Леглик А.А. |г.Гомель | 18 | нет | не готов |
| 2)Романюк М.Н. |г.Брагин | 17 | есть | готов |
| 3)Шаков В.В. |п.Интернационал| 19 | нет | готов |
|_________________|___________
Аналогично сортировка данных происходит по всем полям.
Удаление записи номер 1:
|_________________|___________
| ФИО |Место прописки | Баллы | Льготы | Основа |
|_________________|___________
| 1)Леглик А.А. |г.Гомель | 18 | нет | не готов |
| 2)Романюк М.Н. |г.Брагин | 17 | есть | готов |
| 3)Шаков В.В. |п.Интернационал| 19 | нет | готов |
|_________________|___________
______________________________
|МЕНЮ:
|________________________
|1 - Ввод |
|2 - Вывод |
|3 - Сортировка |
|4 - Поиск |
|5 - Удаление |
|6 - Добавление |
|7 - Подсчет |
|8 – Корректировка |
|0 - Выход |
|________________________
5
Введите номер удаляемой строки
1
|_________________|___________
| ФИО |Место прописки | Баллы | Льготы | Основа |
|_________________|___________
| 1)Леглик А.А. |г.Гомель | 18 | нет | не готов |
| 2)Шаков В.В. |п.Интернационал| 19 | нет | готов |
|_________________|___________
Подсчет количества набранных баллов больше 15:
|_________________|___________
| ФИО | Место прописки| Баллы | Льготы | Основа |
|_________________|___________
| 1)Шаков В.В. |п.Интернационал| 19 | нет | готов |
|_________________|___________
Количество
абитуриентов с большим набранным баллом
19=1.
Корректировка данных.
Введите строку: 1
Укажите поле:
1
Вводите:
Шаков->Романюк
|_________________|___________
| ФИО |Место прописки | Баллы | Льготы | Основа |
|_________________|___________
| 1)Шаков В.В. |п.Интернационал| 19 | нет | готов |
|_________________|___________
Аналогично
корректируются и другие поля.
Заключение
Целью курсовой работы являлось «Разработка информационно-поисковой системы «Зачисление абитуриентов» на языке программирования Паскаль», что было и сделано в течение создания задачи.
Данная программа может применяться в любых учебных заведениях для получения более точной информации об абитуриентах.
В результате создания данной программы, я повысил навыки работы с типизированными файлами, а также освоил основные методы обработки базы данных.
1. Авдеев, М.Р. Турбо Паскаль 7.0/ М.Р. Авеев, Е.В. Чесноков а.- М.: НТ Пресс, 2007. – 89 с.
2. Некрашевич, Г. Н. Программирование на языке Паскаль/ Г. Н. Некрашевич — М.: 2005. — 395 с.
3. Задач по программированию / К.С. Окулов, К.П. Ахимшина [и др.]; под ред. К.С. Окулова. М.:БИНОМ. Лаборатория знаний, 2006.
4. Все о Паскале [Электронный ресурс].- Электронные данные. – Режим доступа: http://www.pascal7.ru– Дата доступа 20.05.2010.
5.
Абраменко, А.С. Программируем на Паскале/А.С.
Абраменко – М.:Диалектика: 1998. – 623 с.
ПРИЛОЖЕНИЕ 1
Блок-схема процедуры
vvod
ПРИЛОЖЕНИЕ 2
Блок-схема процедуры vivod
Да
ПРИЛОЖЕНИЕ 3
Блок-схема процедуры dob (добавление)
Да Нет