Дана целочисленная квадратная матрица порядка n. Найти номера строк, элементы которой одинаковы — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
INPUT "VVEDITE N ", N
DIM A(N, N)
FOR i = 1 TO N
    FOR j = 1 TO N
        PRINT "vvedit element "; i; ";", j
        INPUT A(i, j)
    NEXT
NEXT
 
FOR i = 1 TO N
    f = 0
    FOR j = 2 TO N
        IF A(i, j) <> A(i, j - 1) THEN f = 1
    NEXT
    IF f = 0 THEN PRINT " stroka "; i
NEXT
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
INPUT "VVEDITE N ", N
DIM A(N, N) AS LONG
FOR ST = 1 TO N
    PRINT "VVOD" + STR$(ST) + " STOLBCA"
    FOR STR = 1 TO N
        INPUT A(ST, STR)
    NEXT STR
NEXT ST
PRINT ""
PRINT ""
PRINT "ELEMENTI ETIH STROK ODINAKOVI:"
FOR STR = 1 TO N
    FOR ST = 1 TO N - 1
        IF A(ST, STR) = A(ST + 1, STR) THEN V = 1 ELSE V = 0
        IF V = 0 THEN GOTO EXTF
    NEXT ST
    PRINT STR
    EXTF:
NEXT STR

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment