s должна быть описана как real. 6 говорит о количестве позиций, которые отводятся для всего вещественного числа. Число 2, говорит о количестве знаков после запятой. Так как третья цифра после запятой больше пяти, произойдет округление второго числа 5 до 6.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim A() As Integer Dim B() As Integer
Randomize() Dim k As Integer Dim i As Integer i = Rnd() * 100 + 1 ReDim A(i) For k = 0 To i A(k) = Rnd() * -1000 + 500 Next i = Rnd() * 100 + 1 ReDim B(i) For k = 0 To i B(k) = Rnd() * -1000 + 500 Next
1. Dim msg_A As String msg_A = VerifySort(A) If msg_A <> CStr(A.Length) Then MsgBox(msg_A) Else MsgBox("Массив А упорядочен") End If
Dim msg_B As String msg_B = VerifySort(B) If msg_B <> CStr(A.Length) Then MsgBox(msg_B) Else MsgBox("Массив B упорядочен") End If
sort(A) msg_A = VerifySort(A) If msg_A <> CStr(A.Length) Then MsgBox(msg_A) Else MsgBox("Массив А упорядочен") End If
2. Dim h As Integer h = InputBox("Введите h") i = CompareValue(A, h) If i <> UBound(A) Then MsgBox("У массива не все элементы больше h. Значений больше h " & i & " шт.") Else MsgBox("У массива все элементы больше h.") End If
i = CompareValue(B, h) If i <> UBound(B) Then MsgBox("У массива не все элементы больше h. Значений больше h " & i & " шт.") Else MsgBox("У массива все элементы больше h.") End If End Sub
Private Function VerifySort(ByRef Massiv() As Integer) As String Dim i, j, k As Integer Dim msg As String For i = Massiv.Length To 0 Step -1 For j = Massiv.Length - 1 To 1 Step -1 If Massiv(j) < Massiv(j - 1) Then For k = 0 To Massiv.Length - 1 msg = msg & Massiv(k) & vbCrLf Next Return msg End If Next j Next i Return Massiv.Length End Function Private Function sort(ByRef Massiv() As Integer) As Integer Dim i, j, Dump As Integer For i = Massiv.Length To 0 Step -1 For j = Massiv.Length - 1 To 1 Step -1 If Massiv(j) < Massiv(j - 1) Then Dump = Massiv(j) Massiv(j) = Massiv(j - 1) ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 Massiv(j - 1) = Dump End If Next j Next i Return Massiv.Length End Function
Private Function CompareValue(ByRef Massiv() As Integer, ByVal h As Integer) As Integer Dim count As Integer Dim i As Integer For i = 0 To UBound(Massiv) - 1 If Massiv(i) > h Then count = count + 1 ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 Next Return count End Function
М... заморила твоя задача однако Program asd; USES crt; var A:array [1..5] of integer; min,max,min2,o,p:real; i,n:integer;
Procedure max1; begin for i:=1 to 5 do if A[i]>0 then if min<A[i] then min:=A[i]; Writeln('Min: ',min); end; Procedure min1; begin for i:=1 to 5 do if A[i]<0 then if min>A[i] then min:=A[i]; Writeln('Min: ',min); end; BEGIN clrscr; For i:=1 to 5 do begin A[i]:=random(9)-5; Write(' ',A[i]); end; Writeln; //Otrizanie For i:=1 to 5 do if A[i]<0 then o:=o+A[i]; Writeln('Summa otrizatelnyx elementov: ',o); //Polowitelnye For i:=1 to 5 do if A[i]>0 then p:=p+A[i]; Writeln('Summa polowitelnyx elementov: ',p); if p<o then max1 else min1; END.
114,66
Объяснение:
s должна быть описана как real. 6 говорит о количестве позиций, которые отводятся для всего вещественного числа. Число 2, говорит о количестве знаков после запятой. Так как третья цифра после запятой больше пяти, произойдет округление второго числа 5 до 6.