Информатиканы оқыту әдiстемесiнде бiрiктiрiлген барлық әдiстемелiк педагогикалық бiлiмдер мен тәжiрибелер жиынтығынан "Информатика" курсы бөлiнiп шығады



жүктеу 2,02 Mb.
бет9/9
Дата09.01.2020
өлшемі2,02 Mb.
#26128
түріПрограмма
1   2   3   4   5   6   7   8   9
3 экономикалық бөлім
3.1 Жүйені құруға және еНгізуге кеткен шығын есептеулері
Delphi ортасында Информатика пәні бойынша электрондық оқулық құру туралы дипломдық проектісі техникалық-экономикалық көрсеткіштерге сүйене отырып жасалынды. Бағдарламалық қамтамасызданудың натуралдық эффектісі келесі көрсеткіштерден тұрады:

- бағдарламалық қамтамасыздануға кететін капиталды шығындар;

- жылдық эксплуатациялық шығын экономиясы;

- бағдарламалық қамтамасыздануға кеткен капиталды шығындар;

Жүйе шығындарының құрылу есебі келесі формула арқылы есептелінеді:

С = Сктс + Салг + Сотл + Свн,

Сктс – техникалық құралдар комплексіне кеткен шығындар;

Салг – алгоритмді құруға кеткен шығындар;

Сотл – жазуға және жөңдеуге кеткен шығындар;

Свн – еңгізуге кеткен шығындар;

1) Техникалық құралдар комплексіне кеткен шығындар

Сктс = Скомп. + Сприн. + Сббп,

Скомп. = 90500 тенге – компьютер бағасы (Intel Pentium IV 700/RAM 128 Mb/HDD 20 Gb/ CD-ROM 52X/ Monitor 17");

Сприн. = 37500 тенге – принтердің бағасы (SAMSUNG ML-1210, A4, 8ppm, 600*600dpi, 2MB, 20 pages в мин);

Сббп = 46000 – питания блогы STI K 600 UPS; Сктс = 15000 тенге ;

Сктс =143000

2) Алгоритмді құруға кеткен шығындар есебі

Салг = Зп.разр.*Кол.*В + От, Мұндағы Зп.разр.=1500 тенге–құрушының еңбек ақы мөлшері; Кол. = 1 – алгоритмді құрушылар саны;

В = 7 күн - алгоритмді құруға кеткен уақыт;

От = 20% - программисттің әлеуметтік сақтандырылуына кеткен айлық мөлшерінің бөлімі;

Бұдан келесі есептеу келіп шығады: Салг = 1500*7+2100=12600.

3) Бағдарлама жазу мен жөңдеуге кеткен шығындар:

Сотл. = Котл. + Кз.п.,

мұндағы


Котл. – бағдарламаны жөңдеуге кеткен машиналық уақыт;

Кз.п. – бағдарлама жазумен айналысатын программисттің төлем ақысы;

q = 150 теңге – машиналық уақыттың бағасы.

Квн = 7*15*150 = 15750 теңге

Б) Кз.п. = Км * Оразраб.*Кол. + отч.,

мұндағы Км = 25 күн –құруға кеткен күндер саны;

Оразраб. = 1500 тенге – программисттің бір күн ішіндегі айлық мөлшері;

Кол. = 1 адам. – бағдарлама құрушылар саны; отч. = 20% бағдарлама құрушының айлық мөлшерінің бөлігі;

з.п. = 25*1500+7500=45000 сонда: Сотл. = 1500+45000=46500

4) бағдарлама еңгізуге кеткен шығындар

Свн = Квн + Зп.вн.,мұндағы

Квн. – еңгізуге кеткен машиналық уақыт;

Зп.вн. – еңгізу кезіндегі программисттің айлығы.

Квн – есептелуі келесі түрдей болады:

Квн = К * d * q,

мұндағы К = 5 - бір күнде ЭЕМ мен жұмыс істеуге кеткен уақыт;

d = 16 күн – ЭЕМ-да жұмыс істеуге кеткен күндер;

q = 150 теңге – машиналық уақыт бағасы.

Квн = 5*16*150=12000

Б) Программисттің еңгізу уақытындағы айлығы келесі формуламен есептелінеді: Зп.вн. = Qвн. * d / Д + отч.,

Мұндағы

Qвн. = 16000 тенге – программисттің еңгізу уақытына кеткен айлық мөлшері;



d = 16 күн – ЭЕМ мен жұмыс істеуге кеткен күндер;

Д = 25 күн – бір айға кеткен жұмыс күндері;

отч. = 20% - программисттің әлеуметтік-сақтандырылуына кеткен айлық мөлшерінің бөлігі;

Зп.вн. = 16000 * 16 / 25+2048 = 13684.36 теңге.

Сонда бағдарлама еңгізуге кеткен шығын келесі сумма бойынша анықталады: Свн = 12000+13684.36=25684.36

Енді алынған есептеулерден жүйені құруға кеткен шығын есептеулерін шығаруға болады:

С = 143000+12600.+ 46500+25684.36=227784.36

3.2 Экономикалық сферасының есептеулері
1. Бағдарламаны қолдануға байланысты эксплуатациялық шығындар есептеулері

Еэкспл. = Тмв * Sм, мұнда

Тмв = 7*288 = 2016 сағат – ЭЕМ ді қолдану уақыты;

Sм = 150 теңге – машиналық сағаттың бағасы.

Еэкспл. = 2016*150 = 302400 теңге.

2. Жылдық эксплуатациялық шығындар үнемділігі:

d Еэкспл. = ( (1+Wo) * (1+Wq) * Вз.пр - Еэкспл. ),

мұнда


Еэкспл. = 302400 теңге – бағдарламаны қолдануға байланысты эксплуатациялық шығындар;

Wo = 1,35 – ай сайын айлыққа қаражат түсуі;

Wq = 1,65 –қосымша айлықты ескеретін коэффициенті;

Қызметкерлердің қолмен еңбек ету айлығы:

Вз.пр = 485000

d Еэкспл. =1,35*1,65*485000-302400=777937.5

3. Өтелу мерзімі:

Т = С / d Еэкспл.

Т = 227784.36/777937.5=0.29*12=3,48

4. Бағдарлама құны:

S = Sр.п. / N,

Мұндағы Sр.п. = С =227784.36

N = 1 – бағдарлама қолданылатын бөлімдер саны.

S = 227784.36/ 1 = 227784.36теңге.

5. Пайда құны:

P=q*g, мұндағы q-диск саны 250, g- дисктың құны 7000, P –пайда құны.

P=250*7000=1750000 теңге

6.Табыс көзі:

K=P- d Еэкспл.

d Еэкспл.*20/100=A

Ta=K-A Мұндағы Ta-жалпы табыс көзі

K=1750000-777937.5=972062.5

A=777937.5*20/100=155587.5

Ta=972062.5-155587.5=816475




Бизнес-жоспар бөлімі
1 Аннотация
Бизнес-жоспар тақырыбы: «Delphi бағдарламалау ортасында «Информатика» пәні бойынша электрондық оқулық құру».

Мекен-жайы: Шымкент қаласы, Самал 2, уч 1808 .

Кіммен жасалған: Жамалбекова Айнұр Көмекбайқызы

Бизнес сферасы: бағдарламалық қамтама құру

Қызметтің негізгі түрлері: бағдарламалар құрастыру, «Информатика» кафедрасының студенттерін электрондық оқулықтарымен қамтамасыздандыру.

Басталу мерзімі: 2006 жыл

Бизнес-жоспар қандай мерзімге есептеліп жасалған: 7 ай
2 Резюме
Дипломдық жоба тақырыбы: «Delphi бағдарламалау ортасында «Информатика» пәні бойынша электрондық оқулық құру». Бұл дипломдық жобада «Информатика» кафедрасын «Информатика» пәні бойынша электрондық оқулық құрумен қамтама құрастырылған. Құрастырылған жоба Delphi бағдарламалау ортасында орындалған. Delphi Windows жүйесінде программалаудың ыңғайлы құралы. Онда көптеген операторларды пайдаланып программа дайындау, программа мәзірін құру, анимация, мультимедия процестерін ұйымдастыру, OLE технологиясын пайдаланып, басқа офистік қосымшаларды шақыру, олармен жұмыс істеу және т.б. іс-әрекеттерді орындауда мүмкін. Көптеген операторлардың жазылуы Турбо Паскальдағы сияқты.

Delphi-де пайдаланылатын оқиғалар және түрлі кластарға, компоненттерге меншіктелгн қасиеттер мәндері көп. Нақты есептерді шешу программаларды құруды үйрену арқылы ғана –де программалауды үйренуге болады. Ол үшін кітапқа енгізілген программаларды іс-жүзінде орындап және оларға түрлі өзгерістер енгізіп, жаттығу да мүмкін. Жетістік тек тәжірбиеге байланысты.

Бағдарламалық өнім диск түрінде және Интернет –дүкендерінде сатылатын болады. Жоспар бойынша келесі жарты жылдықта сату көлемінің мөлшері 250 диск (күндізгі және кешкі бөлімде оқитын студенттерге -120, қашықтықтан оқитындарға - 90).

Жыл бойындағы сату көлемінің мөлшері 250 диск, 7000 теңге әр диск үшін. Бір дисктен көшірудің ағындық шығындары CD-R дисктің тұру бағасына (80 теңге) қосылады, машиналық уақытының құны -150 теңге/сағ, бөлінетін қаржы көлемі – 20% .

Алға қойған мақсатқа жету үшін -777937,5 теңге қажет.

Ол қаражат комплексті техникалық құралдарға -143000 теңге, алгоритмді ендіруге – 12600 теңге, бағдарламаны ендіруге - 227784,36 теңге және откладкаға - 46500 теңге жұмсалады, пайда-1750000, табыс-816475

Несие Туран Алем Банк - тен алынады.

Несие 7 айда толығымен қайтарылады.



3 КӘСІПОРЫННЫҢ СИПАТТАМАСЫ

Негізгі қаржылық көрсеткіштер Кесте 1





Сатып алушылар

Өлшем бірлігі

Мәні

1

БҚ құруға және енгізуге кеткен шығындар

теңге

302400

2

Жыл бойындағы эксплуатациялық шығын


теңге

777937,5

3

Өтелу мерзімі

ай

7

Бұл дипломдық жобада Delphi бағдарламалау ортасында «Visual Basic» пәні бойынша электрондық оқулық құру қарастырылған. Жұмысының негізгі мақсаты – электрондық оқулық құру. Бұл оқулықты пайдаланушы оқи отырып, өзінің қаншалықты түсінгенін білу үшін оған арнайы тест сұрақтарын жасадым.Сонда пайдаланушы өзінің қалай түсінгенін байқайды. Дипломдық жобада мазмұнның қысқаша түсініктемесі беріледі.

Қолданушы инструкциясында бағдарламамен жұмыс істеу негізгі ережелері көрсетілген. Дипломдық жобада осы пән бойынша толық мәліметтер қарастырылған. Жобада ақпараттық жүйенің бағдарламалық және аппараттық қамтамасыздандырылуы қарастырылған. Сонымен қатар, жасалған бағдарламаның бағдарламалық және техникалық іске асырылуы, бағдарламалау тілі мен бағдарламалау ортасы бағдарламалық қамтама үшін таңдау жасалынған.


4 МЕНЕДЖМЕНТ

1. Бизнесте жұмыс істейтін қызметкерлер туралы мәлімет:


Қызметкердің аты-жөні: Толыкбаева Бақытгүл Өмірбекқызы.


Жасы: 25

Мекен-жайы: «Қазғұрт» мөлтек ауданы, С.Мұқанов көшесі, 64 үй

Телефон: 50-13-95

Оның бизнестегі орны қазіргі уақытта ОҚМУ-дің «Ақпараттық технологиялар және жүйелер» факультеті «Информатика» кафедрасының оқытушысы, құрастырушы.

Жалақысы -15000 теңге.

Жұмыс істеу тәжірибесі: «Информатика» мамандығы бойынша жоғары білімі, бағдарлама құрастыру біліктілігі жоғары.

2. Басқарушылық персонал үшін қосымша жағдайлар (жеңілдіктер, қосымша ақы, жолдамалар және т.б.), демалыс үйлеріне жыл сайынғы жеңілдікпен жолдамалар жоспарланып отыр.


5 Өнімнің сипаттамасы
Бұл жобада Delphi бағдарламалау ортасында «Visual Basic» пәні бойынша электрондық оқулық құру тақырыбындағы бағдарламалық қамтаманы құрастыру үшін бағдарламалық және техникалық құралдар құрамы керекті. Бұл бағдарламалық құралдардың қатесіз және дұрыс жұмыс істеуі үшін жүйелік минимальды шарттар құрамы қажетті, олар дипломдық жобаның екінші бөлімінде қарастырылған. Шарттар бойынша компьютер микропроцессордың тактілік жиілігі 400 MHz-тен кем емес, оперативті сақтау құрылғысы (RAM) 32 Mb кем емес, винчестер ең кіші 10 Gb жоғары және операциялық жүйе Windows 9x және жоғары. Техникалық құралдар кешені қажет етілетін талаптарға толық жауап береді.

Delphi программалау тілі-кез келген қосымшаны дайындауға болатын жылдамдығы тез, қуатты тіл.

Delphi –дің бірінші нұсқасы 1994 жылы жарыққа шығып ,кейінгі жылдары оның бірте –бірте кеңейтілген 2,3,4,5,6-нұсқалары жарық көрді. Мысалы, 5-нұсқа 1999 жылы, 6-нұсқа 2001 жылдың мамыр айында жарыққа шықты. 5,6-нұсқалардың бір-бірінен айырмашылығы жоқ деуге болады, екеуі де Windows32 операциялық жүйесінің негізінде дайындалған. Тек, Delphi 6, оған қоса 1991 жылы жарық көрген, салыстырмалы арзан, Linex операциялық жүйесінің негізінде де жұмыс істей алады

Delphi 6-да интернет үшін қосымшаларды дайындау мүмкіндігі кеңейтілген және берілгендер қорымен жұмыс істеуге ұсынылып отырылған кітапқа қарастырылмаған кейбір өзгешіліктер негізілген.

Дәстүрлі Паскаль оқып үйренуге жеңіл және жүйесінде программа дайындауға ең жақсы құрлымдық программалау тілі екендігі белгілі. Delphi –де Паскаль тілінде орындау мүмкін және мүмкін емес күрделі процестерді программалауға болады. Delphi –дің негізгі ерекшелігі - онда қосымша құруда компоненттік және обьектілік тәсілдер пайдаланылады. Бұл программалау техналогиясында нағыз ревщлюция жасады деуге болады. Компоненттік тәсілдің мәнісі жеңіл әр қосымша кітапханасы програмалау ортасында дайындалып, арнайы іс-әрекеттері орындайтын компоненттер элементерінен жинақталады. Delphi-де қоданылатын негізгі кітапхананы визуальды компоненттер кітапханасы деп атайды. Компоненттер панелінде топ – тобымен жинақталған, жүздеген кластарға тиісті, стандартты компоненттер бар. Пайдаланушы жаңа компонент дайындап оны осы панельге қосуына да болады.

Delphi Windows жүйесінде программалаудың ыңғайлы құралы. Онда көптеген операторларды пайдаланып программа дайындау , программа мәзірін құру, анимция, мультимедия процестерін ұйымдастыру , OLE технологиясын пайдаланып ,басқа офистік қосымшаларды шақыру,олармен жұмыс істеу және т.б. іс-әрекеттерді орындауда мүмкін. Көптеген операторлардың жазылуы Турбо Паскальдағы сияқты.



6 МАРКЕТИНГ ЖОСПАРЫ

Бұл бағдарламалық өнімнің нарығы өсуші. Себебі, барлық бұл электрондық оқулық бағдарламасы кез-келген жоғары оқу орындарында қолдануға ыңғайлы бағдарлама болып табылады.

Бұл бизнес бұрын жүргізілмеген және сатылулар болмаған. Бар болса да ірі компаниялар бағдарламалық өнімді толығымен үлкен көлемдегі сомада сатып алған және бағдарламалар сұраныс бойынша құрылған.

Осы мерзімге анық тапсырыс беруші «Информатика» кафедрасы болып табылады.


7 Өндірістік жоспар
Комплексті техникалық құралдарға қажетті қаражат:

Скомп. = 90500 тенге – компьютер бағасы (Intel Pentium IV 700/RAM 128 Mb/HDD 20 Gb/ CD-ROM 52X/ Monitor 17");

Сприн. = 37500 тенге – принтердің бағасы (SAMSUNG ML-1210, A4, 8ppm, 600*600dpi, 2MB, 20 pages в мин);

Сд = 80 теңге - CD-R дискісінің бағасы.

Сдискета = 70 теңге, дискетаның құны.

Машина құны – 150 теңге.

Өнімді өндіруде және оны сату процесін жүзеге асырған басқа ұйымдарға қажеттілік тумайды. Жоғарыда көрсетілген позициялар бойынша шығын – 777937,5.

8 ҚАРЖЫЛЫҚ ЖОСПАР

Қажетті соманы несие түрінде «ТұранӘлемБанк»-тен алу көзделеді. Бағдарламалық өнім білім алу сферасымен байланысты болғандықтан, несиені 20% жеңілдік ставкасымен алуға болады.







Сатып алушылар

Өлшем бірлігі

Мәні

1

БҚ құруға және енгізуге кеткен шығындар

КТҚ-ға кеткен шығындар

Алгоритмге кеткен шығындар

Жазуға кеткен шығындар

Бағдарламаны енгізуге кеткен шығындар


теңге

теңге


теңге

теңге


теңге

302400

143000


12600

46500


227784,36

2

Жыл бойындағы эксплуатациялық шығын

теңге

777937,5

3

Өтелу мерзімі

ай

7

Несиені «Информатика» кафедрасының атынан алғандықтан мекеме кепілдік ретінде үлкен көлемде жылжымайтын мүлікті қоюына болады.

Бағдарламалық өнімдер нарығының дамуына байланысты сату көлемінің төмендеуі байқалмайды. Басқа жағдайда деректерді жетілдіруге болады немесе жаңа бағдарламалық өнімдер шығарылады.

Қысқа мерзімді мақсаты өнімді шығаруды бастау және бағдарламалық өнімнің CD дисктерін тарату.

Болашақтағы мақсат – бағдарламалық өнімнің түрлерін кеңейту және сату көлемін арттыру.


ҚОРЫТЫНДЫ
Диплом жұмысын қорытындыласақ, “Информатика” курсының компьютерлiк оқыту құралын оқу процесiнде пайдалану, оны басқару мен бақылауды жеңiлдетуге, студенттiң курсты игегрудегi ебдейлiгi мен дағыдысының жылдам қалыптасуына және студенттiң компьютермен үздіксіз байланыста болуын қамтамасыз етедi. Компьютерлiк оқыту құралының құрамындағы теориялық материалдар, тапсырмалар, олардың арасындағы интерактивтiлiк пен тақырыптық-логикалық байла­ныстар, қайталанбайтын көпнұсқалы тапсырмалар жоғарыда аталған мақсаттарға жетудiң тиiмдi де қысқа жолы деп санаймыз.

Сонымен “Информатика” курсын компьютерлiк оқыту құралдары:



  • курсты оқудың мақсатымен таныстыру, оның мазмұны мен құрылымын түсiну;

  • курсты игеру мақсатында берiлетiн түрлі деңгейдегi лаборато­рия­лық жұмыстарды орындау;

  • студенттiң түрлі есептердi шешудегi дағды мен ебдейлiгiн қадлыптастыру;

  • эксперименттiк жұмыстар жасау даярлығын қалыптас­тыру;

  • шығармашылық деңгейдегi есептердi шешу қабiлетiн қалып­тас­тыру;

  • iскерлiктi, дағды мен ебдейлiктi бекiту, орнықтыру;

  • курсты игерудегi студенттiң бiлiм деңгейiн объективтi бағалау,

  • т.с.с. педагогикалық мәселелердi шеше алады.

Сонымен қатар компьютерлiк оқыту құралдары дәстүрлі оқыту жүйелерiне қарағанда келесi артықшылықтарға ие: студентке өзiне ыңғайлы уақытта оқу жылдамдығын өз қалауынша таңдауға және оқу материалын өз бетiнше игеруге мүмкіндiк бередi; курс мазмұнындағы зерттелетiн объектiлер мен процестердi көр­некi мульти­медиялық формада бейнелеуге мүмкіндiк бередi; тапсырмалар мен оқу материалдарын оқушының бiлiм деңгейiне сай беру оқыту процесiндегi дараландыру әдiсiн жоғары деңгейде жұзеге асырады; бiлiктiлiк пен дағдыны автоматы түрде бақылау жүйесi оқушының бiлiмiн объективтi түрде бағалауға мүмкіндiк бередi; қайталанбайтын көпнұсқалы және ерекше жағдайларға арналған тапсырмалар жүйесi оқушының шығармашылық қабiлетiн артты­рады.

ТҮЙІН
Зерттеу объектісі: Delphi ортасында «Информатика» пәні бойынша электрондық оқулық құру.

Жұмыстың мақсаты: берілген пәні бойынша электрондық оқулық құру болып табылады. Пайдаланушы электрондық оқулықты қолдана отырып, осы пән бойынша өзінің ой-өрісін дамытады. Ол жердегі тесттер арқылы пайдаланушы өзінің алған білімін тексеріп көреді.

Жұмыстың нәтижесі: Delphi ортасында «Информатика» пәні бойынша электрондық оқулық жайында программа құрылған.

Жұмыстың қолдану облысы: бұл оқулық орта және жоғары оқу орындарында қолданылады.



РЕЗЮМЕ
Объект исследования: Создание электронного учебника по предмету

«Информатика» в среде Delphi .

Цель работы: Создать электронный учебник по предмету «Информатика». Пользователь электронным учебником по тестам может определить уровень своих знании по данному предмету.

Результат работы: Создана программа электронного учебника по «Информатика».

Область применения: в средних и в высших учебных заведениях.


SUMMARY
Object of research: creation of the electronic tutorial in a subject

"Computer science" in environment (Wednesday) Delphi.

The purpose of work: To create the electronic tutorial in a subject "Computer science". The user by the electronic tutorial under the tests can define(determine) a level the knowledge in the given subject.

Result of work: the program of the electronic tutorial till "Computer science" Is created.

Area of application: on the average and in higher educational institutions.

ПАЙДАЛАНЫЛҒАН ӘДЕБИЕТТЕР


  1. Г.Боутон. Внутренний мир AdobePhotoShop. Киев, ДиаСофт, 2000 г.

  2. С.Луций. Изучаем PhotoShop. Спб. 2002 г.

  3. Роуз К. Освой самостоятельно Adobe Photoshop 5.5 за 24 часа. Пер. с англ. – М.:Издательский дом “Вильямс”, 2000

  4. О.Камардинов. Информатика. 1-бөлiм. -Шымкент, 1999.

  5. О.Камардинов. Информатика, 2-бөлiм, -Шымкент, 2000.

  6. Сван Т. Основы программирования в Delphi для Windows 98. Пер. с англ. К., “Диалектика”, 1996

  7. К.З.Халықова. Информатиканы оқыту әдiстемесi. -Алматы. “Бiлiм”, 2000

  8. М.Донской. Интернет и пользовательский интерфейс. Мир Internet. 1999.

  9. М.П.Концевой. “Парадоксы” дидактической наглядности. Education+ Человек. Культура. Общество.

  10. А.И.Башмаков. Компьютерный учебник “Информатика” для дистанционного обучения. Мн. Бестпринт, 2001.

  11. В.В.Волкова. Дизайн рекламы. М.: Университет, 1999.

  12. В.В.Фаронов. Delphi 6. Учебный курс. М. 2001

  13. А.Я.Архангельский. Программирование в Delphi 5, M., ЗАО “Издательство БИНОМ”, 2000

  14. А.Полянский. MS FrontPage 2000. М., 2001

  15. О.Камардинов, Х.Жантелi. Delphi 5-6, -Шымкент, 2002.

  16. С.Бобровский. Delph 5. Учебный курс. М., 2001

  17. Н.Культин. Delphi 6. Программирование на Object Pascal. БХБ-Петер­бург, 2001

  18. О.Камардинов. Turbo C және Turbo C++ тiлдерiнде программалау, Ш., 2005. 87 бет.

  19. Б.Н.Березин, С.Б.Березин. Начальный курс Си С++. М., 1998.

  20. В.В.Фаронов. Delphi 5. Учебный курс. м., 2001

  21. Электронды оқу басылымы туралы Қазақстан Республикасының Мемлекеттік стандарты. Алматы 2002 ж.

  22. КР СТ 1087-2002. Программалық құжаттардың бірыңғай жүйесі. Қолданушының басқармасы. Құрамына, мазмұнына және безендірілуіне талаптар.

  23. КР СТ 34.014.-2002. Ақпараттық технология. Автоматтандырылған жүйелерге стандарттар кешені. Терминдер және анықтамалар.

  24. С. Симонович., Г. Евсеев., Специальная информатика. М. 2002. 479 стр.

  25. Марко Кенту. Delphi 7 для профессионалов. Питер. 2004. 1100 стр.

  26. Молли Э. Хольцшаг. Использование HTML 4. Киев. 2001. 999 стр.


Қосымша
Программа листингі:

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,



Dialogs, jpeg, ExtCtrls, ComCtrls, Buttons, OleCtrls, SHDocVw, ImgList,

StdCtrls, Spin;

type

TForm2 = class(TForm)



Notebook1: TNotebook;

Panel1: TPanel;

Image1: TImage;

b_1: TImage;

Image2: TImage;

Panel2: TPanel;

TreeView1: TTreeView;

Panel3: TPanel;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

Splitter1: TSplitter;

WebBrowser1: TWebBrowser;

ImageList1: TImageList;

b_2: TImage;

Surak: TLabel;

variant1: TLabel;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

variant2: TLabel;

variant3: TLabel;

RadioButton3: TRadioButton;

RadioButton4: TRadioButton;

variant4: TLabel;

RadioButton5: TRadioButton;

variant5: TLabel;

Status: TStaticText;

BitBtn7: TBitBtn;

BitBtn1: TBitBtn;

ScrollBox1: TScrollBox;

Label8: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

SurakMemo: TMemo;

Memo1: TMemo;

Memo2: TMemo;

Memo3: TMemo;

Memo4: TMemo;

Memo5: TMemo;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

SpinEdit1: TSpinEdit;

SpinEdit2: TSpinEdit;

ComboBox1: TComboBox;

Timer1: TTimer;

StaticText5: TStaticText;

Labelresult: TLabel;

BitBtn8: TBitBtn;

StaticText6: TStaticText;

b_3: TImage;

Panel7: TPanel;

LabeledEdit5: TLabeledEdit;

BitBtn5: TBitBtn;

BitBtn6: TBitBtn;

b_4: TImage;

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormCreate(Sender: TObject);

procedure FormResize(Sender: TObject);

procedure b_1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure b_1Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure TreeView1Click(Sender: TObject);

procedure b_2Click(Sender: TObject);

procedure BitBtn7Click(Sender: TObject);

procedure variant1Click(Sender: TObject);

procedure BitBtn8Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure b_3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure b_4Click(Sender: TObject);

private


{ Private declarations }

procedure RefreshMemo(Sender:TObject);

procedure RefreshFileFur(Sender:TObject);

procedure Action1Execute(Sender: TObject);

procedure StClickExecute(Sender: TObject);

public


{ Public declarations }

end;


type

dannie=record // Òåñò³í ÁÊ

ati:shortstring;

procent:string[4];

BarSurSani:word;

Djauap:word;

KalUak:word;

end;


usr=record

ati:ShortString;

password:ShortString;//îíûí ïàðîë³

end;


SurFile=record

N:Integer;

sur:String[255];

j,j1,j2,j3,j4:string[255];

end;

surak=record



sur:string;

no,yes:array[1..7]of string;

end;

surakType=(tizim,caykes,onevariant);



const FileName='\test\data.dat';

var


Form2: TForm2;

bt_name_on,cdir:ShortString;

xWidth,xHeigth:Integer;

FileSur:array[1..500]of SurFile;

AgimdiElement:integer;

ST:surakType;

shoblon:surak;

f,f1:text;

s:string;

psk,ochered:array[1..200]of word;

katarsani,p,brl,uak:word;

Tizim_jauap,suraksani,bal,no_otv,ver,jauap:word;

m:array[1..7]of word;

n:Longint;

implementation

uses unit1;

{$R *.dfm}

procedure TForm2.RefreshMemo(Sender:TObject);

begin

Label8.Caption:='Ñóðàê '+IntToStr(filesur[AgimdiElement].N);



SurakMemo.Lines.Text:=filesur[AgimdiElement].sur;

Memo1.Lines.Text:=filesur[AgimdiElement].j;

Memo2.Lines.Text:=filesur[AgimdiElement].j1;

Memo3.Lines.Text:=filesur[AgimdiElement].j2;

Memo4.Lines.Text:=filesur[AgimdiElement].j3;

Memo5.Lines.Text:=filesur[AgimdiElement].j4;

end;

procedure TForm2.RefreshFileFur(Sender:TObject);



begin

FileSur[AgimdiElement].sur:=SurakMemo.Lines.Text;

FileSur[AgimdiElement].j:=Memo1.Lines.Text;

FileSur[AgimdiElement].j1:=Memo2.Lines.Text;

FileSur[AgimdiElement].j2:=Memo3.Lines.Text;

FileSur[AgimdiElement].j3:=Memo4.Lines.Text;

FileSur[AgimdiElement].j4:=Memo5.Lines.Text;

end;


procedure init;

label 1;


var o,i,j:word;

begin


suraksani:=0;

katarsani:=0;

for i:=1 to 200 do

begin


psk[i]:=0;ochered[i]:=0;

end;


if not(FileExists(cdir+FileName))then

begin


showmessage('Òåñòîâûé ôàéë íå íàéäåí '+'"'+FileName+'"');

Halt;


end;

assignfile(f,cdir+FileName);reset(f);

katarsani:=3;

suraksani:=0;

readln(f,s);

readln(f,s);brl:=strtoint(s);

readln(f,s);uak:=strtoint(s);

while not(eof(f))do

begin

readln(f,s);



katarsani:=katarsani+1;

if s[1]='!'then

begin

suraksani:=suraksani+1;



ochered[suraksani]:=katarsani;

end;


end;

closefile(f);

Randomize;

repeat


for i:=1 to suraksani do

for j:=1 to suraksani do

1: if (psk[i]=psk[j])and(i<>j)or(psk[i]=0)then

begin


Application.ProcessMessages;

Randomize;

psk[i]:=random(suraksani)+1;

goto 1;


end;

j:=0;o:=0;

for i:=1 to suraksani do

begin


j:=j+psk[i];

o:=o+i;


end;

until j=o;

p:=1;

end;


procedure init_one_surak(surakN:word);

var q:word;

begin

assignFile(f,cdir+FileName);reset(f);



for q:=1 to ochered[surakN] do

readln(f,s);

if s='!'then

begin


ST:=onevariant;

readln(f,s);

shoblon.sur:=s;

readln(f,s);

shoblon.yes[1]:=s;

no_otv:=0;

while not(eof(f))do

begin


readln(f,s);

if s[1]='!'then break;

no_otv:=no_otv+1;

shoblon.no[no_otv]:=s;

end;

end;


closefile(f);

end;


procedure TForm2.Action1Execute(Sender: TObject);

begin


StClickExecute(Sender);

//Íèæíÿÿ ñòðîêà ñîñòîÿíèå è Ïåðåõîä íà ñëåäóþùèé âîïðîñ

Status.Caption:=' Æèíà¹àí áàëû»ûç: '+inttostr(bal)+'²àë¹àíû:'+inttostr(brl-p+1)+ ' ' + inttostr(uak)+' ìèíóò ºàëäû';

end;


procedure TForm2.StClickExecute(Sender: TObject);

var Dan:file of dannie;

Vd:dannie;

o,i,j:word;

m:array[1..7]of word;

procedure vn(ss,_s:TLabel;di:word;r:TRadioButton);

begin

ss.show;r.Show;



if (m[di]<=no_otv+1)and(m[di]>0) then

begin


ss.AutoSize:=false;

ss.Width:=xwidth-100;

Ss.Caption:=shoblon.no[m[di]];

ss.AutoSize:=true;

end

else begin ss.hide;r.Hide;end;



ss.Top:=_s.Top+_s.Height+20;

r.Top:=ss.Top;

end;

label 1,2;



var dan1:file of dannie;

vd1:dannie;

proc:real;

ocenka:word;

procS:string[4];

begin


if (p>brl)or(uak<=0) then

begin


Timer1.Enabled:=false;

proc:=(bal*100)/brl;

if proc<=47 then ocenka:=2;

if (proc>47)and(proc<=71)then ocenka:=3;

if (proc>71)and(proc<=88)then ocenka:=4;

if (proc>88)then ocenka:=5;

procS:=floattostr(proc);

// StaticText6.Caption:=ListBox1.Items.Strings[ListBox1.itemindex];

StaticText5.Caption:='Òåñò í¸òèæåñi';

Labelresult.Caption:='ѽðຠñàíû: '+inttostr(brl)+#$D#$A+

'Ľðûñ æàóàï ñàíû: '+inttostr(bal)+#$D#$A+

'Ïðîöåíò: '+procS+'%'+#$D#$A+

'Áà¹à: '+inttostr(ocenka);

Labelresult.Left:=round(xWidth/2)-round(Labelresult.Width/2);

Labelresult.Top:=round(xHeigth/2)-round(Labelresult.Height/2);

BitBtn8.Left:=round(xWidth/2)-round(BitBtn8.Width/2);

BitBtn8.Top:=Labelresult.Top+Labelresult.Height+30;

variant1.Hide;variant2.Hide;variant3.Hide;variant4.Hide;variant5.Hide;

RadioButton1.Hide;RadioButton2.Hide;RadioButton3.Hide;

RadioButton4.Hide;RadioButton5.Hide;

Notebook1.ActivePage:='natige';

// Vd.ati:=ListBox1.Items.Strings[ListBox1.itemindex];

vd.baga:=ocenka;

vd.procent:=procS;

Vd.BarSurSani:=brl;

Vd.Djauap:=bal;

Vd.KalUak:=uak;

// assignfile(dan,cdir+usr_file+'.rst');

AssignFile(dan1,'vr');rewrite(dan1);

// if fileexists(cdir+usr_file+'.rst') then

// reset(dan) else rewrite(dan);

// while not(eof(dan))do

// begin

// read(dan,vd1);

// write(dan1,vd1);

// end;


// write(dan1,vd);

// CloseFile(dan);CloseFile(dan1);

// Erase(dan);RenameFile('vr',cdir+usr_file+'.rst');

exit;


end;//Êîíåö Çàïèñü â ôàéë èíôîðìàöèè îá îöåíêàõ

init_one_surak(psk[p]);

p:=p+1;

Surak.AutoSize:=false;



Surak.Width:=xwidth-50;

Surak.Caption:=shoblon.sur;

Surak.AutoSize:=true;

if ST=onevariant then

begin

ver:=random(no_otv)+1;



m[ver]:=ver;

shoblon.no[no_otv+1]:=shoblon.no[ver];

shoblon.no[ver]:=shoblon.yes[1];

randomize;//

repeat

for i:=1 to no_otv+1 do



for j:=1 to no_otv+1 do

1: if (m[i]=m[j])and(i<>j)and(ver<>i)or(m[i]=0)or(m[i]>no_otv+1)then

begin

m[i]:=round(random(no_otv+1)+1);



goto 1;

end;


j:=0;o:=0;

for i:=1 to no_otv+1 do

begin

j:=j+m[i];



o:=o+i;

end;


until j=o;

Surak.AutoSize:=false;

Surak.Width:=xwidth-100;

Surak.Caption:=shoblon.sur;

Surak.AutoSize:=true;

vn(variant1,Surak,1,RadioButton1);

vn(variant2,variant1,2,RadioButton2);

vn(variant3,variant2,3,RadioButton3);

vn(variant4,variant3,4,RadioButton4);

vn(variant5,variant4,5,RadioButton5);

end else begin

variant1.Hide;variant2.Hide;variant3.Hide;variant4.Hide;variant5.Hide;

RadioButton1.Hide;RadioButton2.Hide;RadioButton3.Hide;

RadioButton4.Hide;RadioButton5.Hide;

end;

end;


procedure ClearExecute(Sender: TObject);

var ii:word;

begin

with shoblon do



begin

sur:='';


no_otv:=0;

for ii:=1 to 7 do

begin

no[ii]:='';



yes[ii]:='';

m[ii]:=0;

end;

end;


end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

begin

if Notebook1.ActivePage='Default' then halt(1)



else

begin


Action:=caNone;

ShowMessage('Íåãiçãi òåðåçåãå îòiíiç!');

end;

end;


procedure TForm2.FormCreate(Sender: TObject);

var tf:TextFile; fn:ShortString;i:integer;

begin

ComboBox1.Items:=Screen.Fonts;



xWidth:=Screen.WorkAreaWidth;

xHeigth:=Screen.WorkAreaHeight;

cdir:=ExtractFileDir(Application.ExeName);

WindowState:=wsMaximized;

Panel1.Top:=round(Height/2)-round(Panel1.Height/2);

Panel1.Left:=round(Width/2)-round(Panel1.Width/2);

TreeView1.LoadFromFile(cdir+'\teor\maz.txt');

AssignFile(tf,cdir+'\test\font.dat');

reset(tf);read(tf,fn);CloseFile(tf);

SurakMemo.Font.Name:=fn;

Memo1.Font.Name:=fn;

Memo2.Font.Name:=fn;

Memo3.Font.Name:=fn;

Memo4.Font.Name:=fn;

Memo5.Font.Name:=fn;

ComboBox1.Text:=fn;

i:=TreeView1.Items.Count;

repeat


try

dec(i);


TreeView1.Items.Item[i].Expand(true);

Except


end;

until i=0;

end;

procedure TForm2.FormResize(Sender: TObject);



begin

Panel1.Top:=round(Height/2)-round(Panel1.Height/2);

Panel1.Left:=round(Width/2)-round(Panel1.Width/2);

Panel7.Top:=round(Height/2)-round(Panel7.Height/2);

Panel7.Left:=round(Width/2)-round(Panel7.Width/2);

ScrollBox1.Top:=round(Height/2)-round(ScrollBox1.Height/2);

ScrollBox1.Left:=round(Width/2)-round(ScrollBox1.Width/2);

end;


procedure TForm2.b_1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure bt_move_off(var g:TImage);

begin


if (g.Tag=1)and((Sender as TImage).Name<>g.Name)then

begin


g.Tag:=0;

g.Picture.Graphic.LoadFromFile(cdir+'\main\'+g.Name+'.jpg');

end;

end;


begin

bt_move_off(b_1);

bt_move_off(b_2);

bt_move_off(b_3);

bt_move_off(b_4);

if (Sender as TImage).Tag=1 then exit;

(Sender as TImage).Tag:=1;

(Sender as TImage).Picture.Graphic.LoadFromFile(cdir+'\main\'+(Sender as TImage).Name+'_m.jpg');

bt_name_on:=(Sender as TImage).Name;

end;


procedure TForm2.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure bt_move_off(var g:TImage);

begin


if (g.Tag=1) then

begin


g.Tag:=0;

g.Picture.Graphic.LoadFromFile(cdir+'\main\'+g.Name+'.jpg');

end;

end;


begin

bt_move_off(b_1);

bt_move_off(b_2);

bt_move_off(b_3);

bt_move_off(b_4);

end;


procedure TForm2.b_1Click(Sender: TObject);

begin


WebBrowser1.Navigate(cdir+'\teor\t1.htm');

Notebook1.ActivePage:='oku';

end;

procedure TForm2.SpeedButton1Click(Sender: TObject);



begin

Notebook1.ActivePage:='default';

end;

procedure TForm2.SpeedButton2Click(Sender: TObject);



begin

try


WebBrowser1.ExecWB(OLECMDID_PRINT,1);

except;


end;

end;


procedure TForm2.TreeView1Click(Sender: TObject);

begin


if (TreeView1.Selected.AbsoluteIndex<>-1)then

if fileexists(cdir+'\teor\t'+inttostr(TreeView1.Selected.AbsoluteIndex)+'.htm')then

begin

WebBrowser1.Navigate(cdir+'\teor\t'+inttostr(TreeView1.Selected.AbsoluteIndex)+'.htm');



end;

end;


procedure TForm2.b_2Click(Sender: TObject);

var usrfile:file of usr;usrD:usr;pass_enable:Boolean;

tf:TextFile;fn:ShortString;

begin


AssignFile(tf,cdir+'\test\font.dat');

reset(tf);read(tf,fn);CloseFile(tf);

Surak.Font.Name:=fn;

variant1.Font.Name:=fn;variant2.Font.Name:=fn;

variant3.Font.Name:=fn;variant4.Font.Name:=fn;

variant5.Font.Name:=fn;

//Panel9.Caption:=

Timer1.Enabled:=true;

init;

// Timer2.Enabled:=true;



randomize;

bal:=0;


Action1Execute(Sender);

// Timer2.Enabled:=true;

Notebook1.ActivePage:='test';

end;


procedure TForm2.BitBtn7Click(Sender: TObject);

var cn:integer;belg:Boolean;

begin

belg:=false;



for cn:=1 to 5 do

if (FindComponent(Format('RadioButton%d',[cn]))as TRadioButton).Checked then belg:=true;

if not (belg) then exit;

if (RadioButton1.Checked)and(ver=1) then inc(bal);

if (RadioButton2.Checked)and(ver=2) then inc(bal);

if (RadioButton3.Checked)and(ver=3) then inc(bal);

if (RadioButton4.Checked)and(ver=4) then inc(bal);

if (RadioButton5.Checked)and(ver=5) then inc(bal);

for cn:=1 to 5 do

(FindComponent(Format('RadioButton%d',[cn]))as TRadioButton).Checked:=False;

ClearExecute(Sender);

Action1Execute(Sender);

end;

procedure TForm2.variant1Click(Sender: TObject);



var cn:integer;

begin


cn:=strtoint(copy((Sender as TLabel).Name,length(variant1.Name),1));

(FindComponent(Format('radiobutton%d',[cn]))as TRadioButton).Checked:=true;

BitBtn7Click(Sender);

end;


procedure TForm2.BitBtn8Click(Sender: TObject);

begin


Notebook1.ActivePage:='default';

end;


procedure TForm2.BitBtn5Click(Sender: TObject);

label 1;


var FSur:file of SurFile;i:Integer;

begin


AssignFile(F,cdir+'\test\data.dat');

if FileExists(cdir+'\test\data.dat') then

reset(F)

else exit;

readln(f,s);

if s<>LabeledEdit5.Text then

begin

CloseFile(f);



ShowMessage('êàòå ïàðîëü!');

LabeledEdit5.SetFocus;

LabeledEdit5.SelectAll;

Exit;


end;

CloseFile(f);

LabeledEdit5.Text:='';

AssignFile(F,cdir+'\test\data.dat');

if FileExists(cdir+'\test\data.dat') then

reset(F)


else exit;

readln(f,s);

Readln(f,s);SpinEdit2.Value:=StrToInt(s);

Readln(f,s);

SpinEdit1.Value:=strtoint(s);

i:=0;


while not eof(F)do

begin


Readln(f,s);// !

1:Inc(i);

FileSur[i].N:=i;

readln(F,FileSur[i].Sur);

if eof(f)then Break;

if FileSur[i].sur='!' then begin FileSur[i].sur:=''; goto 1;end;

readln(F,FileSur[i].j);

if eof(f)then Break;

if FileSur[i].j='!' then begin FileSur[i].j:=''; goto 1;end;

readln(F,FileSur[i].j1);

if eof(f)then Break;

if FileSur[i].j1='!' then begin FileSur[i].j1:=''; goto 1;end;

readln(F,FileSur[i].j2);

if eof(f)then Break;

if FileSur[i].j2='!' then begin FileSur[i].j2:=''; goto 1;end;

readln(F,FileSur[i].j3);

if eof(f)then Break;

if FileSur[i].j3='!' then begin FileSur[i].j3:=''; goto 1;end;

readln(F,FileSur[i].j4);

if eof(f)then Break;

if FileSur[i].j4='!' then begin FileSur[i].j4:=''; goto 1;end;

end;


CloseFile(f);

AgimdiElement:=1;

filesur[1].N:=1;

Label8.Caption:=IntToStr(filesur[1].N);

SurakMemo.Lines.Text:=filesur[1].sur;

Memo1.Lines.Text:=filesur[1].j;

Memo2.Lines.Text:=filesur[1].j1;

Memo3.Lines.Text:=filesur[1].j2;

Memo4.Lines.Text:=filesur[1].j3;

Memo5.Lines.Text:=filesur[1].j4;

Notebook1.ActivePage:='testedit';

end;


procedure TForm2.BitBtn6Click(Sender: TObject);

begin


Notebook1.ActivePage:='default';

end;


procedure TForm2.b_3Click(Sender: TObject);

begin


Notebook1.ActivePage:='root';

end;


procedure TForm2.Button2Click(Sender: TObject);

begin


if FileSur[AgimdiElement].N<=1 then exit;

RefreshFileFur(Sender);

Dec(AgimdiElement);

if AgimdiElement<=0 then AgimdiElement:=1;

RefreshMemo(Sender);

end;


procedure TForm2.Button3Click(Sender: TObject);

begin


if FileSur[AgimdiElement+1].N<1 then exit;

RefreshFileFur(Sender);

inc(AgimdiElement);

if AgimdiElement>=500 then AgimdiElement:=500;

RefreshMemo(Sender);

end;


procedure TForm2.Button4Click(Sender: TObject);

begin


RefreshFileFur(Sender);

repeat


inc(AgimdiElement);

if FileSur[AgimdiElement].N=0 then

begin

Break;


end;

until(false);

filesur[AgimdiElement].N:=filesur[AgimdiElement-1].N+1;

if AgimdiElement>=500 then AgimdiElement:=500;

RefreshMemo(Sender);

end;


procedure TForm2.Button5Click(Sender: TObject);

var i:integer;

begin

i:=AgimdiElement;



repeat

if FileSur[i+1].N=0 then

begin

FileSur[i].N:=0;



filesur[i].sur:='';

FileSur[i].j:='';FileSur[i].j1:='';FileSur[i].j2:='';

FileSur[i].j3:='';FileSur[i].j4:='';

dec(AgimdiElement);

if AgimdiElement<=0 then AgimdiElement:=1;

break;


end else

begin


FileSur[i].N:=i;

FileSur[i].sur:=filesur[i+1].sur;

FileSur[i].j:=FileSur[i+1].j;

FileSur[i].j1:=FileSur[i+1].j1;

FileSur[i].j2:=FileSur[i+1].j2;

FileSur[i].j3:=FileSur[i+1].j3;

FileSur[i].j4:=FileSur[i+1].j4;

end;


inc(i);

until(false);

RefreshMemo(Sender);

end;


procedure TForm2.Button6Click(Sender: TObject);

var i,j:integer;

begin

AssignFile(f,cdir+'\test\data.dat');reset(f);



read(f,s);CloseFile(f);

RefreshFileFur(Sender);

i:=0;

while FileSur[i].N<>0 do



inc(i);

dec(i);


j:=1;

AssignFile(f,cdir+'\test\data.dat');

Rewrite(f);

Writeln(f,s);

Writeln(f,inttostr(SpinEdit2.value));

writeln(f,inttostr(SpinEdit1.Value));

for j:=1 to i do

begin


writeln(f,'!');

Writeln(f,FileSur[j].sur);

if FileSur[j].j<>'' then Writeln(f,FileSur[j].j);

if FileSur[j].j1<>'' then Writeln(f,FileSur[j].j1);

if FileSur[j].j2<>'' then Writeln(f,FileSur[j].j2);

if FileSur[j].j3<>'' then Writeln(f,FileSur[j].j3);

if FileSur[j].j4<>'' then Writeln(f,FileSur[j].j4);

end;


CloseFile(f);Notebook1.ActivePage:='default';;

for i:=1 to 500 do

begin

FileSur[i].N:=0;



FileSur[i].sur:='';

FileSur[i].j:='';

FileSur[i].j1:='';

FileSur[i].j2:='';

FileSur[i].j3:='';

FileSur[i].j4:='';

end;

end;


procedure TForm2.ComboBox1Change(Sender: TObject);

var tf:TextFile;

begin

SurakMemo.Font.Name:=ComboBox1.Text;



Memo1.Font.Name:=ComboBox1.Text;

Memo2.Font.Name:=ComboBox1.Text;

Memo3.Font.Name:=ComboBox1.Text;

Memo4.Font.Name:=ComboBox1.Text;

Memo5.Font.Name:=ComboBox1.Text;

AssignFile(tf,cdir+'\test\font.dat');rewrite(tf);

write(tf,combobox1.text);CloseFile(tf);

end;


procedure TForm2.b_4Click(Sender: TObject);

begin


Form1.Gauge1.Hide;

Form1.BitBtn1.Show;

Form1.Show;

Hide;


Form1.Tag:=1;

end;


end.


МАЗМҰНЫ


КIРIСПЕ……………………………………………………………………

1 ИНФОРМАТИКА КУРСЫН ОҚЫТУДА КОМПЬЮТЕРДІ

ПАЙДАЛАНУДЫҢ АЛҒЫШАРТТАРЫ

1.1 Информатика курсын оқытудың теориялық негiздерi....................................................................................................

1.2 Информатика курсын оқытуда компьютердi

пайдаланудың алғышарттары...............................................

1.3 ИнформаТика курсын оқытуда компьютерлiк оқыту жүйелерiн пайдалану...................................................

1.4 Информатика курсының компьютерлiк оқыту жүйесінiң құрылымы.....................................................................

2 информатика КУРСЫНЫҢ КОМПЬЮТЕРЛіК ОҚЫТУ ЖҮЙЕСіН ДАЯРЛАУ ТЕХНОЛОГИЯСЫ

2.1 Информатика курсының компьютерлiк оқыту жүйесiн жасау негiздерi..............................................................

2.2 Информатика курсының компьютерлiк оқыту жүйесiн оқу процесiнде пайдалану...................................

2.3 Компьютерлiк жүйенi пайдалануға нұсқау........................................................................................................

3 Экономикалық бөлім

3.1 Жүйені құруға және енгізуге кеткен шығын есептеулері............................................................................................

3.2 Экономикалық сферасының есептеулері...............

4 БИЗНЕС-ЖОСПАР БӨЛІМІ................................................................

ҚОРЫТЫНДЫ…………………………………………………............….

Түйін............................................................................................................

ПАЙДАЛАНЫЛҒАН ӘДЕБИЕТТЕР......................................................

ҚОСЫМША.......……………………………………………......………….

6


8
16
22
25


37
53
56

61

63

65

72

74

76

78






жүктеу 2,02 Mb.

Достарыңызбен бөлісу:
1   2   3   4   5   6   7   8   9




©g.engime.org 2024
әкімшілігінің қараңыз

    Басты бет
рсетілетін қызмет
халықаралық қаржы
Астана халықаралық
қызмет регламенті
бекіту туралы
туралы ережені
орталығы туралы
субсидиялау мемлекеттік
кеңес туралы
ніндегі кеңес
орталығын басқару
қаржы орталығын
қаржы орталығы
құрамын бекіту
неркәсіптік кешен
міндетті құпия
болуына ерікті
тексерілу мемлекеттік
медициналық тексерілу
құпия медициналық
ерікті анонимді
Бастауыш тәлім
қатысуға жолдамалар
қызметшілері арасындағы
академиялық демалыс
алушыларға академиялық
білім алушыларға
ұйымдарында білім
туралы хабарландыру
конкурс туралы
мемлекеттік қызметшілері
мемлекеттік әкімшілік
органдардың мемлекеттік
мемлекеттік органдардың
барлық мемлекеттік
арналған барлық
орналасуға арналған
лауазымына орналасуға
әкімшілік лауазымына
инфекцияның болуына
жәрдемдесудің белсенді
шараларына қатысуға
саласындағы дайындаушы
ленген қосылған
шегінде бюджетке
салығы шегінде
есептелген қосылған
ұйымдарға есептелген
дайындаушы ұйымдарға
кешен саласындағы
сомасын субсидиялау