Реферат: Курс I группа 517 Дисциплина: информатика. работа

Для этого следует решить уравнения:

(4)

Если максимальная относительная погрешность (2) окажется больше 5%,

проверить, согласуется ли с данными опыта закон Стефана: V=k((Q+273)^4-273^4) (5).

Обозначив Z=k((Q+273)^4-273^4), где k=5,67*10^(-9), подобрать коэффи-циент A, скорость охлаждения, относительную погрешность, решить сле-дующую систему уравнений:

V=AZ (6)

План решения задачи

1. Составить алгоритм и программу вычисления коэффициента А,

V(I) расчетного и относительную погрешность.

2. Вычисление А оформить в виде подпрограммы общего вида.

3. Напечатать таблицы.

4. Построить графики зависимостей V(I) расчетного и V(I) от Q(I).

5. Выбрать закон, по которому расчетные значения V(I) расчетные лучше согласуются с данными опыта.

Проект. Рабочая форма Visual Basic:

Программный код в среде Visual Basic:

Option Explicit

Dim I As Integer

Dim a(7) As Single

‘ВВОД ЭЛЕМЕНТОВ МАССИВОВ

Private Sub Комманда1_Click()

Dim V(7) As Single, Q(7) As Single

MSFlexGrid1.TextMatrix(0, 0) = “№ Опыта”

MSFlexGrid1.TextMatrix(0, 1) = “ V(I) “

MSFlexGrid1.TextMatrix(0, 2) = “ Q(I) “

MSFlexGrid1.TextMatrix(0, 3) = “ V(I)расч.”

MSFlexGrid1.TextMatrix(0, 4) = “V(I), %”

For I = 1 To 7

MSFlexGrid1.TextMatrix(I, 0) = I

Next I

'АВТОМАТИЧЕСКИЙ ВВОД

If Проверка1.Value = 1 Then

Open “A:\Данные.txt” For Input As #1