Главная/

Программирование, базы данных. /

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

domains

        Str=string

        Int=integer

        ФИО=фиЃEStr,Str,Str)

        ОЦЕН=ъGен(Int,Int,Int)

database - студенЃE
           студенЃEInt,ФИО,Int,Int),

database - абитурЃEыQ

           абитурЃEыQ(Int,ФИО,Str,Int,ОЦЕН)

predicates

        begin

        main_menu

        autoload

        accept(Int)

        acp(Int,Int)

        working(Int)

        correct(Int)

        view(Int)

        skip(Str,Str,Str)

        skip1(Str,Int,Int)

        ask

        mesage

        error

        io_error

        ok

        save_bd(Int)

        load_bd(Int)

        repeat

goal

        begin.

clauses

/* ОсньAъья ЃEъGедурЃE*/

      begin:-

           makewindow(1,26,94,"СПИСОК АБИТУРЬЕНТОВ",0,0,25,80),

            clearwindow,

            autoload,

            main_menu.

/* ГЃEвньD ЃEЃE */

      main_menu:-

            repeat,

            cursor(7,0),

            write("                       0 - О системЃE..  "),nl,

            write("                       1 - КъAреЃEирьAЃE даыLых"),nl,

            write("                       2 - УыGчтьEение заЃEсеЃE),nl,

            write("                       3 - ПросмъCЃEбазы"),nl,

            write("                       4 - ЗагрузкЃEбазы"),nl,

            write("                       5 - СъFраыDыGЃEбазы"),nl,

            write("                       6 - СьFдаыGЃEыMвоЃEбазы"),nl,

            write("                       7 - ВыхьC из ЃEьBраЃEЃE),nl,

            write("                       =>"),

            readint(C),

            clearwindow,

            working(C),

            clearwindow,

            C = 7,

            retractall(_),

            removewindow.

/* Процедура автоЃEтическьH загрузЃE базы даыLых */

      autoload:-

            retractall(_,абитурЃEыQ),

            existfile("bit.dat"),

            consult("bit.dat",абитурЃEыQ),

            cursor(21,30),

            write("*БазЃEзагруженЃE").

      autoload:-

            makewindow(2,74,79,"ОШИБКА",6,18,8,40),

            cursor(2,10),

            write("Нет базы ъь дискЃE),

            sound(70,294),

            removewindow,

            !.

/* ВывьC даыLых ЃEсоздателЃEЃEьBраЃEЃE*/

      working(0):-

            makewindow(3,27,30,"О системЃE..",0,0,25,80),

            nl,nl,

write("                     ИыSыЌЃEциЃEыM-спpавъHъья системЃE),

            nl,nl,

write("                            СЃEсоЃEабитурЃEыQьA     "),

            nl,nl,nl,nl,

write("                        ПрограмЃE составЃEъь ЃEсредЃE