Разработка информационно-поисковой системы "Результаты соревнований" на языке программирования Паскаль (стр. 3 из 3)
readln(filename);
assign (f,filename);
reset(f);
for i:=1 to n do
read(f,ch[i]);
close(f);
for i:=1 to n-1 do
for j:=i+1 to n do
if ch[i].stil>ch[j].stil then
begin
chi:=ch[i];
ch[i]:=ch[j];
ch[j]:=chi;
end;
rewrite(f);
for i:=1 to n do
write(f,ch[i]);
close(f);
end;
if p=5 then begin {сортировкапополюрезультат}
writeln ('vvedite imya sozdannogo faila');
readln(filename);
assign (f,filename);
reset(f);
for i:=1 to n do
read(f,ch[i]);
close(f);
for i:=1 to n-1 do
for j:=i+1 to n do
if ch[i].rez>ch[j].rez then
begin
chi:=ch[i];
ch[i]:=ch[j];
ch[j]:=chi;
end;
rewrite(f);
for i:=1 to n do
write(f,ch[i]);
close(f);
end;
end;
procedure udalenie; {процедураудаления}
var m:integer;
begin
clrscr;
writeln ('vvedite imya sozdannogo faila'); {вводимимяфайла}
readln(filename);
assign (f,filename);
reset(f);
i:=1;
n:=0;
while not eof(f) do
begin
read(f,ch[i]);
i:=i+1;
n:=n+1;
end;
writeln('vvedite nomer udaliaemoi zapisi'); {вводимномерзаписидляудаления}
readln(m);
for i:=m to n do
begin {удаляем}
ch[i].fio:=ch[i+1].fio;
ch[i].voz:=ch[i+1].voz;
ch[i].ych:=ch[i+1].ych;
ch[i].stil:=ch[i+1].stil;
ch[i].rez:=ch[i+1].rez;
end;
n:=n-1;
close(f);
rewrite(f);
for i:=1 to n do
write(f,ch[i]);
close(f);
writeln(‘zapis udalena’);
readln;
end;
begin{тело основной программы}
whileTruedo
begin{меню программы}
clrscr;
Writeln ('':20,' *Menu* ');
Writeln ('':20,'||');
Writeln ('':20,'| 1- sozdanie novogo faila |');
Writeln ('':20,'| 2- vivod dannih |');
Writeln ('':20,'| 3- dobavlenie |');
Writeln ('':20,'| 4- poisk |');
Writeln ('':20,'| 5- sortirovka |');
Writeln ('':20,'| 6- udalenie zapisei |');
Writeln ('':20,'| 0- vihod |');
Writeln ('':20,'||');
Writeln;
Writeln('vi mojete rabotat s uje sozdanim failom "sor" ');
Writeln('');
Readln (m);
case m of
1:sozdanie;
2:vivod;
3:dobavlenie;
4:poisk;
5:sortirovka;
6:udalenie;
0:exit;
else begin Writeln('ne verno!');
readln;
end;
end;
end;
end.
2.4 Результаты работы программы
Для запуска программы необходимо открыть файл «zadacha.pas» и нажать на клавишу «F9»(в программе «PascalABC»). Появится главное меню в котором мы можем выбрать необходимое действие над файлом (рисунок 2.4.1).
Рисунок 2.4.1 - основное меню
В пункте первом мы создаем новый файл (рисунок 2.4.2).
Рисунок 2.4.2 - создание файла
В поле «ФИО» необходимо ввести фамилию имя и отчество участника.
В поле «Возраст» нужно ввести возраст участника, только цифрами
В поле «Учреждение» необходимо ввести учреждение образования в котором обучается участник.
В поле «Стиль» необходимо ввести стиль плавания участника.
В поле «Результат» нужно ввести результат участника проплывшего дистанцию.
Выбрав «вывод данных», программа выводит данные в виде таблицы из указанного файла (рисунок 2.4.3).
Рисунок 2.4.3.(вывод)
При добавлении в файл новых записей необходимо ввести фамилию, возраст, учреждение, стиль и результат заплыва. Эти данные будут записаны в конец таблицы.
При выборе режима «поиск» программа перейдет в другое меню (рисунок 2.4.4.), в котором можно будет выбрать необходимый критерий поиска. Поиск осуществляется по полям фамилия, возраст, учреждение, стиль, результат заплыва.
Рисунок 2.4.4 - меню поиска
Выбрав пункт «сортировка», появляется меню в котором можно отсортировать указанный файл по необходимому полю (рисунок 2.4.5.).
Рисунок 2.4.5. (меню сортировки)
При выборе пункта удаление нам необходимо ввести имя файла, из которого нужно удалить строку, и номер строки которую необходимо удалить.
ЗАКЛЮЧЕНИЕ
Паскаль хорош тем, что в нем можно создавать прикладные программы, работающие в реальном времени, предлагая богатую среду программирования, которая делает разработку программ более производительной и более приятной. Именно по этому я выбрал данный язык программирования для своей курсовой работы.
Подобрал и изучил материал по теме «Строковые и символьные типы данных».
Реализовал программу «Результаты соревнований» на языке программирования Паскаль. Программа выполняет следующие действия: создание файла, просмотр содержимого файла которое выводится в виде таблицы, дополнение файла новыми записями, поиск и сортировка по любому указанному полю, удаление любой строки файла.
Для удобства и простоты использования, программа реализована в виде меню. Я постарался сделать так, чтобы любому пользователю было удобно и практично использовать мою программу.
Её можно использовать для записей результатов соревнований по плаванию, которые будут храниться в типизированных файлах. Пользователь сможет легко заносить данные в таблицы, редактировать содержимое, удалять не нужные записи, искать и сортировать по необходимому полю.
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
1. Павловская, Т. А. Паскаль. Программирование на языке Турбо Паскаль / Т.А. Павловская. - СПб. – Петербург: 2007. – 317с.
2. Алиев, Ю.А. Практикум по алгоритмизации и программированию на языке Паскаль/ Ю.А. Алиев. – В. – Питер: 2007. – 527с
3. Аронов, В.В. TurboPascal/В.В. Аронов. – БХВ - Петербург, 2004 . – 156с.
4. Алексеев, Е.Р. Турбо Паскаль 7.0/ Е.Р. Алексеев, О.В. Чесноков а.- М.: НТ Пресс, 2007.– 83с.
5. Паскаль [Электронный ресурс].- Типы данных. – Режим доступа: http://www.pascal.ru. – Дата доступа 02.06.2010