Рефераты | Рефераты по кибернетике | Создание программных продуктов для решения задач | страница реферата 3 | Большая Энциклопедия Рефератов от А до Я
Большая Энциклопедия Рефератов от А до Я
  • Рефераты, курсовые, шпаргалки, сочинения, изложения
  • Дипломы, диссертации, решебники, рассказы, тезисы
  • Конспекты, отчеты, доклады, контрольные работы


    • Рефераты | Рефераты по кибернетике | Создание программных продуктов для решения задач


    Рефераты | Рефераты по кибернетике | Создание программных продуктов для решения задач

    Создание программных продуктов для решения задач




    Категория реферата: Рефераты по кибернетике
    Теги реферата: ответы 5 класс, реферат на тему орган
    Добавил(а) на сайт: Sijankin.



    Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 |



    Программный код в среде 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
    For I = 1 To 7
    Input #1, V(I), Q(I)
    MSFlexGrid1.TextMatrix(I, 1) = V(I)
    MSFlexGrid1.TextMatrix(I, 2) = Q(I)
    Next I
    Close #1
    End If
    ‘ВВОД ЭЛЕМЕНТОВ МАССИВОВ ВРУЧНУЮ
    If Проверка1.Value = 0 Then
    For I = 1 To 7
    MSFlexGrid1.TextMatrix(I, 1) = InputBox(“ВВЕДИТЕ ЭЛЕМЕНТ МАССИВА V(I)”)
    Next I
    For I = 1 To 7
    MSFlexGrid1.TextMatrix(I, 2) = InputBox(“ВВЕДИТЕ ЭЛЕМЕНТ МАССИВА Q(I)”)
    Next I
    End If
    End Sub

    'РЕШЕНИЕ A=V/Q, НАХОЖДЕНИЕ MIN (MAX),СУММЫ ЭЛЕМЕНТОВ МАССИВОВ
    Private Sub Комманда2_Click()
    Список1.Clear
    For I = 1 To 7
    Список1.AddItem (CCur(MSFlexGrid1.TextMatrix(I, 1) /
    MSFlexGrid1.TextMatrix(I, 2)))
    Next I
    Dim Summ As Single
    Summ = 0
    For I = 1 To 7
    Summ = Summ + MSFlexGrid1.TextMatrix(I, 1)
    Next I
    Текст1.Text = CSng(Summ)
    Dim Summa As Single
    For I = 1 To 7
    Summa = Summa + MSFlexGrid1.TextMatrix(I, 2)
    Next I
    Текст2.Text = CSng(Summa)
    ‘РАСЧЕТ КОЭФФИЦИЕНТА “А”
    Dim a As Single a = Текст1.Text / Текст2.Text
    Текст3.Text = CSng(a)
    End Sub

    ‘V(I)РАСЧЕТНАЯ
    Private Sub Комманда3_Click()
    For I = 1 To 7
    MSFlexGrid1.TextMatrix(I, 3) = Текст3.Text * MSFlexGrid1.TextMatrix(I, 2)
    Next I
    End Sub

    ‘ПОГРЕШНОСТЬ
    Private Sub Комманда4_Click()
    For I = 1 To 7
    MSFlexGrid1.TextMatrix(I, 4) = Ccur(Sqr((((MSFlexGrid1.TextMatrix(I, 3) –
    MSFlexGrid1.TextMatrix(I, 1)) / MSFlexGrid1.TextMatrix(I, 1)) * 100) ^ 2))
    Next I
    ‘СОРТИРОВКА
    Dim min As Single
    Dim max As Single min = MSFlexGrid1.TextMatrix(7, 4)
    ‘НАХОЖДЕНИЕ MIN
    For I = 1 To 7
    If MSFlexGrid1.TextMatrix(I, 4) < min Then min = MSFlexGrid1.TextMatrix(I,
    4)
    Next I
    Текст4.Text = CSng(min) max = MSFlexGrid1.TextMatrix(1, 4)
    ‘НАХОЖДЕНИЕ MAX
    For I = 1 To 7
    If MSFlexGrid1.TextMatrix(I, 4) > max Then max = MSFlexGrid1.TextMatrix(I,
    4)
    Next I
    Текст6.Text = CSng(max)
    End Sub

    Private Sub Комманда5_Click()
    'ЗАКОН СТЕФАНА-БОЛЬЦМАНА
    'V=k*Q^4, где k-постоянная Стефана-Больцмана: k = 5.67 * 10 ^ -8
    Dim z(7) As Single, V(7) As Single
    For I = 1 To 7 z(I) = 0.0000000567 * ((MSFlexGrid1.TextMatrix(I, 2) + 273) ^ 4 – 273 ^ 4)
    ‘V=AZ
    V(I) = 0.1 * Текст3.Text * z(I)
    'ВЫВОД СКОРОСТИ ОХЛАЖДЕНИЯ
    Список2.AddItem (Ccur(V(I)))
    Next I
    End Sub

    Private Sub Комманда6_Click()
    End
    End Sub


    Private Sub Command7_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
    For I = 1 To 7
    Input #1, V(I), Q(I)
    MSFlexGrid1.TextMatrix(I, 1) = V(I)
    MSFlexGrid1.TextMatrix(I, 2) = Q(I)
    Next I
    Close #1
    End If
    ‘ВВОД ЭЛЕМЕНТОВ МАССИВОВ ВРУЧНУЮ
    If Проверка1.Value = 0 Then
    For I = 1 To 7
    MSFlexGrid1.TextMatrix(I, 1) = InputBox(“ВВЕДИТЕ ЭЛЕМЕНТ МАССИВА V(I)”)
    Next I
    For I = 1 To 7
    MSFlexGrid1.TextMatrix(I, 2) = InputBox(“ВВЕДИТЕ ЭЛЕМЕНТ МАССИВА Q(I)”)
    Next I
    End If
    Список1.Clear
    For I = 1 To 7
    Список1.AddItem (Ccur(MSFlexGrid1.TextMatrix(I, 1) /
    MSFlexGrid1.TextMatrix(I, 2)))
    Next I
    Dim Summ As Single
    Summ = 0
    For I = 1 To 7
    Summ = Summ + MSFlexGrid1.TextMatrix(I, 1)
    Next I
    Текст1.Text = CSng(Summ)
    Dim Summa As Single
    For I = 1 To 7
    Summa = Summa + MSFlexGrid1.TextMatrix(I, 2)
    Next I
    Текст2.Text = CSng(Summa)
    ‘РАСЧЕТ КОЭФФИЦИЕНТА “А”
    Dim a As Single a = Текст1.Text / Текст2.Text
    Текст3.Text = CSng(a)
    For I = 1 To 7
    MSFlexGrid1.TextMatrix(I, 3) = Текст3.Text * MSFlexGrid1.TextMatrix(I, 2)
    Next I
    For I = 1 To 7
    MSFlexGrid1.TextMatrix(I, 4) = Ccur(Sqr((((MSFlexGrid1.TextMatrix(I, 3) –
    MSFlexGrid1.TextMatrix(I, 1)) / MSFlexGrid1.TextMatrix(I, 1)) * 100) ^ 2))
    Next I
    ‘СОРТИРОВКА
    Dim min As Single
    Dim max As Single min = MSFlexGrid1.TextMatrix(7, 4)
    ‘НАХОЖДЕНИЕ MIN
    For I = 1 To 7
    If MSFlexGrid1.TextMatrix(I, 4) < min Then min = MSFlexGrid1.TextMatrix(I,
    4)
    Next I
    Текст4.Text = CSng(min) max = MSFlexGrid1.TextMatrix(1, 4)
    ‘НАХОЖДЕНИЕ MAX
    For I = 1 To 7
    If MSFlexGrid1.TextMatrix(I, 4) > max Then max = MSFlexGrid1.TextMatrix(I,
    4)
    Next I
    Текст6.Text = CSng(max)

    'ЗАКОН СТЕФАНА-БОЛЬЦМАНА
    'V=k*Q^4, где k-постоянная Стефана-Больцмана: k = 5.67 * 10 ^ -8
    Dim z(7) As Single, W(7) As Single
    For I = 1 To 7 z(I) = 0.0000000567 * ((MSFlexGrid1.TextMatrix(I, 2) + 273) ^ 4 – 273 ^ 4)
    ‘V=AZ
    W(I) = 0.1 * Текст3.Text * z(I)
    'ВЫВОД СКОРОСТИ ОХЛАЖДЕНИЯ
    Список2.AddItem (Ccur(W(I)))
    Next I
    End Sub

    Private Sub mnuВключить_Click()
    'ВКЛЮЧЕНИЕ КАЛЬКУЛЯТОРА
    ‘OLE1.SourceDoc = “C:WINDOWSCALC.EXE”
    OLE1.Action = 7
    End Sub

    Private Sub mnuВыход_Click()
    End
    End Sub

    Private Sub mnuОткрыть_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
    ‘АВТОМАТИЧЕСКИЙ ВВОД
    Open “A:Данные.txt” For Input As #1
    For I = 1 To 7
    Input #1, V(I), Q(I)
    MSFlexGrid1.TextMatrix(I, 1) = V(I)
    MSFlexGrid1.TextMatrix(I, 2) = Q(I)
    Next I
    Close #1
    End Sub

    Private Sub mnuСкрыть_Click()
    ‘СКРЫТЬ ВРЕМЯ
    Часы1.Enabled = False
    Текст5.Text = “”
    End Sub

    Private Sub mnuПоказать_Click()
    ‘ПОКАЗАТЬ ВРЕМЯ
    Часы1.Enabled = True
    Часы1.Interval = 250
    End Sub

    Private Sub Часы1_Timer()
    'ВЫВОД ВРЕМЕНИ
    Текст5.Text = CStr(Time)
    End Sub

    Значения свойств объектов:

    VERSION 5.00
    Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
    Begin VB.Form Форма1

    Caption = "КУРСОВАЯ РАБОТА"

    ClientHeight = 4905

    ClientLeft = 165

    ClientTop = 735

    ClientWidth = 6660

    LinkTopic = "Form1"


    Рекомендуем скачать другие рефераты по теме: возрождение реферат, риск реферат.



    Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 |




    Поделитесь этой записью или добавьте в закладки

       

    Категории:



    Разделы сайта




    •