Из двух массивов сформируйте одномерный массив, упорядоченный в обратную сторону - VB
Формулировка задачи:
Из двух упорядоченных одномерных массивов (длины K и N) сформируйте одномерный массив размером K+N, упорядоченный в обратную сторону
переделайте в бэйсик плиз
Решение задачи: «Из двух массивов сформируйте одномерный массив, упорядоченный в обратную сторону»
textual
Листинг программы
Option Explicit Private Sub command1_Click() 'program g5; 'uses crt; 'Var 'k,n,i, j, m, c: integer; Dim k As Integer, n As Integer, i As Integer, j As Integer, m As Integer, c As Integer 'a1, a2: array[1..100] of integer; Dim a1(1 To 100) As Integer, a2(1 To 100) As Integer 'a: array[1..200] of integer; Dim a(1 To 200) As Integer 'begin 'clrscr; Cls 'write('Vvedite k, n: '); 'readln(k, n); k = InputBox("Vvedite k"): n = InputBox("Vvedite n") 'writeln('1 masiv:'); Print "'1 masiv:'" 'for i:= 1 to k do For i = 1 To k 'begin 'write('Vvedite ',i,' element: '); a1(i) = InputBox("Vvedite " & i & " element: ") 'readln(a1[i]); Print a1(i); 'end; Next i Print 'writeln('2 masiv:'); Print "'2 masiv:'" 'for i:= 1 to n do For i = 1 To n 'begin 'write('Vvedite ',i,' element: '); a2(i) = InputBox("Vvedite " & i & " element: ") 'readln(a2[i]); Print a2(i); 'end; Next i 'm := n+k; m = n + k 'for i:= 1 to k do For i = 1 To k 'a[i] := a1[i]; a(i) = a1(i) Next i 'for i:= 1 to n do For i = 1 To n 'a[k+i] := a2[i]; a(k + i) = a2(i) Next i 'for i:= 1 to m do 'for j:= 2 to m do For i = 1 To m For j = 2 To m 'if (a[j-1] < a[j]) then If a(j - 1) < a(j) Then 'begin 'c := a[j]; c = a(j) 'a[j] := a[j-1]; a(j) = a(j - 1) 'a[j-1] := c; a(j - 1) = c 'end; End If Next j Next i Print 'writeln('new mas'); Print "'new mas'" 'for i:= 1 to m do For i = 1 To m 'begin 'write(a[i],' '); Print a(i); Next i 'end; 'readln; End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д