not eof (indata1) then (indata1, n); n = class [i]. stdnum then ('Odinakovye nomera studentov zapresheny!'); ('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> 4.0) or (class [i]. gpa <1.0) then ('Oshibka .... Vvedite zanovo GPA:'); (class [i]. gpa); 4;;; 2;
: i: = d;;; deleterecord;: integer;: char; t: = 1 to 50 do (''); ('VNIMANIE - Eto privedet k udeleniyu vseh zapisei v base dahhyh!); (' Do yo want to continue '); (choice); (choice =' y ') or (choice =' Y ') then (indata1); (indata1); (' Baza dannyh byla uspesho udalena! ');;; databaser; : stdname;; ('Vvedite put `k failu bazy studentov (.. base.txt):'); (path3); (indata1, path3);; backup1;: stdname;; ('Sozdanie rezervnoi kopii dannyh.' ); ('Please enter the path of the databse text file to backup data'); ('>>>'); (name1); (backup, name1);: = В«; (backup); (indata1 ); not eof (indata1) do (indata1, name1); (backup, name1);; (''); (''); ('Rezervnoe kopirovanie uspeshno zaversheno!'); (indata1); (backup); ( 'Jmite lyubuyu klavishu dlya prodoljeniya:');;; starter;: char; (driver, mode, directory); (10,10, getmaxx - 10, 165); (140,15, '6 A 3 ADAHH bI XCTYDEHT bI . '); (135,45,' BbI6EPITE nyHKT, HA) I (ATuEM COOTBETCTBYI-0LLLEu K/ ABuLLIy '); (12, 75,' [N] - Novaya Zapis [E] - Redaktirovanie [L] - Spisok [D] - Udalit zapis [S] - Poisk '); (12,110,' [C] - Udalenie bazy [H] - Izmenenie Basy [B] - Rezervnoe kopirovanie [X] - EXIT '); (17, 135,' ABTOP: Kovriga Yuriy, KEBP-KEUK, gr.IS-33. Karaganda-2011 ');: = readkey; (data =' n ') or (data =' N ') then;;;; (data =' h ') or (data =' H ') then;;;; (data =' e ') or (data =' E ') then;;;; (data =' l ') or (data =' L ') then;;;; (data = 'c') or (data = 'C') then;;;; (data = 's') or (data = 'S') then;;;; (data = 'x ') or (data =' X ') then: = 0;; (data =' d ') or (data =' D ') then;;;; (data =' b ') or (data =' B ' ) then;;;;;; (choice = 'n') then3;;;: = 1;: = 1; unchangeable> = 1 do;;
: writeln ('');.
Висновок
У курсовій роботі була поставлена ​​задача розробки бази даних В«СтудентиВ», яка дозволяла б проводити операції з даними студентів, тобто реєстрацію студентів в базі даних, а також видалення, зміна, резервне копіювання інформації про студентів.
Для досягнення поставленої мети був складений основний алгоритм роботи програми, а також розроблені алгоритми допоміжних процедур.
Для реаліза...
