Разработка информационно-поисковой системы

hours, strdig); repeatsetcolor (txt, back);gotoxy (x+28,y+4); write ('Hours');inputstr (x+36,y+4,15,0,strdig, digits, 3);val (strdig, p[index]. hours, code); until (code=0); str (p[index]. students, strdig); repeatsetcolor (txt, back);gotoxy (x+2,y+6); write ('Students');inputstr (x+16,y+6,15,0,strdig, digits, 3);val (strdig, p[index]. students, code);until (code=0); strtmp:=''; str (p[index]. date:2,strdig);strtmp:=strtmp+strdig+''; str (p[index]. month:2,strdig);strtmp:=strtmp+strdig+''; str (p[index].

year:2,strdig);strtmp:=strtmp+strdig; repeatsetcolor (txt, back);gotoxy (x+2,y+8); write ('DateMonthYear');inputstr (x+25,y+8,15,0,strtmp, digdot, 14); until (validdate (strtmp, p[index]. date, p[index].month, p[index].year)); setcolor (txt, back);gotoxy (x+2,y+10); write ('Press E (for Exam) or Z (for Zachet');repeat cc:=readkey; until (upcase (cc)='E')or (upcase (cc)='Z'); if upcase (cc)='E' then p[index]. exam:=true else p[index]. exam:=false;end;procedure addrec (var a: recarray;var k: integer;var alloc_size:longint);beginif (k>maxsize) then begin status (12,0,'Memory allocation failed'); exit;end;editrec (editx, edity, 14,9,true, a, k, k);inc (k);end;procedure delrec (var a: recarray;index:integer;var k: integer);var i: integer;beginif (k 0) then begin loadfile:=false;exit; end;k := filesize (f); if (k>maxsize) then begin status (12,0,'Memory allocation failed'); loadfile:=false;exit; end;{$I-}blockread (f, a, k); close (f);{$I+}loadfile:=(IOresult=0);end;function savefile (fname:string;var a: recarray;k:integer):boolean;var f: file;begin{Si-}assign (f, fname);rewrite (f, recsize); blockwrite (f, a, k);close (f);{$I+} savefile:=(IOresult=0);end;procedure inputstr (x, y, txt, back: integer;var str, allow: string;maxsize:integer);var i, j, k:integer; c, c1: char;beginsetcolor (txt, back); c:=#0;if (str[0]=#0) then k:=0 else k:= length (str);while (c ENTER) do begingotoxy (x, y);for i:=0 to maxsize-2 do write (' ');gotoxy (x, y);write (str);c:= readkey; if (c =#0) then c1:= readkey;if (pos (c, allow) 0) thenif (k 0) then begindec (str[0]);dec (k);end;end;end;{{{{{{{{{{{{{}function validdate (str:string;var date, month, year: word):boolean;var i: integer;begin if length (str) 0) and (date 0) and (month 0);end;{{{{{{{{{{{}procedure infoline (var p: recarray; size, date, month, year: integer);var exm, zach, y, i, j, k, s: integer;type sets=array[1.50] of integer; strings=array[1.50] of string[12]; var groups: sets; prepods, subj: strings; sum, topprep, topexams, ngroups, nprepods, nsubj: integer;function inintset (a:integer;b:sets;size:integer):boolean;var i: integer;beginif size topexams then begin topexams:=sum;topprep:=i;end; end; gotoxy (2,y+1); write ('Prepod ', prepods[topprep],' max exams-', topexams); gotoxy (2,y+2); write ('List of subj (zachets)-'); for i:=1 to nsubj do for j:=0 to size-1 do if (p[j]. discipline=subj[i])and (not p[j]. exam) then begin write (subj[i],' ');break; end; gotoxy (2,y+3); write ('List of group (exams)in curr date-'); for i:=1 to ngroups do for j:=0 to size-1 do if (p[j]. group=groups[i])and (p[i].exam)and (p[i].date=date)and (p[i].

month=month)and (p[i].year=year) then begin write (groups[i],' ');break; end; exm:=0; zach:=0; gotoxy (2,y+4); write ('Total students on examszach-');for i:=0 to size do if p[i]. exam then exm:=exm+p[i]. students else zach:=zach+p[i]. students; write (exm,'', zach);end;procedure zastavka;var i, x, y:integer;begin randomize; for i:=1 to 2000 do begin x:=1+random (80); y:=1+random (24); gotoxy (x, y);setcolor (1+random (15), 1+random (15)); write (chr (1+random (31))); end;setcolor (1,14);window (3,1,76,21,'');writestring (8,2 ,'Students');writestring (4,13,'term work');repeat until keypressed;while keypressed do i:=ord (readkey);setcolor (15,0);end;{————————}procedure setcolor (c, b: integer);begin textcolor (c mod 256); textbackground (b mod 256);end;procedure clearline (i:integer);begin gotoxy (1,i); for i:=1 to 80 do write (' ');end;procedure window (x1,y1,x2,y2:integer; header: string);var i: integer;begin for i:=x1 to x2 do begin gotoxy (i, y1);write ('Д'); gotoxy (i, y2);write ('Д'); end; for i:=y1 to y2 do begin gotoxy (x1,i);write ('і'); gotoxy (x2,i);write ('і'); end; gotoxy (x2,y1);write ('ї'); gotoxy (x1,y2);write ('А'); gotoxy (x2,y2);write ('Щ'); gotoxy (x1,y1);write ('Ъ'); gotoxy ((x2+x1-length (header))div 2, y1); write (header);end;procedure floodwindow (color, back, x1, y1,x2,y2:integer; header: string);var i, j: integer;begin setcolor (color, black); for i:=y1 to y2 do begin gotoxy (x1,i); for j:=x1 to x2 do write (' '); end; window (x1,y1,x2,y2,header);end;{————————}beginend.