Лабораторная работа №8 по информатике

Сравнив между собой энтропию и избыточность текста, рассчитанные по одномерной статистике и по двумерной статистике, пришли к выводу, что полученные результаты соответствуют второму свойству энтропии. Убедились в равенстве 0 энтропии одного текста и в нулевой избыточности другого.

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ

Новосибирский государственный технический университет

 

 

«ВВОД/ВЫВОД В ФАЙЛ. ЭЛЕМЕНТЫ УПРАВЛЕНИЯ»

 

 

 

 

Факультет: АВТФ Преподаватель:

Худяков Д.С.

Группа: АА-26

 

Вариант: 22

 

Студент:

Фокин М.С.

 

 

Новосибирск

Задание №1: Научиться оперировать с текстовыми файлами.

Задание №2: Научиться использовать элементы управления.

Задача: Прочитать из текстового файла набор слов, обработать в программе-процедуре (В каждом слове, где есть буква «а», добавить после нее «да»), и вывести в другой текстовый файл.

Исходные данные:

Алгоритм:

1. Создать кнопки управления из рабочего листа Excel/

Ход работы:

1.Создаем первую кнопку, которая проверяет есть ли файл в указанном месте и при его наличие переносит данные из файла в рабочий лист.

 

Private Sub CommandButton1_Click()

 

Dim file1%

Dim strFileName As String

Dim strFileTitle As String

i = 0

strFileTitle = "1.txt"

strFileName = "C:\Documents and Settings\Admin\Мои документы\ВСЕ ДЛЯ УЧЕБЫ\учеба\инфораматика\Лабы вар 22\лаба 8\1.txt"

If Dir(strFileName) <> "" Then

file1 = FreeFile

i = 0

Open "C:\Documents and Settings\Admin\Мои документы\ВСЕ ДЛЯ УЧЕБЫ\учеба\инфораматика\Лабы вар 22\лаба 8\1.txt" For Input As file1

Do Until EOF(file1)

i = i + 1

ReDim Preserve mywords(1 To i)

Line Input #file1, mywords(i)

Range("A" & i) = mywords(i)

Loop

CommandButton1.Caption = "Файл открыт"

Else

MsgBox "Файл " & strFileTitle & " не найден"

CommandButton1.Caption = "Открыть файл"

End If

Close file1

End Sub

2.Создаем кнопку, которая обрабатывает данные и помешает их в соседний столбец рабочего листа.

 

Private Sub CommandButton2_Click()

Dim s As String, i As Integer, m As String, j As Integer

j = 1

Do While Cells(j, 1).Text <> ""

m = Cells(j, 1).Text

s = ""

For i = 1 To Len(m)

If Mid(m, i, 1) = "а" Then s = s + Mid(m, i, 1) + "да"

If Mid(m, i, 1) <> "а" Then s = s + Mid(m, i, 1)

Next i

Cells(j, 2).Value = s

j = j + 1

Loop

End Sub

 

3.Создаем кнопку, которая будет создавать файл формата.txt и заносить в него обработанные данные.

 

Private Sub CommandButton3_Click()

Dim LineOut$, file2%, j%

file2 = FreeFile

Open "C:\Documents and Settings\Admin\Мои документы\ВСЕ ДЛЯ УЧЕБЫ\учеба\инфораматика\Лабы вар 22\лаба 8\2.txt" For Output As file2

For j = 1 To i

If Cells(j, 2).Text <> "" Then

Print #file2, Cells(j, 2).Text

End If: Next

Close file2

CommandButton3.Caption = "Данные сохранены"

End Sub

 

4.Создаем кнопку, которая будет очищать рабочий лист и возвращать кнопкам первоначальные имена.

 

Private Sub CommandButton4_Click()

Dim i As Integer

i = 0

Do While Cells(i + 1, 1) <> ""

i = i + 1

Cells(i, 1) = ""

Cells(i, 2) = ""

Loop

CommandButton1.Caption = "Открыть файл"

CommandButton2.Caption = "Обработать данные"

CommandButton3.Caption = "Сохранить данные"

End Sub

Результаты:

 

Вывод:

1. Я научился оперировать с текстовыми файлами.

2. Я научился использовать элементы управления.