Жоғары оқу орындарының студенттік контингентін автоматтандыру: жүйені жобалау және Turbo Pascal тілінде іске асыру

 ҚАЗАҚСТАН РЕСПУБЛИКАСЫНЫҢ ҒЫЛЫМ ЖӘНЕ БІЛІМ МИНИСТРЛІГІ ТҰРАР РЫСҚҰЛОВ АТЫНДАҒЫ ҚАЗАҚ ЭКОНОМИКАЛЫҚ УНИВЕРСИТЕТІ «Қолданбалы информатика» кафедрасы Курстық жұмыс Тақырыбы: Студентердің контингентін автоматтандыру Оқытушы: Миркасимова Т.Ш. «___»_________2005ж Студент Смайлова М.М. Мамандығы: 050703(АЖ) Тобы: АЖ-104 Алматы – 2005ж. Мазмұны КІРІСПЕ 3 1. Негізгі бөлімі 5 2. Есептің берілгені 7 2.1. Программаның алгоритмі 9 3. Программаның жазылуы 12 4. Енгізілген мәліметтер және шыққан нәтиже 15 Қорытынды 16 Қолданылған әдебиеттер 17 КІРІСПЕ |Ғылыми прогресс - білімнің жоғарылауымен және ақпарат көлемінің Автоматтандыру – техникалық құрал-жабдықтарды, сондай-ақ энергияны, материалды және Онда: 1) технологиялық, энергетикалық, көліктік, тұрмыстық-өндірістік процестер; 2) Күрделі агрегаттарды, кемелерді, ғарыш кемелерін, өндірістік құрылыстар 3) Цехты, мекемені, сондай-ақ әскери құрамалар мен бөлімшелерді 4) Ғылыми-зерттеулер, медициналық және техникалық диагностикалау сапасын жақсарту, Жалпы автоматтандыру - адамды материалдар, ақпараттарды жеткізу, өңдеу, Автоматтандырудын арқасында адамдар үлкен фирмалардағы тауарларды, мекемелердегі құжаттарды, Автоматтандырудың мақсаты - еңбек өнімділігі мен өнім сапасын Автоматтандыру – ғылыми-техникалық прогрестің басты бір бағыты. Автоматтандырудың екінші бір пайдасы: уақытты үнемдейді және де Автоматтандыру дәрежесі – автоматтандыру құралдарын пайдаланып орындалатын операциялар 1. Негізгі бөлімі Үлкен оқу мекемелерінде студенттер жайлы мәліметтерді тез тауып, Студенттер туралы автоматтандырылған анықтаманы жасау – еліміздегі жоғарғы Оқу орындарының ақпараттарын автоматтандырумен қамтамасыз ету статистикалық есептерді Жасалынған жоба студенттердің қандай да бір ретпен берілген Автоматтандырылған жобаны қолдану, жоғары оқу орындарының студенттерінің жалпы Автоматтандырылған жобаның тиімділігі: қажетті жұмыс күшін азайтып, шығынды Студенттердің контингентін автоматтандырудағы біздің мақсатымыз: өте аз уақыт 2. Есептің берілгені Студенттердің контингентін автоматтандыру, яғни студенттердің аты – жөні, Студенттердің контингентін автоматтандыру үшін бізге: фамилясы, туған Алгоритм бойынша шешу үшін Turbo Рascal тілін пайдаланамыз. Программа құрылымында жазба типі келесі түрде баяндалады: TYPE NTYPE=RECORD ID11, …, ID1N:TYPE_1; IDK1,…,IDKN:TYPE_2 END; Мұндағы TYPE, RECORD,END Паскаль тілінің түйінді Сонымен катар, Құрамды аттардың жазуын ықшамдау үшін WITH WITH R DО P; Мұндағы R – ол жазба типті айнымалының атауы. WITH нұсқауларын қолданғаннан кейін Р нұсқауларда R жазбаның 2.1. Программаның алгоритмі Программа түсініктемеден басталады. Екінші жолда program өзекті сөзінен Олар: FAMILIA – студенттердің аты-жөні. Ол мәтіндік шама Программада пайдаланылатын көмекші идентификаторлар Var түйінді сөзінен кейін Программаның 15-ші жолынан бастап Begin негізгі бөлімі келтірілген. Zzz белгінсін орнату. Z1 идентификаторының мәнін жалған деп If егер k=1 болса, яғни 1 батырмасын Қайтадан шарт қоямыз. If егер біз енгізген мәлімет End – программаның соңы. Студенттердин контингентин автоматтандыру аякталды. 3. Программаның жазылуы Program zzzStud; uses crt; const n=4; label zzz; type student=record familia:string[30]; god:integer; gruppa:string[15]; oblast:string[20]; end; var c:array[1..n] of student; i,k:integer; z:string; z1:boolean; begin clrscr; writeln('Vvedite dannie'); for i:=1 to n do with c[i] do begin writeln('VVedite familiu'); readln(familia); writeln('VVedite god rojdenia'); readln(god); writeln('VVedite gryppy'); readln(gruppa); writeln('VVedite oblast'); readln(oblast); end; zzz: z1:=false; writeln; writeln; writeln('### 1.Spisok ###'); writeln('### 2.Oblast ###'); writeln('### 3.Vihod ###'); writeln; writeln('Vvedite 1 ili 2 ili 3'); readln(k); if k=1 then begin clrscr; for i:=1 to n do begin with c[i] do writeln(familia,' ',god,' ',gruppa,' end; end else if k=2 then begin writeln('Vvedite oblast'); readln(z); for i:=1 to n do begin if c[i].oblast=z then begin z1:=true; writeln(c[i].oblast,' ',c[i].god,' ',c[i].gruppa,' end; end; if z1=false then writeln('S etoi oblasti stydenta net'); end else if k=3 then exit; goto zzz; end. 4. Енгізілген мәліметтер және шыққан нәтиже Қорытынды Жоғарғы оқу орындарының жұмысын жеңілдету үшін автоматтандырылған басқару Осы курстық жобаның тапсырмасы – қандай да бір Бұл курстық жұмыстың студенке берген пайдасы көп болды. Қорыта келе, автаматтандырылған жүйелер адамзат өмірінің ажырамас бөлшегіне Қолданылған әдебиеттер Фаронов В. В. Turbo Pascal 7.0 – Москва, издат. «Нолидж», 2000 Turbo Pascal – Интернет-руководство. Чинер Р. Язык Турбо Си. «Мир», 1991 г. Немнюгин С. Pascal: Учебный курс. Санкт-Петербург: "Питер", Рюттен Т., Франкен Г. Turbo Pascal 7.0. Киев: Уэйт М., Прата С., Мартин Д. Язык СИ. www. Google.ru www.rambler.ru 17