;Y') thenb: = 1 to 50 do (' '); 23;;;
: for m: = 1 to 50 do (''); ('Net rezultatov poiska!'); (''); (indata1); (''); m: = 1 to x do (indata1, class [m]. stdnum); (indata1, class [m]. semester); (indata1, class [m]. gpa); (indata1, seperator); (indata1, class [m]. name );; (class [x]. stdnum); ('Student Number', class [x]. stdnum: 4:0); (class [x]. name); ('Name', class [x]. name ); (class [x]. semester); ('Semester', class [x]. semester: 1:0); (class [x]. gpa); ('GPA', class [x]. gpa: 1 : 2); (''); (''); 4;
: end; save; (indata1); (class [i]. stdnum); (indata1, class [i]. stdnum: 1:0, ''); (class [i]. semester); (indata1, class [i]. semester: 1:0, ''); (class [i]. gpa); (indata1, class [i]. gpa: 1:2, ''); (class [i]. name); (indata1, class [i]. name); (indata1);; newrecord;, h: integer;: real;, choices: char; 1, 2, 3, 4, 5, 6;
: for t: = 1 to 50 do (''); ('Vvedite v sootvetstvii s ukazaniyami'); ('Student #:'); (class [i]. stdnum); ( 'Student Imya:'); (class [i]. name); ('Kurs:'); (class [i]. semester); ('GPA:'); (class [i]. gpa);
: reset (indata1); not eof (indata1) then (indata1, n); (n); n = class [i]. stdnum then ('Dublikat nomera Studenta zapreshen!'); ( 'Vvedite drugoi nomer studenta:'); (class [i]. stdnum); 5;; eof (indata1);; eof (indata1) then3;
: if (class [i]. semester> 8) or (class [i]. semester <1) thenh: = 1 to 50 do (''); ('Oshibka .... Vvedite Kurs zanovo: '); (class [i]. semester); 3;;
: if (class [i]. gpa> 5.0) or (class [i]. gpa <1.0) then ('Oshibka .... Vvedite GPA zanovo:'); (class [i ]. gpa); 4;;;: = i + 1; ('');
: write ('Primechaniya:'); (choice1); (''); (choice1 = 'y') or (choice1 = 'Y') then1; ('Are You Sure ....'); (choices ); (choices = 'N') or (choices = 'n') then2; delrec; 1, 2;, h2, h3, f1, d: integer;: real;: = i;: = 1;; (indata1 ); ('Vvedite nomer studenta, chtoby ego udalit `!'); (delstd); i: = 1 to 1000 do (indata1, class [i]. stdnum); (class [i]. stdnum); (indata1, class [i]. semester); (class [i]. semester); (indata1, class [i]. gpa); (class [i]. gpa); (indata1, class [i]. name); (class [i]. name); eof (indata1) then: = i; 1;;;
: close (indata1); h1: = 1 to h2 do (class [h1]. stdnum = delstd) then: = h1 - 1; (h3); (indata1); f1: = 1 to h3 do (class [f1]. stdnum); (indata1, class [f1]. stdnum: 4:0, ''); (class [f1]. semester); (indata1, class [f1]. semester: 1:0, '' ); (class [f1]. gpa); (indata1, class [f1]. gpa: 1:2); (class [f1]. name); (indata1, class [f1]. name);;: = h1 + 1; f1: = h3 to h2 do (class [f1]. stdnum); (indata1, class [f1]. stdnum:...
