«Работа с массивами и чтениезапись на диск»

3. Через кнопку «РАСЧЕТ» открыть редактор VBA и набрать фрагмент программы чтения данных из таблицы листа в одномерный массив X(i) и двухмерный массив Y(i,j), количество элементов массива N при этом прочитать с диска из файла 2050.txt

4. Дополнить программу пересчета элементов двухмерного массива Y из град. Цельсия в град. Фаренгейта и из мм ртутного столба – в МПа и программой записи элементов массива на лист (в столбцы 4 и 5)

5. Через кнопку «ОЧИСТКА» открыть редактор VBA и набрать фрагмент программы, стирающий содержимое столбцов 4 и 5

6. Дополнить программу фрагментом записи массива Y на диск в виде текстового файла ФИО.txt, повторить расчет и убедиться, что именно этот файл появился на диске (сравнить с данными на листе

Excel, они должны полностью совпасть) Максимум 15 баллов

B 7. Заменить статические массивы динамическими и добиться такого же результата работы программы

8. В отчете привести фрагмент дополненной программы и показать преимущество динамических массивов. Пример фрагмента программы работы с динамическим массивом найти найти в рекомендованной литературе (по ссылке, найденной

в л.р.№2 и 3). +5 баллов,

если пройден

уровень А

For i = 1 To N

Y(1, i) = Y(1, i) * 9 / 5 + 32

Y(2, i) = Y(2, i) / 748 * 101.325

Next i

' цикл записи результатов из массива 4 и 5 столбцы первого листа Excel

For i = 1 To N

Worksheets(1).Cells(i + 2, 4).Value = Y(1, i)

Worksheets(1).Cells(i + 2, 5).Value = Y(2, i)

Next i

**********сюда вставить фрагмент записи массива Y на диск(выбрать из Примера программы чтения/записи, приведенного ниже)

End Sub

Private Sub CommandButton2_Click()

' цикл очистки 4 и 5 столбцов первого листа Excel ‘***************сюда вставить фрагмент, подобный очистке в предыдущих лабораторных работах

End Sub

Пример чтения числа N с диска и записи на диск N строк массива Y

Dim Y(2, 10) As Integer Dim n As Integer

Sub Disk()

Open "d:\2050.txt" For Input As #1

Open "d:\Fattahov.txt" For Output As #2

While Not EOF(1)

Input #1, N

MsgBox N

Wend

For i = 1 To N

Print #2, Y(1, i), Y(2, i)

Next i

Close #1

Close #2

End Sub

Ход работы

Задание 1. Создать на диске в корневом каталоге файл 2050.txt и записать туда одно число N(в соответствии с индивидуальным заданием)

Рисунок 1

Задание 2. Набрать на листе 1 в первых трех столбцах таблицу исходных данных X и Y, например

«Прогноз температуры и давления» на N дней (это число дано в индивидуальном задании), первую и вторую строки использовать для подписи заголовков столбцов. Под таблицей поместить командные кнопки «РАСЧЕТ» и «ОЧИСТКА»

Рисунок 2

Задание 3. Через кнопку «РАСЧЕТ» открыть редактор VBA и набрать фрагмент программы чтения данных из таблицы листа в одномерный массив X(i) и двухмерный массив Y(i,j), количество элементов массива N при этом прочитать с диска из файла 2050.txt

Рисунок 3

Задание 4. Дополнить программу пересчета элементов двухмерного массива Y из град. Цельсия в град. Фаренгейта и из мм ртутного столба – в МПа и программой записи элементов массива на лист (в столбцы 4 и 5)

3. Чем отличаются динамические массивы от статических массивов?

Статические массивы выделяют память во время компиляции, а память выделяется в стеке. В то время как динамические массивы выделяют память во время выполнения, а память выделяется из кучи.

4. Как определить конец файла при чтении с диска?

if (!f1.eof()){ //Если НЕ достигнут конец файла, то выполняем блок действий

if (f1.fail()){ ERROR = 2; //Если считываемое значение не соответствует типу принимающего значение

} else{

ERROR = 3; //Обозначаем неизвестную ошибку

} else {

ERROR = 1; //1 будет обозначать, что наша программа файл открыть не смогла

5. Как определить конец файла при записи на диск?

Открыть файл (в качестве примера возьмем файл D:\\sites\\accounts.txt) в режиме записи можно одним из следующих способов:

1

2

3

4

5

6

7

8

9

10 //первый способ

ofstream F;

F.open(«D:\\sites\\accounts.txt», ios::out);

//второй способ, режим ios::out является режимом по умолчанию

//для потока ofstream

ofstream F;

F.open(«D:\\game\\noobs.txt»);

//третий способ объединяет описание переменной и типа поток

//и открытие файла в одном операторе

ofstream F («D:\\game\\noobs.txt», ios::out);

После открытия файла в режиме записи будет создан пустой файл, в который можно будет записывать информацию.

Вывод:

Мы научились на VBA: применять статических и динамических, одномерных и двухмерных массивов, а также читать и записывать данные в файлы на диске.