ðåôåðàòû
Ãëàâíàÿ

Ðåôåðàòû ïî ðåêëàìå

Ðåôåðàòû ïî ôèçèêå

Ðåôåðàòû ïî ôèëîñîôèè

Ðåôåðàòû ïî ôèíàíñàì

Ðåôåðàòû ïî õèìèè

Ðåôåðàòû ïî õîçÿéñòâåííîìó ïðàâó

Ðåôåðàòû ïî öèôðîâûì óñòðîéñòâàì

Ðåôåðàòû ïî ýêîëîãè÷åñêîìó ïðàâó

Ðåôåðàòû ïî ýêîíîìèêî-ìàòåìàòè÷åñêîìó ìîäåëèðîâàíèþ

Ðåôåðàòû ïî ýêîíîìè÷åñêîé ãåîãðàôèè

Ðåôåðàòû ïî ýêîíîìè÷åñêîé òåîðèè

Ðåôåðàòû ïî ýòèêå

Ðåôåðàòû ïî þðèñïðóäåíöèè

Ðåôåðàòû ïî ÿçûêîâåäåíèþ

Ðåôåðàòû ïî þðèäè÷åñêèì íàóêàì

Ðåôåðàòû ïî èñòîðèè

Ðåôåðàòû ïî êîìïüþòåðíûì íàóêàì

Ðåôåðàòû ïî ìåäèöèíñêèì íàóêàì

Ðåôåðàòû ïî ôèíàíñîâûì íàóêàì

Ðåôåðàòû ïî óïðàâëåí÷åñêèì íàóêàì

Ïñèõîëîãèÿ è ïåäàãîãèêà

Ïðîìûøëåííîñòü ïðîèçâîäñòâî

Áèîëîãèÿ è õèìèÿ

ßçûêîçíàíèå ôèëîëîãèÿ

Èçäàòåëüñêîå äåëî è ïîëèãðàôèÿ

Ðåôåðàòû ïî êðàåâåäåíèþ è ýòíîãðàôèè

Ðåôåðàòû ïî ðåëèãèè è ìèôîëîãèè

Ðåôåðàòû ïî ìåäèöèíå

Ðåôåðàòû ïî ñåêñîëîãèè

Ðåôåðàòû ïî èíôîðìàòèêå ïðîãðàììèðîâàíèþ

Êðàòêîå ñîäåðæàíèå ïðîèçâåäåíèé

Ðåôåðàò: Ñîçäàíèå ïðîãðàììíûõ ïðîäóêòîâ äëÿ ðåøåíèÿ çàäà÷

Ðåôåðàò: Ñîçäàíèå ïðîãðàììíûõ ïðîäóêòîâ äëÿ ðåøåíèÿ çàäà÷

Ñàíêò-Ïåòåðáóðãñêèé ãîñóäàðñòâåííûé òåõíîëîãè÷åñêèé èíñòèòóò

( Òåõíè÷åñêèé óíèâåðñèòåò)

Êàôåäðà Ìàòåìàòè÷åñêîãî ìîäåëèðîâàíèÿ è îïòèìèçàöèè õèìèêî-òåõíîëîãè÷åñêèõ ïðîöåññîâ

Ôàêóëüòåò 5

                      Êóðñ I

Ãðóïïà 517

Äèñöèïëèíà: èíôîðìàòèêà.

ÊÓÐÑÎÂÀß ÐÀÁÎÒÀ

Òåìà: Ñîçäàíèå ïðîãðàììíûõ ïðîäóêòîâ äëÿ ðåøåíèÿ çàäà÷.

Ñòóäåíò: Õîõëåíêî Ñåðãåé Äìèòðèåâè÷

Íàó÷íûé ðóêîâîäèòåëü:

Ãàéêîâ Àíäðåé Âëàäèìèðîâè÷

Ñàíêò-Ïåòåðáóðã

2002

Ñîäåðæàíèå

Ââåäåíèå…………………………………………………………………………3

Çàäàíèå íà ðàáîòó……………………………………………………………….4

Îïèñàíèå ìåòîäà………………………………………………………………...5

Àëãîðèòì ïîñòðîåíèÿ ðåøåíèÿ çàäà÷è……………………………………...…6

Ãëàâà I…………………………………………………………………………….7

    Ïðîåêò. Ðàáî÷àÿ ôîðìà Visual Basic…………………………………………8

    Ïðîãðàììíûé êîä……………………………………………………………..9

    Ñâîéñòâà îáúåêòîâ……………………………………………………………10

    Ðàáî÷àÿ ôîðìà ñ äàííûìè……………………………………………………11

Ãëàâà II……………………………………………………………………….......12

    Ðåøåíèå â MathCad’å…………………………………………………………13

    Ãðàôèêè ¹1 è ¹2.............................................................................................14

Ãëàâà III..................................................................................................................15

    Ðåøåíèå çàäà÷è â Excei’å.................................................................................16

    Ãðàôèêè çàâèñèìîñòåé......................................................................................17

Çàêëþ÷åíèå.............................................................................................................18

Àííîòàöèÿ..............................................................................................................19

Àííîòàöèÿ

 äàííîé êóðñîâîé ðàáîòå ðàññìîòðåí Ìåòîä íàèìåíüøèõ êâàäðàòîâ, ïîçâîëÿþùèé âåñòè ðàñ÷åòû  â ðàçëè÷íûõ ôèçèêî-õèìè÷åñêèõ çàäà÷àõ.

Ãëàâíûìè çàêîíàìè, íåîáõîäèìûìè äëÿ ðåøåíèÿ ïîñòàâëåííîé  çàäà÷è, ÿâëÿþòñÿ: Çàêîí Íüþòîíà è Çàêîí Ñòåôàíà-Áîëüöìàíà.

Ðàáîòà âûïîëíåíà â òðåõ ïðîãðàììíûõ ñðåäàõ: Visual Basic, Excel è Math-Cad. Ïðîãðàììíûé êîä, íàïèñàííûé íà ÿçûêå ïðîãðàììèðîâàíèÿ Visual   Basic, ÷èòàåòñÿ ñ ëåãêîñòüþ è ïðîñò â ïîíèìàíèè. Ïîñòðîåííûå ãðàôèêè ïîçâîëÿþò âûáðàòü íàèáîëåå ïîäõîäÿùèé çàêîí äëÿ ðàñ÷åòà ñêîðîñòè îõëàæäåíèÿ.

Ââåäåíèå

Ñîâðåìåííîå ïðîãðàììèðîâàíèå ðàçâèâàåòñÿ è øèðîêî èñïîëüçóåòñÿ äëÿ ðåøåíèÿ òàêèõ çàäà÷, êàê ïðîãðàììèðîâàíèå áàç äàííûõ, ðåàëèçàöèÿ îáìåíà ìåæäó ïðèëîæåíèÿìè, èñïîëüçîâàíèå ñåòåâûõ òåõíîëîãèé è ò.ä.; ñîâðåìåí-íûå ñèñòåìû ïðîãðàììèðîâàíèÿ îáåñïå÷èâàþò ãåíåðàöèþ êîäà.

Áîëüøèíñòâî êîìïüþòåðîâ â ðàìêàõ âñåãî ìèðà ðàáîòàþò ïîä óïðàâëåíèåì îïåðàöèîííîé ñèñòåìû Windows êîðïîðàöèè Microsoft. Êàæäûé ïîëüçîâàòåëü õîòÿ áû ðàç â æèçíè ðàáîòàë ñ ïðèëîæåíèÿìè Word, Excel èëè Access. Ïðàêòè÷åñêèå çàäà÷è èíîãäà òðåáóþò îáìåíà äàííûìè ìåæäó ïðèëî-æåíèÿìè; ïóñòü, íàïðèìåð, èìååòñÿ áàçà äàííûõ, íóæíî ñäåëàòü çàïðîñ ê íåé, à çàòåì – ìàòåìàòè÷åñêóþ îáðàáîòêó ðåçóëüòàòîâ çàïðîñà, êîòîðóþ, ìîæíî âûïîëíèòü òîëüêî ñ èñïîëüçîâàíèåì Excel; çäåñü ñëåäóåò ïåðåäàòü ðåçóëü-òàòû çàïðîñà â ïðèëîæåíèå Excel è äëÿ ýòîãî íóæíî èñïîëüçîâàòü ÿçûê ïðî-ãðàììèðîâàíèÿ.

Áàçîâûì ÿçûêîì ïðîãðàììèðîâàíèÿ êîðïîðàöèè Microsoft ÿâëÿåòñÿ Visual Basic. Ñîâðåìåííûå åãî âåðñèè ïîçâîëÿþò,  è ðåàëèçîâàòü â ïðîãðàììå SQL-çàïðîñ ê áàçå äàííûõ è âûïîëíèòü âûøåóïîìÿíóòóþ ïåðåäà÷ó äàííûõ. Îñîáåííîñòü ÿçûêà Visual Basic çàêëþ÷àåòñÿ â ðåïëèêàöèè è ñèíõðîíèçàöèè áàç äàííûõ.

Êóðñîâàÿ ðàáîòà âêëþ÷àåò â ñåáÿ òðè ðàçëè÷íûõ âàðèàíòà ââîäà äàííûõ çíà÷åíèé: àâòîìàòè÷åñêèé (íàèáîëåå ïðîñòîé) è äâà ðó÷íûõ: îòêðûòèå ôàéëà è ñàìîñòîÿòåëüíûé ââîä êàæäîãî îòäåëüíîãî ÷èñëà (çíà÷åíèÿ). Êðîìå ýòîãî, ðàáîòà âêëþ÷àåò â ñåáÿ óíèâåðñàëüíûé èíæåíåðíûé êàëüêóëÿòîð, íåîáõîäè-ìûé äëÿ êàêèõ ëèáî âû÷èñëåíèé. Ïîñòðîåííûå ãðàôèêè çàâèñèìîñòåé â ïðî-ãðàììàõ ïîçâîëÿþò âûáðàòü íàèáîëåå ïðèåìëåìûé çàêîí, à òàêæå ñàì ÿçûê ïðîãðàììèðîâàíèÿ. 

 

  

Çàäàíèå ¹7

Çàêîí Íüþòîíà èìååò âèä: V=AQ (1)

ãäå V- ñêîðîñòü îõëàæäåíèÿ, à Q- èçáûòîê òåìïåðàòóðû.

Ïî äàííûì íàáëþäåíèé,  ïðåäñòàâëÿåìûì â òàáëèöå:

¹ Îïûòà V(I) Q(I) V(I) ðàñ÷.

         V(I)

1 8.81 220
2 7.40 200
3 6.10 180
4 4.89 160
5 3.88 140
6 3.02 120
7 2.30 100

Íàéòè çíà÷åíèÿ êîýôôèöèåíòà A; ñêîðîñòü îõëàæäåíèÿ, âû÷èñëÿåìóþ ïî  ôîðìóëå (1); îòíîñèòåëüíóþ ïîãðåøíîñòü.

     (2)

Äëÿ âû÷èñëåíèÿ êîýôôèöèåíòà A íåîáõîäèìî ðåøèòü ñèñòåìó óðàâíåíèé:

 

        (3)

Äëÿ ýòîãî ñëåäóåò ðåøèòü óðàâíåíèÿ:

 (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

  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:\WINDOWS\CALC.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"

   ScaleHeight     =   4905

   ScaleWidth      =   6660

   StartUpPosition =   3  'Windows Default

   Begin VB.ListBox Ñïèñîê2

      Height          =   1425

      ItemData        =   "ÊÓÐÑÎÂÀß ÐÀÁÎÒÀ.frx":0000

      Left            =   3600

      List            =   "ÊÓÐÑÎÂÀß ÐÀÁÎÒÀ.frx":0002

      TabIndex        =   16

      Top             =   3240

      Width           =   1095

   End

   Begin VB.ListBox Ñïèñîê1

      Height          =   1425

      ItemData        =   "ÊÓÐÑÎÂÀß ÐÀÁÎÒÀ.frx":0004

      Left            =   2400

      List            =   "ÊÓÐÑÎÂÀß ÐÀÁÎÒÀ.frx":0006

      TabIndex        =   15

      Top             =   3240

      Width           =   1095

   End

   Begin VB.TextBox Òåêñò6

      Height          =   285

      Left            =   5040

      TabIndex        =   14

      Top             =   3480

      Width           =   1095

   End

   Begin VB.TextBox Òåêñò5

      Height          =   285

      Left            =   5280

      TabIndex        =   13

      Top             =   360

      Width           =   855

   End

   Begin VB.TextBox Òåêñò 4

      Height          =   285

      Left            =   5040

      TabIndex        =   12

      Top             =   2880

      Width           =   1095

   End

   Begin VB.TextBox Òåêñò 3

      Height          =   285

      Left            =   5040

      TabIndex        =   11

      Top             =   2280

      Width           =   1095

   End

   Begin VB.TextBox Òåêñò 2

      Height          =   285

      Left            =   5040

      TabIndex        =   10

      Top             =   1680

      Width           =   1095

   End

   Begin VB.TextBox Òåêñò 1

      Height          =   285

      Left            =   5040

      TabIndex        =   9

      Top             =   1080

      Width           =   1095

   End

   Begin VB.Timer ×àñû1

      Interval        =   250

      Left            =   4800

      Top             =   3840

   End

   Begin VB.CommandButton Êîììàíäà6

      Caption         =   "ÂÛÕÎÄ"

      Height          =   195

      Left            =   240

      TabIndex        =   7

      Top             =   4440

      Width           =   1575

   End

   Begin VB.CommandButton Êîììàíäà 5

      Caption         =   "ÏÐÎÂÅÐÊÀ"

      Height          =   195

      Left            =   240

      TabIndex        =   6

      Top             =   4200

      Width           =   1575

   End

   Begin VB.CommandButton Êîììàíäà 4

      Caption         =   "ÏÎÃÐÅØÍÎÑÒÜ"

      Height          =   195

      Left            =   240

      TabIndex        =   5

      Top             =   3960

      Width           =   1575

   End

   Begin VB.CommandButton Êîììàíäà 3

      Caption         =   "Vðàñ÷.=AQ"

      Height          =   195

      Left            =   240

      TabIndex        =   4

      Top             =   3720

      Width           =   1575

   End

   Begin VB.CommandButton Êîììàíäà 2

      Caption         =   "ÐÅØÅÍÈÅ"

      Height          =   195

      Left            =   240

      TabIndex        =   3

      Top             =   3480

      Width           =   1575

   End

   Begin VB.CommandButton Êîììàíäà 1

      Caption         =   "ÂÂÅÑÒÈ"

      Height          =   195

      Left            =   240

      TabIndex        =   2

      Top             =   3240

      Width           =   1575

   End

   Begin VB.CheckBox Ïðîâåðêà1

      Caption         =   " ÀÂÒÎÌÀÒÈ×ÅÑÊÈÉ    ÂÂÎÄ"

      Height          =   375

      Left            =   120

      TabIndex        =   1

      Top             =   240

      Width           =   2775

   End

   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1

      Height          =   2055

      Left            =   0

      TabIndex        =   0

      Top             =   840

      Width           =   4935

      _ExtentX        =   8705

      _ExtentY        =   3625

      _Version        =   393216

      Rows            =   8

      Cols            =   5

   End

   Begin VB.OLE OLE1

      Class           =   "Package"

      Height          =   495

      Left            =   5280

      OleObjectBlob   =   "ÊÓÐÑÎÂÀß ÐÀÁÎÒÀ.frx":0008

      SourceDoc       =   "C:\WINDOWS\CALC.EXE"

      TabIndex        =   24

      Top             =   3840

      Width           =   855

   End

   Begin VB.Label Ìåòêà8

      Caption         =   "  ÏÐÎÂÅÐÊÀ"

      Height          =   255

      Left            =   3600

      TabIndex        =   23

      Top             =   3000

      Width           =   1095

   End

   Begin VB.Label Ìåòêà 7

      Caption         =   "      A=V/Q"

      Height          =   255

      Left            =   2280

      TabIndex        =   22

      Top             =   3000

      Width           =   1095

   End

   Begin VB.Label Ìåòêà 6

      Caption         =   "   Max V(I), %"

      Height          =   255

      Left            =   5040

      TabIndex        =   21

      Top             =   2640

      Width           =   1095

   End

   Begin VB.Label Ìåòêà 5

      Caption         =   "   Min V(I), %"

      Height          =   255

      Left            =   5040

      TabIndex        =   20

      Top             =   3240

      Width           =   1095

   End

   Begin VB.Label Ìåòêà 4

      Caption         =   "  Êîýôô-íò À"

      Height          =   255

      Left            =   5040

      TabIndex        =   19

      Top             =   2040

      Width           =   1095

   End

   Begin VB.Label Ìåòêà 3

      Caption         =   "   Ñóììà Q(I)"

      Height          =   255

      Left            =   5040

      TabIndex        =   18

      Top             =   1440

      Width           =   1095

   End

   Begin VB.Label Ìåòêà 2

      Caption         =   "   Ñóììà V(I)"

      Height          =   255

      Left            =   5040

      TabIndex        =   17

      Top             =   840

      Width           =   1095

   End

   Begin VB.Label Ìåòêà 1

      Caption         =   "ÒÅÊÓÙÅÅ ÂÐÅÌß"

      Height          =   255

      Left            =   3720

      TabIndex        =   8

      Top             =   360

      Width           =   1575

   End

   Begin VB.Menu mnuÔàéë

      Caption         =   "Ôàéë"

      Begin VB.Menu mnuÎòêðûòü

         Caption         =   "Îòêðûòü"

      End

      Begin VB.Menu mnuÂûõîä

         Caption         =   "Âûõîä"

      End

   End

   Begin VB.Menu mnuÂðåìÿ

      Caption         =   "Âðåìÿ"

      Begin VB.Menu mnuÏîêàçàòü

         Caption         =   "Ïîêàçàòü"

      End

      Begin VB.Menu mnuÑêðûòü

         Caption         =   "Ñêðûòü"

      End

   End

   Begin VB.Menu mnuÊàëüêóëÿòîð

      Caption         =   "Êàëüêóëÿòîð"

      Begin VB.Menu mnuÂêëþ÷èòü

         Caption         =   "Âêëþ÷èòü"

      End

   End

End

Attribute VB_Name = "Ôîðìà1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Ðàáî÷àÿ ôîðìà ñ äàííûìè:

Ðåøåíèå çàäà÷è ñ ïîìîùüþ MathCad.

                                                 Âû÷èñëåíèå ñóììû ýëåìåíòîâ ìàññèâîâ: 

                                      

                                                                                                     Îòíîñèòåëüíàÿ ïîãðåøíîñòü:

                                                                    

                                                     

Ðàñ÷åò ñêîðîñòè îõëàæäåíèÿ ïî çàêîíó Ñòåôàíà: V=kT^4

       Ïîñòîÿííàÿ Ñòåôàíà-Áîëüöìàíà:

                                                                                                              

                                            

                      

   

Ãðàôèê ¹1 ïîñòðîåí ïî äàííûì, à ¹2- ïî ðàñ÷åòàì.

Ðåøåíèå çàäà÷è â Excel

V(I) Q(I) V(I) ðàñ÷ V(I), %
8,81 220 7,15 18,84222
7,4 200 6,5 12,16216
6,1 180 5,85 4,098361
4,89 160 5,2 6,339468
3,88 140 4,55 17,26804
3,02 120 3,9 29,13907
2,3 100 3,25 41,30435
36,4 1120
A=V/Q ÊÎÝÔ. À Z ÑÒÅÔÀÍÀ
0,040045 0,0325 303,4484467 9,862075
0,037 252,3155307 8,200255
0,033889 207,2734376 6,736387
0,030563 167,8181271 5,454089
0,027714 133,4673316 4,337688
0,025167 103,7605564 3,372218
0,023 78,25907956 2,54342

Ãðàôèêè çàâèñèìîñòåé:

Çàêëþ÷åíèå:

Íà îñíîâàíèè ïîëó÷åííûõ â ïðîãðàììàõ äàííûõ:

ðàñ÷åòîâ è ãðàôèêîâ, ìîæíî ñäåëàòü âûâîä, ÷òî íàèáîëåå ïðèå-ìëåìûì ÿçûêîì ïðîãðàììèðîâàíèÿ ÿâëÿåòñÿ Visual Basic, à çàêîí íàèáîëåå òî÷íî äàþùèé ñõîæèå ðåçóëüòàòû ñ äàííûìè îïûòà ÿâëÿåòñÿ çàêîí Ñòåôàíà.


© 2012 Ðåôåðàòû, êóðñîâûå è äèïëîìíûå ðàáîòû.