GoToXY (16,6); writeln ( ********************************************** *** );
GoToXY (23,8); writeln ( Побудувати файл - 1 ); (23,9); writeln ( Переглянути файл - 2 ); (23,10); writeln ( Сортувати за прізвища вгору - 3 ); (23,11); writeln ( Сортувати за прізвища вниз - 4 ); (23,12); writeln ( Сортувати по групі вгору - 5 ); (23,13); writeln ( Сортувати по групі вниз - 6 );
writeln; GoToXY (23,14); writeln ( Вихід - 0 );
writeln ;; GoToXY (20,20); write ( Введіть пункт меню від 0 до 6: );
x:=whereX; y:=whereY; GotoXY (x, y); ClrEol; readln (pm); until pm in [ 0 .. 6 ]; pm of
1 :P_sozd;
2 :Begin clrscr; p_vivod; end;
3 :Begin clrscr; p_sort; end;
4 :Begin clrscr; p_sort2; end;
5 :Begin clrscr; p_sortgr; end;
6 :Begin clrscr; p_sortgr2; end ;; pm= 0 raquo ;;.
unit ch_tip; {модуль ch_tip основних описів}
interfacestud=record, im, ot, gr: string;: array [1..10] of byte ;; fs: file of stud;: stud; z, i, x, y: byte;
implementation.
unit ch_priv; {Модуль ch_priv, що містить підпрограму вітання користувача}
interfacecrt; p_priv; p_priv ;; textcolor (15); (32,6); Writeln ( КУРСОВИЙ ПРОЕКТ );
GoToXY (36,8); Writeln ( на тему: ); (22,9); Writeln ( Програма сортування файлу записів ); (10,10); Writeln ( на прикладі файлу з інформацією про успішність студентів групи ); (47,18); Writeln ( Розробив студент групи ВЕПВ - 301 ); (47,19); Writeln ( Черешнєв Роман Геннадійович ); (37,23); Writeln ( 2 012 ); (20,25); textcolor (30); Write ( Для продовження натисніть - lt; ENTER gt; ) ;;;
end.
unit ch_sozd; {модуль ch_sozd, що містить підпрограму створення нового файлу}
interfacecrt, ch_tip; p_sozd; p_sozd; j: byte; a: stud; (fs, student.dat ); Rewrite (fs);
GotoXY (27,1); writeln ( Введення даних про студентів );
Repeat i:=i + 1; clrscr; ( Введіть прізвище , i, -го студента ); Readln (a.fam); ( Введіть ім'я , i, -го студента ); Readln (a.im ); ( Введіть батькові , i, -го студента ); Readln (a.ot); ( Введіть групу , i, -го студента ); Readln (a.gr ); j:=1 to 10 do
begin ( Введіть , j, -у оцінку , i, -го студента (від 2 до 5) );
x:=WhereX; y:=WhereY; (x, y); clreol; Read (a.oc [j]); a.oc [j] in [2..5]
end; ( Продовжити введення? (так - 1, ні - 0) );
x:=WhereX; y:=WhereY; (x, y); clreol; Read (z); z in [0..1]; (fs, a); (z=0) ;; (fs) ;;.
unit ch_vivod; {модуль ch_vivod, що містить підпрограму перегляду готового файлу}
interfacecrt, ch_tip; p_vivod; p_vivod ;; (fs, student.dat ); Reset (fs);
gotoxy (27,2); Writeln ( Виведення даних про студентів ); i:=6;
gotoxy (3,4); write ( Прізвище ); (20,4); write ( Ім'я ); (33,4); write ( батькові ); (47,4); write ( Група ); (60,4); write ( Оцінки ); not eof (fs) do (fs, a); (3, i); write (a.fam); (20, i); write (a.im); (33, i); write (a.ot); (47, i); write (a.gr); (60, i); for z:=1 to 10 do write (a.oc [i], ); (20,25); textcolor (30); Write ( Для продовження натисніть - lt; ENTER gt; );:=i + 1 ;; (fs); readln;
end;.
unit ch_sort; {модуль ch_sort, що містить підпрограму сортування файлу за прізвищем студентів в алфавітному порядку.}
Interfacecrt, ch_tip; p_sort; p_sort; st, a, b: stud; k, i, j, x, y: byte; n: longint; (fs, student.dat ); reset (fs);:=filesize (fs); i:=0 to n - 2 doj:=i + 1 to n - 1 do (fs, i); read (fs, a); (fs, j); read (fs, b); a.fam gt; b.fambegin st:=a; a:=b; b:=st; (fs, i); write (fs, a); seek (fs, j); write (fs, st) ;;; (fs); clrscr;
GoToXY (22,3); Write ( Файл був успішно відсортований за прізвища ); (25,15); write ( Для виходу натисніть - 0 і lt; Enter gt;: );
x:=whereX; y:=WhereY; GotoXY (x, y); ClrEol; readln (k); until k=0;
end;.
unit ch_sortgr; {Модуль ch_sortgr, що містить підпрограму сортування файлу по групі студентів в алфавітному порядку.}
Interfacecrt, ch_tip; p_sortgr; p_sortgr; st, a, b: stud; k, i, j, x, y: byte; n: longint; (fs, student.dat ); (fs);:=filesize (fs); i:=0 to n - 2 doj:=i + 1 to n - 1 do (fs, i) ; read (fs, a); (fs, j); read (fs, b); a.gr gt; b.grbegin st:=a; a:=b; b:=st; (fs, i); ...
