- •Задачи с решениями
- •1. Одномерные массивы
- •Input a(I)
- •Input a(I)
- •Input a(I)
- •Input a(I)
- •Input a(I)
- •Input a(I)
- •Input a(I)
- •Input a(I)
- •Input a(I)
- •Input a(I)
- •Input a(I)
- •Input b(I)
- •Input a(I)
- •Input b(I)
- •Input a(I)
- •Input a(I)
- •Input a(I)
- •2. Двумерные массивы
- •Input a(I, j)
- •Input a(I, j)
- •Input a(I, j)
- •Input a(I, j)
- •Input a(I, j)
- •Input a(I, j)
- •Input a(I, j)
- •Input a(I, j)
- •Input a(I, j)
- •Input a(I, j)
- •Input ; " ", a(I, j)
- •Input ; " ", a(I, j)
- •Input ; " ", a(I, j)
- •Input ; " ", a(I, j)
- •Input ; " ", a(I, j)
- •Input ; " ", a(I, j)
- •Input ; " ", a(I, j)
- •Input ; " ", a(I, j)
- •Input "vvedite slovo"; a
Input a(I)
NEXT I
PRINT "MASSIV B"
PRINT "MASSIV A"
FOR I = 1 TO M
PRINT "B(="; I; ")=";
Input b(I)
NEXT I
K = 0
FOR I = 1 TO N
F = 0
FOR J = 1 TO M
IF A(I) = B(J) THEN F = 1
NEXT J
IF F = 0 THEN K = K + 1: C(K) = A(I)
NEXT I
IF K = 0 THEN
PRINT "TAKIX HET"
ELSE
PRINT "MASSIV C"
FOR I = 1 TO K
PRINT "C("; I; ")="; C(I);
NEXT I
END IF
END
Дан одномерный массив "A".
Переписать элементы вектора "A"в обратном порядке
на том же месте (перевернуть массив "A" без использования дополнительного массива)
DIM I AS INTEGER, N AS INTEGER, B AS INTEGER
INPUT "N="; N
DIM A%(N)
FOR I = 1 TO N
PRINT "A(="; I; ")=";
Input a(I)
NEXT I
FOR I = 1 TO N \ 2
B = A(I)
A(I) = A(N - I + 1)
A(N - I + 1) = B
NEXT I
FOR I = 1 TO N
PRINT "A("; I; ")="; A(I);
NEXT I
END
Дан одномерный массив "A".
Составить массив "B"из различных (не повторяющихся) элементов исходного массива "A" .
DIM I AS INTEGER, N AS INTEGER, K AS INTEGER, F AS INTEGER, J AS INTEGER
INPUT "N="; N
DIM A%(N), B%(N)
PRINT "MASSIV A"
FOR I = 1 TO N
PRINT "A(="; I; ")=";
Input a(I)
NEXT I
K = 0
FOR I = 1 TO N
F = 0
FOR J = 1 TO N
IF A(I) = A(J) AND I <> J THEN F = 1
NEXT J
IF F = 0 THEN K = K + 1: B(K) = A(I)
NEXT I
IF K = 0 THEN
PRINT "TAKIX HET"
ELSE
PRINT "MASSIV B"
FOR I = 1 TO K
PRINT "B("; I; ")="; B(I);
NEXT I
END IF
END
Дан одномерный массив "A".
Составить массив "B"из номеров различных (не повторяющихся) элементов исходного массива "A" .
DIM I AS INTEGER, N AS INTEGER, K AS INTEGER, F AS INTEGER, J AS INTEGER
INPUT "N="; N
DIM A%(N), B%(N)
PRINT "MASSIV A"
FOR I = 1 TO N
PRINT "A(="; I; ")=";
Input a(I)
NEXT I
K = 0
FOR I = 1 TO N
F = 0
FOR J = 1 TO N
IF A(I) = A(J) AND I <> J THEN F = 1
NEXT J
IF F = 0 THEN K = K + 1: B(K) = I
NEXT I
IF K = 0 THEN
PRINT "TAKIX HET"
ELSE
PRINT "MASSIV B"
FOR I = 1 TO K
PRINT "B("; I; ")="; B(I);
NEXT I
END IF
END
2. Двумерные массивы
Дана квадратная матрица.
Произвести транспонирование (переворот) матрицы относительно ее главной диагонали
DIM I AS INTEGER, J AS INTEGER, N AS INTEGER, B AS INTEGER
INPUT "N="; N
DIM A%(N, N)
FOR I = 1 TO N
FOR J = 1 TO N
PRINT "A(="; I; ","; J; ")=";
Input a(I, j)
NEXT J
NEXT I
PRINT "BXODNAIA MATRICA A "
FOR I = 1 TO N
FOR J = 1 TO N
PRINT A(I, J);
NEXT J
NEXT I
FOR I = 1 TO N
FOR J = 1 TO N
IF I > J THEN
B = A(I, J)
A(I, J) = A(J, I)
A(J, I) = B
END IF
NEXT J
NEXT I
PRINT "BIXODNAIA MATRICA A "
FOR I = 1 TO N
FOR J = 1 TO N
PRINT A(I, J);
NEXT J
NEXT I
END
Дана квадратная матрица.
Произвести переворот матрицы относительно ее побочной диагонали
DIM I AS INTEGER, J AS INTEGER, N AS INTEGER, B AS INTEGER
INPUT "N="; N
DIM A%(N, N)
FOR I = 1 TO N
FOR J = 1 TO N
PRINT "A(="; I; ","; J; ")=";
Input a(I, j)
NEXT J
NEXT I
PRINT "BXODNAIA MATRICA A "
FOR I = 1 TO N
FOR J = 1 TO N
PRINT A(I, J);
NEXT J
NEXT I
FOR I = 1 TO N
FOR J = 1 TO N
IF I + J < N + 1 THEN
B = A(I, J)
A(I, J) = A(N + 1 - J, N + 1 - I)
A(N + 1 - J, N + 1 - I) = B
END IF
NEXT J
NEXT I
PRINT "BIXODNAIA MATRICA A "
FOR I = 1 TO N
FOR J = 1 TO N
PRINT A(I, J);
NEXT J
NEXT I
END
Дана квадратная матрица.
Произвести инвертирование (переворот) элементов нечетных строк
DIM I AS INTEGER, J AS INTEGER, N AS INTEGER, B AS INTEGER
INPUT "N="; N
DIM A%(N, N)
FOR I = 1 TO N
FOR J = 1 TO N
PRINT "A(="; I; ","; J; ")=";