Контингент студентов

Дисциплина: Автоматизация, Техника
Тип работы: Реферат
Бесплатно: Антиплагиат
Объем: 8 страниц
В избранное:

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РЕСПУБЛИКИ КАЗАХСТАН

КАЗАХСКИЙ ЭКОНОМИЧЕСКИЙ УНИВЕРСИТЕТ им. Т. РЫСКУЛОВА

Курсовая Работа

Тема: «Контингент студентов»

Выполнила: студ. гр. 209 «ВТ и ПО»

Ф. И. : Горбовских Наталия

Факультет: ИЭФ

Проверил: преподаватель кафедры

«Прикладная Информатика»

Ходжаев У. Р.

Алматы 2007

Содержание

Стр

Введение

Постановка задачи 3

Алгоритмы решения задачи 4

Исходный код программы 5

Блок-схема 9

Список использованной литературы 12

Введение

Тема моей курсовой работы - «Контингент студентов». Особенно актуальна эта тема для нас, для студентов, а также для сотрудников университета. В наше время практически все переведено на автоматизированные системы сбора и хранения информации, но о создании единой базы данных о студентах никто не задумывался. Лучше воспользоваться одной программой, которая включает в себя все перечисленное, чем тратить время на просматривание толстых папок с реквизитами студентов.

Постановка задачи

Условие задачи: написать программу, создающую списки групп студентов с реквизитами: Фамилия, имя, отчество; номер телефона; пол; откуда прибыл; дата рождения; специальность; статус. Обеспечить выдачу сведений о контингенте по областям, по статусу; а также формирование и выдачу списков групп по специальностям.

Программа написана на языке Turbo Pascal 7. 0. При выполнении программа выводит на экран меню, состоящее из 5 элементов-команд: 0- завершение работы с программой, 1- формирование списка, 2- поиск студентов по области, 3- поиск студентов по статусу, 4- выдача списков студентов по специальностям.

Для формирования массива записей списков групп разработана процедура Create_Spiski_Group. Для поиска студентов по области - процедура Find_Region, поиск по статусу - процедура Find_Status, выдача списков студентов по специальностям - Find_Speciality.

В программе используются следующие данные:

Book- массив записей сведений о студентах. Каждая запись массива состоит из полей: Fio- фамилия, имя, отчество абонента, длина поля- 40 символов; Phone- номер телефона, длина поля- 10 символов; Sex- пол студента, длина поля- 10 символов; Region- откуда прибыл студент (область), длина поля- 15 символов; Birth_Data- дата рождения студента, длина поля- 10 символов; Speciality- специальность студента, длина поля-10 символов; Kurs- курсы по выбору студентов, длина поля - 30 ; Status- статус студента (грант, договор, сирота, инвалид), длина поля- 10 символов.
N- максимального количество записей в списке, целочисленная константа, равная 70.
Count- текущее количество записей в списке студентов, целочисленная переменная, значение которой не должно превышать значения N
Vid- целочисленная переменная для выбора вида работы, принимает значения 0, 1, 2, 3, 4, 5;
Переменные типа byte ( I, a) String (abc)

Алгоритм решения задачи

В программе использовались различные типы данных и стандартные операторы, процедуры и функции Turbo Pascal.

Program(название программы)
Procedure( подпрограммы, созданные пользователем)
Record(тип записи для внесения данных в массивы)
Write, writeln (для вывода данных на экран)
Read, readln (для считывания данных, вводимых с клавиатуры)
Ifthenelse( операторы условия)
For__:=___to___do (циклические операторы)
Begin, end (операторные скобки)
Var (раздел описания переменных)
End_Menu- логическая переменная, значение True которой является условием завершения работы программы.

При выполнении программа выводит на экран меню, состоящее из 6 пунктов: 0- завершение работы с программой, 1- формирование списка, 2- поиск студентов по области, 3- поиск студентов по статусу, 4- выдача списков групп студентов по специальностям, 5- выдача курсов по выбору.

Пользователь, выбрав нужную команду, набирает ее номер на клавиатуре. А затем программа сама предоставит ему список возможных последующих действий. Опишем работу каждой из процедур:

Команда 1: добавляет пользователя. С помощью переменной abc мы можем управлять процессом занесения данных в массив записей. Все данные вводятся пользователем с клавиатуры.

Команда 2: поиск студентов по области. Используя цикл, мы пробегаемся по всем записанным элементам (мы знаем их количество из переменной Count), попутно сверяя запись region с введенным критерием поиска.

Команда 3 и 5: идентичны второй команде, различия только в записи status, kurs. Все делается через цикл.

Команда 4: идентична второй команде, но в ней используется процедура Vyvod_Speciality, все также делается через цикл.

Команда 0: выход из программы, используя процедуру End_Menu.

Исходный код

Program Student Book;

Uses Crt;

Const N= 70; {Максимальный размер списка студентов}

RecBook= Record {Запись сведений о студенте}

Fio: String [40] ; {Фамилия}

Birth_Data: String [10] ; { Дата рождения}

Sex: String[10] ; {Пол студента}

Region: String[15] ; { Область откуда прибыл}

Phone: String[10] ; {№ телефона}

Speciality: String[15] ; {Специальность}

Status: String[10] ; {Статус студента}

Kurs: String[30] ;

End;

Var

Book: Array [1. . N] of RecBook; {Массив записей сведений о студенте}

I, Vid: byte; {Vid- Переменная для выбора вида работы}

abc:string;

End_Menu: boolean;

Count: Integer; {Текущее число записей в справочнике}

Procedure Create_Book_Student; {Процедура формирования списка}

Begin

Writeln (‘Создание записей списка:’) ;

Write (‘Ввести число записей в списке’) ;

Readln (Count) ;

For I:=1 To Count Do

Begin

Write (‘Ввести фамилию: ’) ;

Readln (Book[i] . Fio) ;

Write (‘Ввести дату рождения: ’) ;

Readln (Book[i] . Birth_Data) ;

Write (‘Ввести пол студента: ’) ;

Readln (Book[i] . Sex) ;

Write (‘Ввести область откуда прибыл студент: ’) ;

Readln (Book[i] . Region) ;

Write (‘Ввести № телефона: ’) ;

Readln (Book[i] . Phone) ;

Write (‘Ввести специальность: ’) ;

Readln (Book[i] . Speciality) ;

Write(‘Ввести курсы по выбору:’) ;

Readln(Book[i] . Kurs) ;

Write (‘Ввести статус: ’) ;

Readln (Book[i] . Status) ;

End;

Writeln (‘Создание массива записей сведений о студентах завершено’) ;

Writeln (‘В списке студентов ‘, Count, ‘ записей’) ; End;

Procedure Find_Region(Count:integer) ; { поиск откуда прибыл студент}

Begin

Write (‘Ввести область: ’) ;

Readln (abc) ;

For I:=1 To Count Do

Begin

If Book[i] . Region=abc then begin

Writeln (‘Фамилия: ’, Book[i] . Fio) ;

Writeln (‘Дата рождения:’, Book[i] . Birth_Data) ;

Writeln (‘Пол:’, Book[i] . Sex) ;

Writeln (‘Область:’, Book[i] . Region) ;

Writeln (‘Телефон:’, Book[i] . Phone) ;

Writeln (‘Специальность:’, Book[i] . Speciality) ;

Writeln (‘Курсы по выбору:’, Book[i] . Kurs) ;

Writeln (‘Статус:’, Book[i] . Status) ;

End; end;

End;

Procedure Find_Status(Count:integer) ; { поиск студента по статусу}

Begin

Write (‘Ввести статус: ’) ;

Readln (abc) ;

For I:=1 To Count Do

Begin

If Book[i] . Status=abc then begin

Writeln (‘Фамилия: ’, Book[i] . Fio) ;

Writeln (‘Дата рождения:’, Book[i] . Birth_Data) ;

Writeln (‘Пол:’, Book[i] . Sex) ;

Writeln (‘Область:’, Book[i] . Region) ;

Writeln (‘Телефон:’, Book[i] . Phone) ;

Writeln (‘Специальность:’, Book[i] . Speciality) ;

Writeln (‘Курсы по выбору:’, Book[i] . Kurs) ;

Writeln (‘Статус:’, Book[i] . Status) ;

End; end;

End;

Procedure Find_Kurs(Count:integer) ; {Выдача курсов по выбору}

Begin

Write (‘Ввести фамилию студента:’) ;

Readln (abc) ;

For I:=1 To Count Do

Begin

If Book[i] . Kurs=abc then begin

Writeln (‘Фамилия: ’, Book[i] . Fio) ;

Writeln (‘Дата рождения:’, Book[i] . Birth_Data) ;

Writeln (‘Специальность:’, Book[i] . Speciality) ;

Writeln (‘Курсы по выбору:’, Book[i] . Kurs) ;

End; end;

End;

... продолжение

Вы можете абсолютно на бесплатной основе полностью просмотреть эту работу через наше приложение.