D - имя переменной для записи дисперсии кол-ва жителей.
S - имя переменной для записи квадратического отклонения кол-ва жителей.
K - имя переменной для записи коэффициента вариации.
3.3. Блок-схема алгоритма решения задачи.
| начало | |||||
| N | |||||
| описание массивов A$(N), Т(N) | |||||
| I=1, N | |||||
| A$(I), Т(I) | |||||
| M=0 | |||||
| I=1, N | |||||
| M=M+Т(I) | |||||
| M=M/N | |||||
| D = 0 | |||||
| I=1, N | |||||
| D = D +(Т(I) -M) ^ 2 | |||||
| D=D/(N-1) | |||||
| S=SQR(D) | |||||
| K=S/M | |||||
| M,D,S,K | |||||
| конец | |||||
3.4. Программа.
СLS
INPUT "Введите количество областей, краев"; N
DIM A$(N), Т(N)
FOR I = 1 TO N
PRINT "Введите область, край"; I; "-х жителей”
INPUT A$(I)
PRINT "Введите количество жителей для ";I;"-го края "
INPUT Т(I)
NEXT I
M = 0
FOR I = 1 TO N
M = M + Т(I)
NEXT I
M = M / N
D = 0
FOR I = 1 TO N
D = D + (Т(I) - M) ^ 2
NEXT I
D = D / (N - 1)
S = SQR(D)
K = S / M
CLS
PRINT TAB(15); "Обработка данных переписи населения "
PRINT TAB(8); "Область, край "; TAB(40); "Количество жителей "
FOR I = 1 TO N
PRINT TAB(5); A$(I); TAB(45); Т(I)
NEXT I
PRINT TAB(5); "Мат. ожидание"; TAB(45); M
PRINT TAB(5); "Дисперсия"; TAB(45); D
PRINT TAB(5); "Кв. отклонение"; TAB(45); S
PRINT TAB(5); "Коэф. вариации"; TAB(45); K
END
3.5. Контрольный пример.
| Обработка данных переписи населения | ||
| Область, край | Кол-во жителей | |
| Владимирская | 2300 | |
| Магаданская | 1000 | |
| Тюменская | 900 | |
| Московская | 11000 | |
| Ивановская | 3400 | |
| математическое ожидание | 3720 | |
| дисперсия | 1.7617E+07 | |
| квадратическое отклонение | 4197.261 | |
| коэффициент вариации | 1.128296 | |
4. Работа с каталогами и файлами в MS-DOS.
4.1. Постановка задачи.
é ZOO
\¾¾ ê HOME é CLASS1
ê SСOOL ¾¾¾ ê CLASS2
ë UNIVER ë CLASS3
4.2. Задание .
1) создание указанного дерева каталогов.
A:\ > md ZOO
A:\ > md HOME
A:\ > md SСOOL
A:\ > md UNIVER
A:\ > cd SСOOL
A:\ SCOOL > md CLASS1
A:\ SCOOL > md CLASS2
A:\ SCOOL > md CLASS3
2) перейти в каталог самого нижнего уровня, просмотреть его содержимое.
A:\ > cd SCOOL\ CLASS1
A:\ SCOOL\ CLASS1> dir \
Результат:
Volume in drive A is DIANA
Volume Serial Number is 1406-2E61
Directory of A:\SCOOL\CLASS1
. <DIR> 12/05/95 23:16
.. <DIR> 12/05/95 23:16
2 file(s) 0 bytes
4 202 496 bytes free
A:\SCOOL\CLASS1>
3)создать два текстовых файла.
A:\ SCOOL\CLASS1> copy con t1.txt
A:\ SCOOL\CLASS1> copy con t2.txt
Результат:
A:\SCOOL\CLASS1>copy con t1.txt
мы идем
^Z
1 file(s) copied
A:\SCOOL\CLASS1>copy con t2.txt
они пришли
^Z
1 file(s) copied
A:\SCOOL\CLASS1>
4) вывести содержимое файлов на экран.
A:\SCOOL\CLASS1>TYPE T1.TXT
A:\SCOOL\CLASS1>TYPE T2.TXT
Результат:
A:\SCOOL\CLASS1>TYPE T1.TXT
мы идем
A:\SCOOL\CLASS1>TYPE T2.TXT
они пришли
5)объединить два текстовых файла в один.
A:\SCOOL\CLASS1>COPY T1.TXT + T2.TXT T3.TXT
Результат:
A:\SCOOL\CLASS1>COPY T1.TXT + T2.TXT T3.TXT
T1.TXT
T2.TXT
1 file(s) copied
A:\SCOOL\CLASS1>
6) вывести содержимое на экран.
A:\SCOOL\CLASS1>TYPE T3.TXT
Результат:
A:\SCOOL\CLASS1>TYPE T3.TXT
мы идем
они пришли
A:\SCOOL\CLASS1>
7)переименовать объединенный файл.
A:\SCOOL\CLASS1>REN T3.TXT T4.TXT
Результат:
A:\SCOOL\CLASS1>REN T3.TXT T4.TXT
A:\SCOOL\CLASS1>
8) просмотреть оглавление каталога.
A:\SCOOL\CLASS1>DIR
Результат:
A:\SCOOL\CLASS1>DIR
Volume in drive A is DIANA
Volume Serial Number is 1406-2E61
Directory of A:\SCOOL\CLASS1
. <DIR> 12/05/95 23:16
.. <DIR> 12/05/95 23:16
T1 TXT 9 12/05/95 23:54
T2 TXT 12 12/05/95 23:55
T4 TXT 22 13/05/95 0:19
5 file(s) 43 bytes
4 202 496 bytes free
A:\SCOOL\CLASS1>
9) удалить файл.
A:\SCOOL\CLASS1>DEL *.*
Результат:
A:\SCOOL\CLASS1>DEL *.*
All files in directory will be deleted!
Are you sure (Y/N)?Y
A:\SCOOL\CLASS1>
10) последовательно удалить каталоги.
A:\SCOOL\CLASS1>CD. .
A:\SCOOL\>RD CLASS1
A:\SCOOL\> RD CLASS2
A:\SCOOL\> RD CLASS3
A:\ SCOOL\ > cd . .
A:\ >RD ZOO
A:\ >RD HOME
A:\ >RD SCOOL
A:\ >RD UNIVER
5. Работа с каталогами и файлами в системе NORTON COMMANDER.
5.1. Постановка задачи.
é ZOO
\¾¾ ê HOME é CLASS1
ê SСOOL ¾¾¾ ê CLASS2
ë UNIVER ë CLASS3
5.2. Задание.
1) создать указанное дерево каталогов.
a) нажимаем F7, набираем ZOO, нажимаем Enter.
б) нажимаем F7, набираем HOME, нажимаем Enter.
в) нажимаем F7, набираем SСOOL, нажимаем Enter.
г) нажимаем F7, набираем UNIVER, нажимаем Enter.
д) подводим курсор к SСOOL, нажимаем Enter, нажимаем F7, набираем CLASS1 и нажимаем Enter.
е) нажимаем F7, набираем CLASS2, нажимаем Enter.
ж) нажимаем F7, набираем CLASS3, нажимаем Enter.
2) перейти в каталог самого нижнего уровня, посмотреть его оглавление.
Подводим курсор к CLASS1, нажимаем Enter, набираем в командной строке dir и нажимаем Enter.
3) создать два текстовых файла.
а) набираем в командной строке copy con t1.txt, нажимаем Enter, вводим Ira, нажимаем F6 и Enter.
Результат: 1 file(s) copied
б) набираем в командной строке copy con t2.txt, нажимаем Enter, вводим Natasha, нажимаем F6 и Enter.
Результат: 1 file(s) copied
4) вывести на экран содержимое файлов.
а) подводим курсор к t1.txt и нажимаем F3.
Результат: Ira
б) нажимаем Esc, подводим курсор к t2.txt и нажимаем F3.
Результат: Natasha
5) объединить два файла в один.
Нажимаем Esc, набираем в командной строке сopy t1.txt + t2.txt t3.txt и нажимаем Enter.
Результат: t1.txt
t2.txt
1 file(s) copied
6) вывести на экран содержимое этого файла.
Подводим курсор к t3.txt и нажимаем F3.
Результат: Ira Natasha
7) переименовать объединенный файл.
Нажимаем Esc, F6 и набираем t4.txt, нажимаем Enter.
8) посмотреть его содержимое.
Подводим курсор к t4.txt и нажимаем F3.
Результат: Ira Natasha
9) удалить созданные файлы.
а) нажимаем Esc, отмечаем клавишей INS t1.txt, t2.txt и t4.txt и нажимаем F8.
10) удалить каталоги.
а) отмечаем клавишей INS ZOO, HOME, SСOOL, UNIVER, нажимаем Enter, удаляем дерево каталогов.
6. Вывод.
Благодаря лекционной части курса были получены навыки, которые затем были применены при работе над практикой, такие, как: работа с каталогами и файлами в системах MS-DOS и Norton Commander; составление блок-схем алгоритмов решения различных задач; написание программ на языке QBASIC с использованием массивов, циклов, операторов условного и безусловного перехода.
Задания практики позволили реализовать и усовершенствовать полученные теоретические знания, применить их к решению конкретных задач: использование символьных функций для обработки текста; работа с системами MS-DOS и Norton Commander; решение нелинейных уравнений различными методами с различным начальным приближением и различными степенями точности; обработка таблиц и данных для получения статистических оценок.
Практическая часть курса позволила в основном овладеть указанными навыками.