Задача такая, На Паскале решенную видел давно еще.
Задано n троек a,b,c. Вводя их по очереди и интерпретируя как длины сторон треугольников, определить, сколько троек может быть использовано для построения треугольника.(Для каждой тройки нужно проверять условие c>=a+b)
Числа a,b,c расположить в порядке возрастания a<=b<=c
В VB я хотел создать массив 3х мерный размерностью n
Использовать MsFlexGrid таблицу для ввода троек, и потом цикл который будет заносить в массив значения из ячеек таблицы...
ВОт ломаю голову как сделать этот самый цикл... или не циклом занести можно...
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
Private Sub Command1_Click()
Dim n As Integer
n = Val(txtText.Text)
Dim Mass( 1 To n, 1 To n, 1 To n)
End Sub
Private Sub FlexGrid_SelChange()
txtText.Text = FlexGrid.Text
End Sub
Function GetCellIndex(MSFlexGrid As MSFlexGrid, row As Integer, col As Integer)
GetCellIndex = row * MSFlexGrid.Cols + col
End Function
Private Sub txtText_KeyPress(KeyAscii As Integer)
If a <= b <= c Then
If KeyAscii = 13 Then FlexGrid.Text = txtText.Text
End If
End Sub
Private Sub txtRows_KeyPress(KeyAscii As Integer)
Dim n As Integer
Dim i As Integer
n = Val(txtRows.Text)
If KeyAscii = 13 Then
For i = 1 To n
FlexGrid.AddItem i
Next i
FlexGrid.Rows = CInt(txtRows.Text + 1 )
End If
End Sub
Private Sub Form_Load()
FlexGrid.Rows = 1
FlexGrid.Cols = 3
FlexGrid.FormatString = "<№|a|b|c"
FlexGrid.ColWidth( 0 ) = 300
FlexGrid.ColWidth( 1 ) = 1000
FlexGrid.ColWidth( 2 ) = 1000
FlexGrid.ColWidth( 3 ) = 1000
End Sub
Код пока касаемо самой таблицы.. значения заносятся строчки добавляются
Может быть я просто усложняю себе жизнь????
