Программа

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

PRINT TAB(8); "Область, край "; TAB(40); "Количество жителей "

PRINT

FOR I = 1 TO N

PRINT TAB(5); A$(I); TAB(45); Т(I)

NEXT I

PRINT

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

. 12/05/95 23:16

.. 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

. 12/05/95 23:16

.. 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; решение нелинейных уравнений различными методами с различным начальным приближением и различными степенями точности; обработка таблиц и данных для получения статистических оценок.

Практическая часть курса позволила в основном овладеть указанными нав