ҚАЗАҚСТАН РЕСПУБЛИКАСЫНЫҢ ҒЫЛЫМ ЖӘНЕ БІЛІМ МИНИСТРЛІГІ
ТҰРАР РЫСҚҰЛОВ АТЫНДАҒЫ ҚАЗАҚ ЭКОНОМИКАЛЫҚ УНИВЕРСИТЕТІ
«Қолданбалы информатика» кафедрасы
Курстық жұмыс
Тақырыбы:
Студентердің контингентін автоматтандыру
Оқытушы:
Миркасимова Т.Ш.
«___»_________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