895803
столько раз учителя, ученики и родители
посетили сайт «Инфоурок»
за прошедшие 24 часа
+Добавить материал
и получить бесплатное
свидетельство о публикации
в СМИ №ФС77-60625 от 20.01.2015
Дистанционные курсы профессиональной переподготовки и повышения квалификации для педагогов

Дистанционные курсы для педагогов - курсы профессиональной переподготовки от 1.410 руб.;
- курсы повышения квалификации от 430 руб.
Московские документы для аттестации

ВЫБРАТЬ КУРС СО СКИДКОЙ ДО 90%

ВНИМАНИЕ: Скидка действует ТОЛЬКО до конца апреля!

(Лицензия на осуществление образовательной деятельности №038767 выдана ООО "Столичный учебный центр", г.Москва)

ИнфоурокИнформатикаКонспектыИзучаем язык BASIC. Занятие 22 Сортировка матрицы (продолжение).

Изучаем язык BASIC. Занятие 22 Сортировка матрицы (продолжение).

библиотека
материалов
Скачать материал целиком можно бесплатно по ссылке внизу страницы.

Занятие 22

Сортировка матрицы.

1. Задана матрица A(N,N) в диапазоне [-15,25]. Отсортировать матрицу, упорядочив строки массива по возрастанию max элементов в них.

CLS

RANDOMIZE TIMER

INPUT “N=”;N

DIM A(N,N), M(N)

FOR I=1 TO N

FOR J=1 TO N

A(I,J)=INT(RDN*40-25)

NEXT J

PRINT

NEXT I

max = -1000

FOR I=1 TO N

M(I)=0

FOR J=1 TO N

IF A(I,J) >max THEN max=A(I,J) : M(I)=max

NEXT J

PRINT M(I);

NEXT I

FOR I=1 TO N

min =1000

FOR J=I TO N

IF M(J)

NEXT J

SWAP M(I), M(K)

FOR W=1 TO N

SWAP A(I,W), A(K,W)

NEXT W

NEXT I

Вывод.

2. Задана матрица A(N,N) в диапазоне [-8,12]. Отсортировать матрицу, упорядочив строки массива по возрастанию элементов главной диагонали.


7

3

5


7

2


1

2

8

1

2

8


2

4


3

10

4

3

10

4


4

7


7

3

5

A(N,N) B(N)


CLS

RANDOMIZE TIMER

INPUT “N=”;N

DIM A(N,N), B(N)

FOR I=1 TO N

FOR J=1 TO N

A(I,J)=INT(RDN*20-12)

NEXT J

PRINT

NEXT I


FOR I=1 TO N

B(I) = A(I,I) : PRINT B(I)

NEXT I


FOR I=1 TO N

min = 1000

FOR J=I TO N

IF B(J) < min THEN min = B(J) : K=J

NEXT J

SWAP B(I), B(K)

FOR W=1 TO N

SWAP A(I ,W), A(K, W)

NEXT W

NEXT I

Вывод матрицы

3. Задана матрица A(N,N) в диапазоне [-8,12]. Отсортировать матрицу, упорядочив строки массива по убыванию элементов главной диагонали.


Ввод массива

FOR I=1 TO N

max = -1000

FOR J=I TO N

IF B(J)> max THEN max = B(J) : K=J

NEXT J

SWAP B(I), B(K)

FOR W=1 TO N

SWAP A(I ,W), A(K, W)

NEXT W

NEXT I

Вывод матрицы


4. Задана матрица A(N,N) в диапазоне [-8,12]. Отсортировать матрицу, упорядочив столбцы массива по возрастанию элементов главной диагонали.

FOR I=1 TO N

min = 1000

FOR J=I TO N

IF B(J) < min THEN min = B(J) : K=J

NEXT J

SWAP B(I), B(K)

FOR W=1 TO N

SWAP A(W, I), A(W, K)

NEXT W

NEXT I

Вывод матрицы


5. Задана матрица A(N,N) в диапазоне [-8,12]. Отсортировать матрицу, упорядочив строки массива по возрастанию элементов побочной диагонали.


Ввод массива

FOR I=1 TO N

B(I) = A(I, N+1 - I) : PRINT B(I)

NEXT I

FOR I=1 TO N

min = 1000

FOR J=I TO N

IF B(J) < min THEN min = B(J) : K=J

NEXT J

SWAP B(I), B(K)

FOR W=1 TO N

SWAP A(I ,W), A(K, W)

NEXT W

NEXT I

Вывод матрицы

6. Задана матрица A(N,N) в диапазоне [-8,12]. Отсортировать матрицу, упорядочив строки массива по убыванию элементов побочной диагонали.


Ввод массива

FOR I=1 TO N

max = -1000

FOR J=I TO N

IF B(J)> max THEN max = B(J) : K=J

NEXT J

SWAP B(I), B(K)

FOR W=1 TO N

SWAP A(I ,W), A(K, W)

NEXT W

NEXT I

Вывод матрицы


7. Задана матрица A(N,N) в диапазоне [-8,12]. Отсортировать матрицу, упорядочив столбцы массива по возрастанию элементов побочной диагонали.

FOR I=1 TO N

min = 1000

FOR J=I TO N

IF B(J) < min THEN min = B(J) : K=J

NEXT J

SWAP B(I), B(K)

FOR W=1 TO N

SWAP A(W, I), A(W, K)

NEXT W

NEXT I

Вывод матрицы

8. Задана матрица A(N,N) в диапазоне [-8,12]. Отсортировать матрицу, упорядочив столбцы массива по убыванию элементов побочной диагонали.


Ввод массива

FOR I=1 TO N

max = -1000

FOR J=I TO N

IF B(J)> max THEN max = B(J) : K=J

NEXT J

SWAP B(I), B(K)

FOR W=1 TO N

SWAP A(W, I), A(W, K)

NEXT W

NEXT I

Вывод матрицы


9. Задана матрица A(N,N) в диапазоне [-18,12]. Упорядочить строки массива по убыванию элементов.

7

3

5


3

5

7

1

8

2


1

2

8

3

10

4


3

4

10

A(N,N)

Ввод матрицы

FOR I=1 TO N

FOR W=1 TO N

max= -1000

FOR J=1 TO N

IF A(I,J) > max THEN max=A(I,J) : K=J

NEXT J

SWAP A(I,W), A(I,K)

NEXT W

NEXT I

Вывод

10. Задана матрица A(N,N) в диапазоне [-23,13]. Упорядочить строки массива по возрастанию элементов.

Ввод матрицы

FOR I=1 TO N

FOR W=1 TO N

min= 1000

FOR J=1 TO N

IF A(I,J) < min THEN min=A(I,J) : K=J

NEXT J

SWAP A(I,W), A(I,K)

NEXT W

NEXT I

Домашнее задание.

Задана матрица A(N,N) в диапазоне [-19,21]. Упорядочить столбцы массива по убыванию элементов.

Задана матрица A(N,N) в диапазоне [-29,21]. Упорядочить столбцы массива по возрастанию элементов.

Задана матрица A(N,N) в диапазоне [-19,11]. Упорядочить строки массива по убыванию и столбцы по возрастанию элементов

Общая информация

Номер материала: ДВ-004670

Вам будут интересны эти курсы:

Курс повышения квалификации «Информационные технологии в деятельности учителя физики»
Курс повышения квалификации «Облачные технологии в образовании»
Курс «Оператор персонального компьютера»
Курс «1С: Предприятие 7.7»
Курс «3D Studio MAX»
Курс повышения квалификации «Сетевые и дистанционные (электронные) формы обучения в условиях реализации ФГОС по ТОП-50»
Курс профессиональной переподготовки «Информационные технологии в профессиональной деятельности: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Использование компьютерных технологий в процессе обучения в условиях реализации ФГОС»
Курс повышения квалификации «Специфика преподавания информатики в начальных классах с учетом ФГОС НОО»
Курс повышения квалификации «Применение MS Word, Excel в финансовых расчетах»
Курс профессиональной переподготовки «Управление в сфере информационных технологий в образовательной организации»
Курс профессиональной переподготовки «Математика и информатика: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Специфика преподавания дисциплины «Информационные технологии» в условиях реализации ФГОС СПО по ТОП-50»
Курс повышения квалификации «Современные языки программирования интегрированной оболочки Microsoft Visual Studio C# NET., C++. NET, VB.NET. с использованием структурного и объектно-ориентированного методов разработки корпоративных систем»
Курс повышение квалификации «Применение интерактивных образовательных платформ на примере платформы Moodle»

Благодарность за вклад в развитие крупнейшей онлайн-библиотеки методических разработок для учителей

Опубликуйте минимум 3 материала, чтобы БЕСПЛАТНО получить и скачать данную благодарность

Сертификат о создании сайта

Добавьте минимум пять материалов, чтобы получить сертификат о создании сайта

Грамота за использование ИКТ в работе педагога

Опубликуйте минимум 10 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Свидетельство о представлении обобщённого педагогического опыта на Всероссийском уровне

Опубликуйте минимум 15 материалов, чтобы БЕСПЛАТНО получить и скачать данное cвидетельство

Грамота за высокий профессионализм, проявленный в процессе создания и развития собственного учительского сайта в рамках проекта "Инфоурок"

Опубликуйте минимум 20 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Грамота за активное участие в работе над повышением качества образования совместно с проектом "Инфоурок"

Опубликуйте минимум 25 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Почётная грамота за научно-просветительскую и образовательную деятельность в рамках проекта "Инфоурок"

Опубликуйте минимум 40 материалов, чтобы БЕСПЛАТНО получить и скачать данную почётную грамоту

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.