Вывести все элемен последовательности, располагая на каждой строке информацию об одном треугольнике - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д