Жергілікті желінің операциондық жүйелермен жұмыс істеу экспериментін оқытудың әдістемесі курстық жұмыс
Жергілікті желінің операциондық жүйелермен жұмыс істеу экспериментін оқытудың әдістемесі
МАЗМҰНЫ - www.topreferat.com.kz
Кіріспе ………………………………………………....................3 - 4
Теориялық бөлім.
1. Жергілікті желі және оның операциондық жүйелері. ………… .5
1.1.Желіге арналған операциондық жүйелер туралы шолу………..5
1.2.NetWare ОЖ Novell фирмасы………………………...................6
1.3.NetWare ОЖ құрлымы………………………. ..............................6
2. Unix операциондық жүйесі………………………………….....7 - 9
2.1. Unix операциондық жүйесі даму тарихы…………………...7 - 9
2.2. Unix операциондық жүйесінің архитектурасы………………..10
Windows NT операциондық жүйесі………………………..11 - 12
Кабельдер және локальді желілердің көлемдері………….........13
4.1.Коаксиалды кабель……………………………………................13
4.2.Өрілген жұптар типтес қорғасын кабельдері………..................14
4.3.Оптоволокондық кабельдер…………………………..........15 - 16
4.4.Көлемді біріктірулер………………………………….................16
Windows 98 ОЖ .............................................................................17
Практикалық бөлім.
1. Зертханалық жұмыстар ..…………………………................18 - 22
Тестік сұрақтар…………………………………………..............23
Электронды оқулық…………………………………...........24 - 25
Қорытынды………………………………………………………….26
Пайдаланылған әдебиеттер тізімі………………………………….27
Қосымша.
Жұмыс түрі: Курстық жұмыс
Жұмыс көлемі: 32 бет
Пәні: Педагогика
-----------------------------------------------------------------------------------
КУРСТЫҚ ЖҰМЫСТЫҢ ҚЫСҚАРТЫЛҒАН МӘТІНІ
Жергілікті желінің операциондық жүйелермен жұмыс істеу экспериментін оқытудың
МАЗМҰНЫ
Кіріспе ………………………………………………....................3 - 4
Теориялық бөлім.
1. Жергілікті желі және оның операциондық жүйелері. …………
1.1.Желіге арналған операциондық жүйелер туралы шолу………..5
1.2.NetWare ОЖ Novell фирмасы………………………...................6
1.3.NetWare ОЖ құрлымы………………………. ..............................6
2. Unix операциондық жүйесі………………………………….....7 - 9
2.1. Unix операциондық жүйесі даму тарихы…………………...7 - 9
2.2. Unix операциондық жүйесінің архитектурасы………………..10
Windows NT операциондық жүйесі………………………..11 - 12
Кабельдер және локальді желілердің көлемдері………….........13
4.1.Коаксиалды кабель……………………………………................13
4.2.Өрілген жұптар типтес қорғасын кабельдері………..................14
4.3.Оптоволокондық кабельдер…………………………..........15 - 16
4.4.Көлемді біріктірулер………………………………….................16
Windows 98 ОЖ .............................................................................17
Практикалық бөлім.
1. Зертханалық жұмыстар ..…………………………................18 - 22
Тестік сұрақтар…………………………………………..............23
Электронды оқулық…………………………………...........24 - 25
Қорытынды………………………………………………………….26
Пайдаланылған әдебиеттер тізімі………………………………….27
Қосымша.
Кіріспе.
Менің курстық жұмысымның тақырыбы: "Информатиканы оқыту әдістемесі”
Жұмыстың мақсаты: Информатика сабақтарында оқушыларға жергілікті желінің операциондық
Жұмыстың көкейтестілігі: деген атауы орталық өткізгіш сияқты, ішкі
Білім беруді ақпараттандыру жергілікті желінің операциондық жүйелермен жұмыс
Жергілікті желінің операциондық жүйелермен жұмыс істеу білімін пайдалану
Жергілікті желінің операциондық жүйелермен жұмыс істеу білімді пайдалану
Осы уақытқа дейін педагогика ғылыми зерттеу әдістеріне баса
Информатиканы оқытудың мақсаты мен міндеті оқушылардың ғылыми көзқарасын,
Соңғы жылдары біздің мемлекетімізде орта білім беру жүйесінде
Теориялық бөлім.
1. Жергілікті желі және оның операциондық жүйелері.
1.1 Желіге арналған операциондық жүйелер туралы шолу.
Желілік операциондық жүйелер жұмыс станциялар және сервер арасындағы
Кейбір компьютерлік желілерде автономды компьютер бар, ол
Желілік операциондық жүйелерінің компоненттері барлық жұмыс станциясы және
Төменде желілік операциондық жүйелердің тізімі берілген.
Операциондық жүйе
Өндіруші
Apple Talk Apple
LANtastic Artisoft
NetWare Novell
NetWare Lite Novell
Personal NetWare Novell
NFS Sun Microsystems
OS/2 LAN Manager Microsoft
OS/2 LAN Server IBM
Windows NT Advanced Server Microsoft
POWERfusion Performance Technology
POWERLan Performance Technology
Vines Ba
NetWare ОЖ Novell фирмасы.
ЛВС-ты жасай бастаған компаниялардың біреуі Novell болған. Ол
Novell фирмасы NetWare ОЖ сүйеу үшін ең ірі
1. 3. NetWare ОЖ құрлымы.
NetWare-ғы файлдық сервер қарапайым дербес компьютер, желілік операциондық
NetWare ОЖ үш версиясы бар. 2.2 версиясы
ОЖ барлық версиялары бір-бірімен байланыстары жақсы, сондықтан бір
2. Unix операциондық жүйесі.
2.1 Unix операциондық жүйесі даму тарихы.
1965 жылы Bell Telephone Laboratories, General Electric компаниясы
Multics жобасының жұмысын бітіргеннен кейін Bell Laboratories фирмасының
Оған қарамастан Unix жүйесінің ертедегі версиясы өз
1971 және 1982 жылдар арасында Bell Laboratories фирмасы
1984 жылы Unix жүйесі дүние жүзіндегі 100000 машинаға
Қарапайым пайдаланушылық интерфейсі, барлық қажетті мүмкіншілік пайдалануына береді.
Элементарлық құралдар, қарапайым программалардан күрделі программалар жасайды.
Иерархиялық файлдық жүйе, жеңіл жүреді және жұмыста нәтижелі.
Файлдардағы форматтарды қамтамасыз етеді, қолданбалы программалардың оқуын
Жүйені көп пайдаланушы, көп мақсатты, әрбір пайдаланушы бір
Машина архитектурасы пайдаланушыдан жасырылу,программалар жазу процессі жеңілдетілген, апппараттық
Unix жүйесі қарапайым және жалпы жоғары деңгейлі.
Бірақ операциондық жүйе және командалардың көпшілігі Си
Фирмалар, алып-сатуға және бағаны көтеруге қосымша қызметте құқық
Unix операциондық жүйесінің даму тархы.
1971 жылы.
V1 UNIX Time - Sharing System бірінші версиясы
1973 жылы.
V4. версиясы, қайтадан С тілінде жазылған, Unix
1974 жылы.
V5. Bell Labs (PWB/UNIX, MERT) бірінші версиясы пайда
1975 жылы.
V6. Unix-тің бірінші версиясы, көп таралған, сонымен қатар,
1978 жылы.
2.xBSD версия (Berkeley Systems Development) PDP -11арналған, Computer
1979 жылы.
V7." соңғы нағыз Unix ", С тілінің компиляторын,
1982 жылы.
Unix-ті жұмыс станцияларын жасаушылар қолдана бастады: SunOS 1.0
1983 жылы.
4.2 BSD: толық сүйеуі TCP/IP, сокетті, Ethernet. UFS
1984 жылы.
SVR2: Sh командалық функциялық интерпретаторында, стандарттаудың бірінші әрекеттері.
1985 жылы.
V8 (STREAMS модулі). Mach архитектураларының пайда болды. Minix
1986 жылы.
AIX (IBM) және A/UX (Apple) операциондық жүйелері пайда
1987 жылы.
IRIX (SVR3.0) операциондық жүйесі пайда болды.
1988 жылы.
NeXT компьютерімен NeXTSTEP (4.3BSD + Mach 2.0) операциондық
1991 жылы.
GNU HURD операциондық жүйесі пайда болды. Linux операциондық
1993 жылы.
ОС FreeBSD. Solaris 2.2. NeXTSTEP 3.2. IRIX 5.3,
2004 жылы.
Біз қазіргі кезде Intel x86 платформасында келесі Unix
2.2 Unix операциондық жүйесінің архитектурасы.
Unix операциондық жүйесінің архитектурасы – көп деңгейлі. Төменгі
Unix операциондық жүйесі көбінесе файылдық жүйелерді, стандартты жүйелік
Жүйелік параметрлерді қалпына келтіруіне арналған;
Ядроны қайта жинақтауына және жаңа құрылғыларды, драейверлерді қосуға
Пайдаланушылардың есептік жазуларын өшіруге, қосуға арналған;
Бұл шешімдерді шешуге көбінесе жүйелік шақыруларды қолданады.
Жүйелік шақырулар процесті қайта құрады, пайдаланушы тәртібінде жұмыс
Жүйелік шақырулар ядро процедураларына арналған бағдарламалық интерфейсті қамсыздандырады.
Windows NT операциондық жүйесі.
Желідегі ұйымдастырылған Windows NT базасындағы ең қиын аппараттық
Әкімшілік ету желісінің қызметін ұйымдастыруды шешеді, басшы.қызметінде –
Желілер – бұл жүйе техникасы, дербес қызмет ету
Айқындақ желі дегеніміз – бұл серверге қатынайтын пайдаланушыға
Дұрыс ұйымдастырылған желінің қатынасы мен желі айқындығы көптеген
Желінің сенімділігі. Бұл қолданушының серверге қатынасуына бақылау жасайды
Пайдаланушыларды басқару. Бұған жататындар: орнату және конфигурациялық пайдаланушының
Нақты әдістемесе желі сенімділігі мен пайдаланушы басқаруды қамтамасыз
Перспективтік жобалау. Бұл мынадай мәндерден тұрады:
келесі желісінің сұранысын жоспарлау.
жаңа пайдалынады тезірек қосу және желілік ресурстарды кеңейту.
өсіп келе жатқан пайдаланушының сұранымын әр кезде қанағаттандыру.
сапалық құжаттар. Барлығы желінің кезеңін құжаттандырып отыру керек
Windows NT Workstation және Windows NT Server-де басқару
Қолданбалы Performance Monitor серверінің өнімділігі мен қолданбалы NT-i
Administrative Wizard теру құралы жәй утилиттердің көптеген әкімшілік
Disk Administrator бағдарламасы дискілерді басқару мен Windows NT
License Manager бағдарламасы минизиялық сұрақтар шешімін жеңілдетеді. Net
4. Кабельдер және локальді желілердің көлемдері.
Информацияны желіде берудің кең тараған және дәстүрлі физикалық
Коаксиалды кабель.
Өрілген жұпқа қарағанда едәуір жоғары механикалық мықтылығымен және
Орталық бөлікте электрлік сигналды өткізетін небір қатты өткізгіш,
Ethernet-те диаметрі 1см қатты сердцевинасы бар қалың коаксиалды
Коаксиалды кабельдерді біріктіру үшін коаксиалды коннекторлар керек, әйтпесе
Коаксиалды кабельдер Ethernet 10Base5 b 10Base2 технологияларында 10
4.2 Өрілген жұптар типтес қорғасын кабельдері.
Өрілген жұп өзара өрілген изоляцияланған екі өткізгіштен тұрады.
Әрбір жұп өзара электромагниттік кедергілерді азайту үшін айналдырылған
Коаксиалға қарағанда айналдырылған немесе өрілген жұптар кабельдері симметриалды
Экрандалмаған өрілген жұп UTP(Unshielded Twisted Pair) қазіргі кезде
Технологиялық даму берудің жылдамдығын және кедергілерден қорғануын (экрандалған
Өрілген жұп үшін өткізгіштерді, кабелдерді және сымдарды көлемді
S110 типті коннекторлар толық вариантта екі өткізгішті бір
Калибр - өткізгіштердің қиылысуы кабельдер AWG(American Wire Gauge
Сплайстар соңында қайта коммутациялауды қажет етпейтін жерлерде кабельдердің
Біріктірушілер (picabond) 0,32-0,9 мм диаметрлі бөлік өткізгіштерді өсіру
Tel-Splice біріктірушілері 0,4-0,9 мм диаметрлі екі немесе үш
AMP STACK біріктіруші модулі 0,32-0,9 мм диаметрі және
4.3. Оптоволокондық кабельдер.
Оптоволокондық кабель – идеалды беру ортасы. Оған электромагниттік
Оптоволокно өздігінше өте нәзік және пайдалану үшін сыртқы
Буфер толық немесе бос денелі болуы мүмкін. Толық
Волокноның бос дененің буфері бар кабельдерде буфердің аузында
Сыртқы қабықша кабельдердің барлығы конструкциясын ылғалдан қорғайды. Химиялық
4.4. Көлемді біріктірулер.
Екі волокнаның көлемнің біріктірілуі үшін олардың шеттеріне коннекторлар
Коннектордың 2 функциональді элементтері бар – корпус және
5. Windows 98 ОЖ.
Windows 98 ОЖ бір рангалық жергілікті желіге жұмыс
Жүйе көп пайдаланушы, көп мақсатты, әрбір пайдаланушы бір
Windows 98 ОЖ-нің архитектурасы пайдаланушыдан жасырылу, программалар жазу
Windows 98 операциондық жүйесі көбінесе файылдық жүйелерді, стандартты
1998 жылы Windows 98 операциондық жүйесі дүние жүзіндегі
Практикалық бөлім.
2. Зерханалық жұмыстар
№1.Зертханалық жүмыс.
Тақырыбы: Unix ОЖ файлдық жүйесі.
Мақсаты: Unix ОЖ файлдық жүйесі басты анықтама алу,Windows
Тапсырма: Unix ОЖ басқаруындағы компьютерге қосылу, Telenet
Жұмыстың орындалу әдістемесі:
1.TELENET серверімен жұмыс істеу үшін Unix компьютерде қосымшаны
2. CONNECT диалогтық терезесінде өшірілген компьютермен байланысты орнату(Connect
Мұғалімнен өзіңіздің тіркелу атыңызды және пароль алыңыз.
3. Экранда ОЖ жұмыс істеуге шақыру пайда болады:
Red Hat Linux release 5.1 (Manhattan).
Kerneln 2.0.35 on an 1586
Login: u
Password:
Last login: Fri nov 10 15:15:03 from
[ u @ Linux u] $
2) pwd командасы арқылы каталогтың аты туралы мәлімет
[ u @ Linux u] $ pwd
/home/ u
3) cd командасы арқылы каталогты өзгертіңіз, каталогтың түбіріне
[ u @ Linux /home/] $ cd/home
[ u @ Linux /home/] $
4)ls командасынан каталогты көріңіз home:
[ u @ Linux /home/] $ ls
ftp httpd samba u
[ u @ Linux /home/] $
5) cd командасы арқылы каталогты өзгертіңіз, каталогтың түбіріне
[ u @ Linux /home/] $ cd/
[ u @ Linux /] $
6) ls командасы арқылы каталогтың түбірінің мазұнын
[ u @ Linux /] $ ls
bin etc lost found net sbin var boot
dev lib mnt root usr
[ u @ Linux /] $
7)cd командасы арқылы өзіңіздің жұмыс каталогына өтіңіз:
[ u @ Linux /home/] $ cd/home/u
[ u @ Linux u] $
8)mkdir командасының көмегімен жұмыс каталогында өзіңіздің mycat каталогын
[ u @ Linux u] $ mk dir
[ u @ Linux u] $
9)ls командасымен каталог құрылғанын көріңіз.
№2. Зерханалық жұмыс.
Тақырыбы: FTP утилиті.
Мақсаты: FTP утилитінің командасын анықтаңыз.
Тапсырма: FTP утилиті арқылы Windows – компьютерінен
Жұмыстың орындалу әдістемесі:
1.FTP IIS каталогта сіздің тіркелгенмәліметтеріңізбен мәтіндік файл
2.TELENET арқылы Unix- компьютеріне қосылыңыз.
3.mycat каталогына cd командасы арқылы Unix- компьютеріне
4.ftp командасын беріңіз
[ u @ Linux mycat] $ ftp
ftp>
5.open командасы арқылы FTP сервері арқылы Windows –
ftp> open
(to) 192.168.35.252.
Connected to 192.168.35.252.
220 acer Microsoft ftp Service
Name(192.168.35.252:u):univer
331 Password reguiered for univer
Password:
230 user univer logged in.
Remote system type is Windows_Nt
ftp>
6.ftp help командасын бер,бұл FTP командасының тізімін шығарады:
ftp> help
Commands may be abbreviated Commands
7.Файлды көшіру .txt Windows – компьютеріндегі
№3. Зерханалық жұмыс.
Тақырыбы: Unix ОЖ рұқсат алу.
Мақсаты: Unix ОЖ рұқсат алуын анықтау.
Тапсырма: рұқсатты көру және көшірілген файлды өзгерту.
Жұмыстың орындалу әдістемесі:
1.Telenet көмегімен Unix компьютеріне қосылыңыз.
2. Unix компьютеріндегі каталогыңызға өтіңіз.
3. Windows – компьютеріне көшірілген файлды тексеріңіз.
4.сp stud1.txt stud2.txt командасымен файлыңыздың көшірмесін құрыңыз,
Is командасымен каталогтың мазмұнын көріңіз.
Chmod u+x file командасымен пайдаланушыға stud2.txt файлын
Is – 1 командасымен тексеріңіз:
[u@Linux mycat]$ Is-1
total 2
-rw-rw-r-1 u u 32 Dec18 20:35 stud1.txt
-rwxrw-r-1 u u 32 Dec18 20:39 stud2.txt
[u@Linux mycat]$
8.In командасымен бірінші көшірілген файлға байланыс жасаңыз:
[u@Linux mycat]$ In stud1.txt hard
[u@Linux mycat]$
9. Is – 1 командасымен файлмен байланысын тексеріңіз:
[u@Linux mycat]$ Is-1
total 3
-rw-rw-r-2 u u 32 Dec18 20:35 stud1.txt
-rwxrw-r-1 u u 32 Dec18 20:39 stud2.txt
-rw-rw-r-2 u u 32 Dec18 20:35 hard
[u@Linux mycat]$
10. In -s командасымен бірінші көшірілген файлға символдық
[u@Linux mycat]$ In stud1.txt symbol
11.Is – 1 командасымен файлды тексеріңіз:
[u@Linux mycat]$ Is-1
total 3
-rwxrw-r-2 u u 32 Dec18 20:39 hard
-rw-rw-r-1 u u 32 Dec18 20:35 stud1.txt
-rwxrw-r-2 u u 32 Dec18 20:39 stud2.txt
Irwxrwxrwx 1 u u
№4 Зерханалық жұмыс.
Тақырыбы: Windows 98 ОЖ желісінің конфигурациясы.
Мақсаты: Windows 98 ОЖ желісінің конфигурациясын игеру.
Тапсырма: Windows 98 ОЖ желісінің конфигурациясы орнату.
Жұмыстың орындалу әдістемесі:
1. Жұмыс столында «Сетевое окружение» белгісінің свойствасына кіреміз
2. Свойстваға кіргеннен кейін ол жерде «Конфигурация» терезесін
Клиент для сетей Microsoft
IPX/SPX – совместимый протокол
Контроллер удаленного доступа
VIA PCI 10/100 Mb Ethernet Adapter
TCP/IP
3. Келесі «Идентификация» терезесінде компьютердің желілік атын және
2. Тест сұрақтар.
1. Қандай сым берілгендерді жүйелік импульс түрінде береді?
a) волоконды оптикалық
б) коаксиалды кабель
в) өрілген жұптар типтес қорғасын кабельдері.
2. Оқу саласы негізінде қандай желі қолданылады?
a) сақиналық және жұлдыз тәрізді
б) еш қайсы дұрыс емес
в) жұлдыз тәрізді
3. Желі арқылы берілгендер алмасу ережесі қалай аталады?
a) пратокол
б) адрес
в) нөмерлер
4. Жергілікті желі түсінігі?
a) бірнеше компьютерлердің желілерінің бірігуі
б) дүние жүзінің компьютерлердің желілерінің бірігуі
в) еш қайсы дұрыс емес
5. Unix жүйесінің командалары қай тілде жазылған?
a) Си
б) Бейсик
в) Паскаль
6. Unix операциондық жүйесінің кімдер шығарды?
a) Кен Томпсон, Дэннис Ричи
б) Фон Нейман, Дэннис Ричи
в) Кен Томпсон, Фон Нейман
7. Жергілікті желіде қандай каналдар?
a) сымды және сымсыз каналдар
б) сымсыз каналдар
в) сымды каналдар
8. Коаксиальды сымның қанша проводнигі бар?
a) 6
б) 5
в) 7
9. Жергілікті желіде қанша параметр бар?
a) 6
б) 4
в) 5
10. Жергілікті желі де мәліметтер қалай берледі?
a) сандық түрде жоғары жылдамдықпен
б) жазу түрде жоғары жылдамдықпен
в) адрес түрде жоғары жылдамдықпен
Электронды оқулық
Менің электронды оқулығым үш бөлімнен тұрады.
Теориялық бөлім
Практикалық бөлім
Тест
Егер сіз бұл жерде «Теория» кнопкасына бассаңыз сізге
1- Сурет
2) Сіз практика жағынан көп мәлімет алғыңыз келсе
3) сіз өз біліміңізді теориялық бөлімді түгел
Қорытынды
"Информатиканы оқыту әдістемесі” Жергілікті желінің операциондық
Қазіргі кезде информатиканың негізгі ғылыми бағыттарының бірі -
Жергілікті желінің операциондық жүйелермен жұмыс істеу әдістемесі ғылыми
Жергілікті желінің операциондық жүйелермен жұмыс істеу пайдалану мен
Пайдаланылған әдебиеттер тізімі.
1.Под. Ред. Острейковского В.А. “Лабораторный практикум
по информатике” – М.: Высш. шк., 2003. –
2.Могилев А. В. и др. Информатика: Учеб. Пособие
пед. Вузов -
3.Архангельский А. Я. Приемы программирования в Delphi. –
М.: ООО “Бином-Пресс”, 2003 г.
4.Культин Н. "Самоучитель программирование в
Turbo Pascal 7.0 и Delphi" Санкт-Петербург – 2000
5.Тасуұлы Б. Лекция материалдары
6.Бейсебаева Б. Лабораториялық жұмыстар материалдары
7. М.Қ. Байжұмаов «Информатика» Астана –
8. Скотт Мюллер «Модернизация и ремонт ПК» -
9.Под редакцией С.В: Симоновича «Информатика базовый
Қосымша.
Электронды оқулықтың программасы.
procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image3.Visible:=true;
end;
procedure TForm1.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image5.Visible:=true;
end;
procedure TForm1.Image6MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image7.Visible:=true;
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image3.Visible:=false;
image5.Visible:=false;
image7.Visible:=false;
image9.Visible:=false;
image11.Visible:=false;
end;
procedure TForm1.Image3Click(Sender: TObject);
begin
form3.Show;
form3.webBrowser1.navigate(extractFiledir(application.ExeName)+'1/1.htm');
end;
procedure TForm1.Image5Click(Sender: TObject);
begin
form3.Show;
form3.webBrowser1.navigate(extractFiledir(application.ExeName)+'1/2.htm');
end;
procedure TForm1.Image7Click(Sender: TObject);
begin
form2.Show;
end;
procedure TForm1.Label1Click(Sender: TObject);
begin
form3.Show;
form3.webBrowser1.navigate(extractFiledir(application.ExeName)+'1/1.htm');
end;
procedure TForm1.Label2Click(Sender: TObject);
begin
form3.Show;
form3.webBrowser1.navigate(extractFiledir(application.ExeName)+'1/2.htm');
end;
procedure TForm1.Label3Click(Sender: TObject);
begin
form2.Show;
end;
procedure TForm1.Image10MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image11.Visible:=true;
end;
procedure TForm1.Image8MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image9.Visible:=true;;
end;
procedure TForm1.Image9Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Image11Click(Sender: TObject);
begin
aboutBox.show;
end; end.
Тест сұрақтар терезесі
const
Test_file='test.txt';
Nq=10;
var
Form2: TForm2;
rq : byte;
v_quest: array [1..3] of string;
quest, q1: string;
score,iq, nv, t,t2,oc: integer;
f: text;
ok: boolean;
implementation
{$R *.dfm}
procedure Init;
begin
score:=0;
iq:=0;
AssignFile(f,Test_File);
reset(f);
end;
procedure TForm2.FormHide(Sender: TObject);
begin
closefile(f);
end;
procedure Readq(k: byte);
begin
Readln(f,quest);
quest:=copy(quest,2,length(quest));
Readln(f,q1);
if copy(q1,1,1)='+' then rq:=1;
v_quest[1]:=copy(q1,2,length(q1));
Readln(f,q1);
if copy(q1,1,1)='+' then rq:=2;
v_quest[2]:=copy(q1,2,length(q1));
Readln(f,q1);
if copy(q1,1,1)='+' then rq:=3;
v_quest[3]:=copy(q1,2,length(q1));
inc(iq)
end;
procedure TForm2.FormShow(Sender: TObject);
begin
Label2.Caption:='';
Button2.Enabled:=true;
Init;
Readq(iq);
Label1.Caption:='Сұрақ №' +inttostr(iq)+quest;
RadioButton1.Caption:=V_quest[1];
RadioButton2.Caption:=V_quest[2];
RadioButton3.Caption:=V_quest[3];
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
if RadioButton1.Checked and (rq=1) then
inc(score,1);
if RadioButton2.Checked and (rq=2) then
inc(score,1);
if RadioButton3.Checked and (rq=3) then
inc(score,1);
if iq=nq then
begin
Button2.Enabled:=false;
Label2.Caption:=' Сіз '+inttostr(score)+' бал
if (score>0) and (scoreif (score>5) and (scoreif (score>7) and (scoreif (score>9)then oc:=5;
Label3.Caption:=' Сіз '+inttostr(oc)+' алдыңыз';
end
else
begin
Readq(iq);
Label1.Caption:='Cұрақ № '+inttostr(iq)+quest;
RadioButton1.Caption:=V_quest[1];
RadioButton2.Caption:=V_quest[2];
RadioButton3.Caption:=V_quest[3];
// showmessage(' Дұрыс жауап № '+inttostr(rq)+' ');
end;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
close;
end;
end.
Қазақстан Республикасының Білім және Ғылым министрлігі
М.Х.Дулати атындағы Тараз Мемлекеттік Университеті
3
1-ші сурет
2-ші сурет
3-ші сурет
2- сурет
