Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Свидетельство о публикации

Автоматическая выдача свидетельства о публикации в официальном СМИ сразу после добавления материала на сайт - Бесплатно

Добавить свой материал

За каждый опубликованный материал Вы получите бесплатное свидетельство о публикации от проекта «Инфоурок»

(Свидетельство о регистрации СМИ: Эл №ФС77-60625 от 20.01.2015)

Свидeтельство СМИ «Проект «Инфоурок»
Эл. ФС77-60625
Лицензия на осуществление образовательной деятельности № 5201
Инфоурок / Информатика / Конспекты / Изучаем язык BASIC. Занятие 22 Сортировка матрицы (продолжение).
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 28 июня.

Подать заявку на курс
  • Информатика

Изучаем язык 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]. Упорядочить строки массива по убыванию и столбцы по возрастанию элементов


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


Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

Автор
Дата добавления 23.09.2015
Раздел Информатика
Подраздел Конспекты
Просмотров228
Номер материала ДВ-004670
Получить свидетельство о публикации
Скачать материал
Чтобы добавить отзыв, войдите в Ваш кабинет или зарегистрируйтесь

Каталог репетиторов

Зарегистрироваться Бесплатно

Педагогу

Внимание Скидка 50% на курсы! Спешите подать
заявку

Курсы

Профессиональной
переподготовки 30 курсов от 6900 руб.

Курсы для всех от 3000 руб. от 1500 руб.

Повышение
квалификации 36 курсов от 1500 руб.

Перейти

Лицензия №037267 от 17.03.2016 г.
выдана департаментом образования г. Москвы

Доктор Комаровский ответил на вопросы посетителей проекта «Инфоурок»
Смотреть видео
Новый бесплатный вебинар

«Рейтинг и портфолио: альтернативные средства оценивания учебных достижений»

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