ЛАБОРАТОРНАЯ РАБОТА №2
Ввод-вывод информации, с использованием файлов. Форматирование значений данных.
Задание. Составить процедуру для вычисления и печати значений функции
Вычислить 8 значений функции на заданном интервале [-1,5.. 3.5]. Исходные данные задать в файле Dat2.txt. Ре- 49 зультат поместить в файл вывода с именем Res2.txt в заданной форме
Ход выполнения работы:
Sub Макрос1()
Dim X, Y As Single
Open "C:\VBA\dat2.txt" For Input As #1
Open "C:\VBA\res2.txt" For Output As #2
Print #2, Tab(10); "*************************************"
10 Input #1, X
If EOF(1) Then GoTo 99
Y = Log(8) - 5 * X ^ 4 + 3.14 * X ^ 5
Print #2, Tab(10); "* x= "; Spc(3); Format(X, "##.0##"); _
Tab(30); " * y= "; Spc(3); Format(Y, "##.0##"); " * ";
GoTo 10
99
Y = Log(8) - 5 * X ^ 4 + 3.14 * X ^ 5
Print #2, Tab(10); "* x= "; Spc(3); Format(X, "##.0##"); _
Tab(30); " * y= "; Spc(3); Format(Y, "##.0##"); " * ";
Print #2, Tab(10); "*************************************"
Print #2, Tab(10); "Составил: "
Close #1
Close #2
End Sub
Файл dat2.txt
-1.5
-0.875
-0.25
0.375
1
1.625
2.25
2.875
3.5
Файл Res2.txt:
- Курсовая работа
- Дипломная работа
- Контрольная работа
- Реферат
- Отчет по практике
- Магистерская работа
- Статья
- Эссе
- Научно-исследовательская работа
- Доклад
- Глава диплома
- Ответы на билеты
- Презентация
- Перевод
- Бизнес план
- Научная статья
- Рецензия
- Лабораторная работа
- Решение задач
- Диссертация
- Доработка заказа клиента
- Аспирантский реферат
- Монография
- ВКР
- Дипломная работа MBA
- Компьютерный набор текста
- Речь к диплому
- Тезисный план
- Чертёж
- Диаграммы, таблицы
- ВАК
