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);; 2;;
: i: = d;;; password;: string;: integer; 1;: = 0;;
: write ('Pojaluista, vvedite parol:');: = e + 1; [e]: = readkey; ord (c [e]) = 13 then ('*'); (ord (c [e ]) = 13); (''); (c [1] = '0 ') then (' Parol prinyat ..... Najmite lyubuyu klavishu chtoby prodoljit. ');; (' PAROL `HE BEPEH! ');: = 0; (''); ('Vy hotite prodoljit? ... Y-da, N-net'); (choice);; (choice = 'y') or (choice = 'Y') then1: = 'n ';;; listrecord;: stdname;, h: integer;, seperator2, seperator3, keys1: char;, stdnum1, semester1: real; 1, 2; j: = 1 to 50 do (''); (' Eto spisok vseh zapisey v base dannyh. '); (indata1); not eof (indata1) do (indata1, stdnum1, seperator, semester1, seperator2, gpa1, seperator3, name1); (name1); (stdnum1); (semester1); ( gpa1); ('Student #', stdnum1: 1:0); ('Student Name', name1); ('Semester', semester1: 1:0); ('GPA', gpa1: 1:2); ( ''); ('Jmite lyubuyu klavishu ... ili dlya vyhoda');: = readkey; (keys1 = 'x') or (keys1 = 'X') then1; h: = 1 to 50 do (' ');;
: writeln ('ending');; editrecord;, n: real;: char;, h2, h3, f1, d, h4, h: integer; 1, 2, 3, 4,5;: = i ;: = 1;; (indata1); ('Vvedite nomer studenta dlya redaktirovaniya:'); (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, seperator); (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;: = 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 (indata1); (class [f1]. stdnum); (class [f1]. semester); (class [f1]. gpa); (class [f1]. name); (indata1, class [f1]. stdnum: 4:0, ''); (indata1, class [f1]. semester: 1:0, ''); (indata1, class [f1] . gpa: 1:2, ''); (indata1, class [f1]. name);; (indata1);;; ('Student #:', class [h4]. stdnum: 1:0); (' Student Imya: ', class [h4]. name); (' Kurs: ', class [h4]. semester: 1:0); (' GPA: ', class [h4]. gpa: 1:2); ( '');: = 1; ('Vvedite znachenie zanovo!'); ('Student #:'); (class [i]. stdnum); ('Student Imya:'); (class [i]. name) ; ('Kurs:'); (class [i]. semester); ('GPA:'); (class [i]. gpa);
: reset (indata1); ...
