Вывести все элемен последовательности, располагая на каждой строке информацию об одном треугольнике - VB

Узнай цену своей работы

Формулировка задачи:

Друзья,помогите пожалуйста с этими 4 задачками.в школе был паскаль,а в универе бэйсик и нефига его не понимаю. вот условия: Задача 1. Вводится последовательность из п треугольников, заданных длинами сторон. Вывести все элемен последовательности, располагая на каждой строке информацию об одном треугольнике. В другое окно списка вывес информацию о тройках отрезков, из которых нельзя построить треугольник, или сообщение, если таких отрезков нет.

Решение задачи: «Вывести все элемен последовательности, располагая на каждой строке информацию об одном треугольнике»

textual
Листинг программы
Private Sub Command1_Click()
     Dim n As Integer, L() As Double, i As Integer, j As Integer
     Dim s As String, s1 As String
     Randomize
     n = InputBox("Введите количество треугольников,(n)", "Ввод данных", Int(Rnd * 10 + 1))
     ReDim L(1 To n, 1 To 3)
     For i = 1 To n
         For j = 1 To 3
              L(i, j) = InputBox("Введите длину стороны " & Chr(64 + j) & " треугольника №" & i, "Ввод данных", Int(Rnd * 100 + 1))
         Next j
         s = s & "A = " & L(i, 1) & vbTab & "B = " & L(i, 2) & vbTab & "C = " & L(i, 3) & vbCrLf
         If L(i, 1) + L(i, 2) <= L(i, 3) Or L(i, 1) + L(i, 3) <= L(i, 2) Or L(i, 2) + L(i, 3) <= L(i, 1) Then
               s1 = s1 & "A = " & L(i, 1) & vbTab & "B = " & L(i, 2) & vbTab & "C = " & L(i, 3) & vbCrLf
         End If
     Next i
     s = s & "Из которых нельзя построить треугольник"
     s = IIf(s1 = "", s & " нет.", s & ":" & vbCrLf & s1)
     MsgBox s
End Sub

Оцени полезность:

11   голосов , оценка 3.909 из 5
Похожие ответы