end;
{в цикле определяется прошел студент на свою специальность или нет(по проходному баллу}
for i:=0 to length(student_kniga)-1 do
begin
ball:= {вычисляем набранный балл студентом}
strtoint(student_kniga[i].examen1) +
strtoint(student_kniga[i].examen2) +
strtoint(student_kniga[i].zachet);
for ii:=0 to length(plans)-1 do
begin
{проверка на соответствие текущей спец-ти и выбранной студентом}
if plans[ii].name = student_kniga[i].profession then {если совпадает, смотрим проходит студент по набранному баллу или нет}
if plans[ii].ball<=ball then
begin
setlength(plans[ii].students, length(plans[ii].students)+1); {увеличиваем размерность массива студентов на 1}
plans[ii].students[length(plans[ii].students)-1].name:= student_kniga[i].name; {добавляем студента в список зачисленных}
popal:=true; {запоминаем в переменную, что студент проходит}
end
else
popal:=false; {иначе смотрим на какую специальность может быть зачислен}
end;
if not(popal) then
begin
for iii:=0 to length(plans)-1 do {смотрим проходные баллы по специальностям и определяем куда можно зачислить студента}
begin
if (plans[iii].ball <= ball) and (plans[iii].name<>'') then {если набранный студентом балл больше проходного}
begin
setlength(plans[iii].students, length(plans[iii].students)+1); {увеличиваем размерность массива студентов на 1}
plans[iii].students[length(plans[iii].students)-1].name:= student_kniga[i].name; {добавляем студента в список зачисленных}
break; {прерываем цикл}
end;
end;
end;
end;
save_file; //сохраняем данные в файл
end;
end.
Пример ввода исходных данных
4. Описание программы
Приведенный алгоритм, на основе текстового задания.
5. Руководство системного программиста
5.1 Общие сведения о программе
Данная программа предназначена для выполнения таких функций как:
Загрузка в СУБД (форму) информации о студентах – ФИО, количество балов, наименование факультета (сокр.), номер специальности.
После введения количества баллов, показ результат прохождения по той или иной специальности (номер специальности), т. е. прошел тот или иной студент или нет.
Вывод на дисплей информации о студентах, которые получили проходной балл и зачислены на факультеты.
5.2 Структура программы
Библиотеки: Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, ValEdit, CheckLst;
Типы классов, процедур, объектов: TForm1 = class (TForm)
Button1: TButton;
Memo1: TMemo;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
Типы переменных: student_record = record {структура для хранения данных о студенте}
name: ShortString; {ФИО}
examen1: ShortString; {Балл за первый экзамен}
examen2: ShortString; {Балл за второй}
zachet: ShortString; {1- сдан зачет, 0-не сдан}
faculty: ShortString; {факультет}
profession: ShortString; {специальность}
end;
plan = record {структура для хранения данных о плане приема на специальности}
name: ShortString; {наименование специальности}
ball: word; {проходной балл на специальность}
students: array of student_record; {студенты, зачисленные на специальность}
end.
Переменные: var
Form1: TForm1;
f: textfile;
student_kniga: array of student_record; {массив студентов(данные из файла)}
plans: array of plan;{план приема и зачисленные студенты}
Тело программы:
begin
...
...
end.
5.3 Настройка программы
Открыть файл – Project1.exe, после того как на дисплее, появится Form1, навести курсор на кнопку “запуск” и нажать.
Появится список студентов, после чего нажать на кнопку “зачислить студентов”.
Появится форма “введите проходной балл” для специальности 22031. Вводим допустимое значение (цифру)
Появится форма “введите проходной балл” для специальности 22032. Вводим допустимое значение (цифру)
Появится форма “введите проходной балл” для специальности 23150. Вводим допустимое значение (цифру)
Появится форма “введите проходной балл” для специальности 23152. Вводим допустимое значение (цифру)
После ввода во все формы всех допустимых значений нажимаем “ок”.
Читаем результат (студенты зачислены на специальность _номер).
5.4 Проверка программы
После написания программы, в меню приложения “Delphi” нажимаем кнопку debug (отладка) и делаем пошаговую отладку. Если появляются синтаксические ошибки, то исправляем их. Далее проверка идет на выявление семантических ошибок.
5.5 Дополнительные возможности
В данной программе отсутствуют.
5.6 Сообщения системному программисту.
Смотри меню отладка программы “Delphi”
6. Руководство программиста
6.1 Назначение и условия применения программ.
Программа предназначена для автоматизации процесса зачисления абитуриентов. Легко исполняема. Для исполнения минимально требуется ПК с операционной системой Windows любой версии.
6.2 Характеристика программы
Пользование программой по времени не ограничено. Режим работы – последовательное исполнение файлов. Средства контроля правильности выполнения и самовосстанавливаемости программ не имеет, т.е написана так, что ошибок не имеет.
6.3 Обращение к программе
Начинаем с процедуры открытие файла: procedure open_file; Далее идет составной оператор, в котором описываются переменные, операторы, комментарии (связано с запоминанием проходного балла, фамилии, имени, студента и т.д.) Затем идет процедура закрытия файла: closefile(f); процедура отображения загруженных данных на форме: procedure display; процедура сохранение результатов вычислений: procedure save_file;
Далее смотри листинг программы.
6.4 Входные и выходные данные
Входные – цифры от 0 до 9 (проходной балл). Выходные – строковые. Вся информация выводится на дисплей с помощью форм написанных в программе “Delphi”.
6.5 Сообщения
Все сообщения по ходу выполнения программы смотреть в меню самой программы на писанной в приложении “Delphi”.
7 Руководство оператора
7.1 Назначение программы
Программа предназначена для АРМ секретаря учебно - методического отдела. В ней автоматически определяется зачисление либо нет, того или иного студента на заданную специальность.
7.2 Условия выполнения программы
Минимальные требования – ПК с операционной системой Widows любой версии, ОЗУ 64 Mb.
7.3 Выполнение программы
1. Открыть файл (Project1.exe) в приложении “Delphi”. В появившейся форме1 курсором нажать на кнопку “запуск”. В окне формы появится список студентов, проходные баллы по предметам, номера специальностей.
2. После появления списка, нажимаем кнопку “зачислить”. Поочередно будут появляться маленькие формы для ввода проходного балла на ту, или иную специальность. Вводим необходимые цифры.
3. После ввода последней формы, в интерфейсе основной формы1 появится информация о студентах зачисленных на специальность под указанным номером.
7.4 Сообщения оператору
В данной программе:
Зачислить студентов, Проходной балл – группа(номер), Зачислено (группа).