Задача по "Программированию"
Автор: sasha1234554321 • Январь 31, 2019 • Задача • 1,691 Слов (7 Страниц) • 387 Просмотры
Блок-схема[pic 1][pic 2]
Да Нет[pic 3]
[pic 4][pic 5][pic 6][pic 7]
[pic 8]
Да Нет
[pic 9][pic 10][pic 11][pic 12]
[pic 13]
[pic 14][pic 15]
[pic 16][pic 17]
[pic 18]
[pic 19][pic 20][pic 21][pic 22][pic 23][pic 24][pic 25][pic 26][pic 27][pic 28]
[pic 29]
[pic 30][pic 31][pic 32][pic 33]
[pic 34]
[pic 35]
[pic 36][pic 37]
[pic 38][pic 39][pic 40][pic 41][pic 42][pic 43][pic 44][pic 45]
[pic 46]
[pic 47][pic 48][pic 49]
[pic 50]
[pic 51][pic 52][pic 53][pic 54][pic 55]
Да Нет[pic 56]
[pic 57][pic 58][pic 59][pic 60]
[pic 61]
[pic 62]
[pic 63]
[pic 64]
[pic 65]
[pic 66]
[pic 67][pic 68][pic 69][pic 70][pic 71][pic 72][pic 73]
[pic 74][pic 75][pic 76][pic 77]
[pic 78]
[pic 79]
[pic 80][pic 81][pic 82][pic 83][pic 84]
[pic 85]
[pic 86][pic 87]
[pic 88][pic 89][pic 90]
[pic 91][pic 92][pic 93][pic 94]
[pic 95]
[pic 96]
[pic 97][pic 98][pic 99][pic 100][pic 101]
Да Нет[pic 102]
[pic 103][pic 104][pic 105][pic 106]
[pic 107][pic 108][pic 109][pic 110][pic 111][pic 112]
[pic 113][pic 114][pic 115][pic 116][pic 117][pic 118]
[pic 119][pic 120][pic 121][pic 122][pic 123]
[pic 124]
[pic 125]
[pic 126][pic 127][pic 128]
[pic 129]
[pic 130][pic 131]
Интерфейс
[pic 132]
Label5.Text[pic 133]
Label1.Text Form1[pic 134][pic 135][pic 136][pic 137][pic 138]
Label3.Text[pic 139]
Label6.Text[pic 140]
Label2.Text[pic 141]
Button1.Click Button2.Click Button3.Click
Программный код
Public Class Form1
Dim a(7, 7), c(7) As Double
Dim gem, i, j, k As Double
Dim h, p, m As Double
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If IsNumeric(TextBox1.Text) Then
If TextBox1.Text < 0 Or TextBox1.Text > 10 Then
MsgBox("Введите значение в интервале (0:10)")
TextBox1.Text = ""
...