Коммерциялық банктердің автоматтандырылған анықтамалығын құру және Turbo Pascal тілінде іске асыру

 ҚАЗАҚСТАН РЕСПУБЛИКАСЫНЫҢ ҒЫЛЫМ ЖӘНЕ БІЛІМ МИНИСТРЛІГІ ТҰРАР РЫСҚҰЛОВ АТЫНДАҒЫ ҚАЗАҚ ЭКОНОМИКАЛЫҚ УНИВЕРСИТЕТІ «Қолданбалы информатика» кафедрасы Курстық жұмыс Тақырыбы: Оқытушы: Миркасимова Т.Ш. «___»_________2005ж Орындаған: Керімбаева Ж.Н. Мамандығы: 050703(АЖ) Тобы: АЖЭ-103 Алматы 2005ж. Мазмұны Кіріспе . . . . . . . Негізгі бөлімі . . . . . . Есептің берілгені . . . . .. . 2.1 Есептің алгоритмі . . . . .. 3. Программаның жазылуы. . . . .. . 4. Енгізілген мәліметтер және шыққан нәтиже. . Қорытынды. . . . .. . . . Қолданылған әдебиеттер. . . . .. . . Кіріспе Қазіргі кезде ХХІ ғасыр технологияның дамуы, техниканың Автомат (грек. аutomatos - өздігіен жұмыс атқаратын) Автоматты басқару – қандай да бір оъектіні (машинаны, Басқару мақсаты – басқарылатын объектінің реттелу шамасының уақыт Өзара әркетке түсетін басқару қондырғылары мен басқарылатын объектілер ХХ ғасырдың 50-жылдарында өндірістік процестер мен өнекәсіптік кешендерді Автоматтандыру – техникалық құрал-жабдықтарды, сондай-ақ энергияны, материалды және Онда: 1) технологиялық, энергетикалық, көліктік, тұрмыстық-өндірістік процестер; 2) Күрделі агрегаттарды, кемелерді, ғарыш кемелерін, өндірістік құрылыстар 3) Цехты, мекемені, сондай-ақ әскери құрамалар мен бөлімшелерді 4) Ғылыми-зерттеулер, медициналық және техникалық диагностикалау сапасын жақсарту, 1. Негізгі бөлімі Бұрын банк өзінің кешенді автоматтандыру жүйесін құрған кезде 90-жылдардың соңында банкті автоматтандыру кешенінің өнімін аз қолданатын Ең өкініштісі технологиялық жоспарда құрылымның артта қалып қоюы Алайда банктердің көбеюіне байланысты олардың арасындағы бәсеке өсті Банктің іс-әрекетін автоматтандырудың тиімділігі – күрделі сандармен жұмыс 2. Есептің берілгені Коммерциялық банктердің автоматтандырылған анықтамалығын құру. Ондағы берілетін мәліметтер Бұл есепті шығару үшін Turbo Pascal тілін Берілген тапсырманы орындау үшін Turbo Рascal тілін пайдаланамыз. 2.1. Программаның алгоритмі Zapis программасын қарастырайық. Бұл программада банктің салымдарының ең for i:=1 to n-1 do қайталама параметрлі циклын Егер қойылған шарт орындалса, онда табылған банк туралы End – программаның соңы. 3. Программаның баяндалуы Program Zapis; uses crt; const n=2; type bank=record Naimen,Adr,for_sops:string; god_proc:integer; end; var vklad:array[1..n] of bank; i,j:integer; c:bank; begin clrscr; writeln('є Dobro pozhalovat" my rady videt vas! writeln('VVod dannyh > '); readln; for i:=1 to n do with vklad[i] do Begin write('° Vvedite Naimenovnie: '); readln(Naimen); write('° Vvedite adres: '); readln(adr); write('° Vvedite formu soppstvennosti :'); readln(for_sops); write('° Vvedite Godovye procenty dlia skladov:'); readln(god_proc); end; for i:=1 to n-1 do for j:=i+1 to n do if vklad[i].god_proc