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

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

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

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

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

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

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

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

Изучаем язык BASIC. Занятие 21 Сортировка матрицы.

библиотека
материалов

Занятие 21

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

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

CLS

RANDOMIZE TIMER

INPUT “N=”;N

DIM A(N,N), S(N)

FOR I=1 TO N

FOR J=1 TO N

A(I,J)=INT(RDN*28-15)

NEXT J

PRINT

NEXT I

FOR I=1 TO N

S(I)=0

FOR J=1 TO N

S(I)=S(I)+A(I,J)

NEXT J

PRINT S(I);

NEXT I

FOR I=1 TO N

min =1000

FOR J=I TO N

IF S(J)

NEXT J

SWAP S(I), S(K)

FOR W=1 TO N

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

NEXT W

NEXT I

FOR I=1 TO N

FOR J=1 TO N

PRINT USING “####”; A(I,J);

NEXT J

PRINT

NEXT I

2. Задана матрица A(N,N) в диапазоне [-23,13]. Отсортировать матрицу, упорядочив столбцы массива по убыванию суммы положительных элементов.

Ввод матрицы

FOR I=1 TO N

S(I)=0

FOR J=1 TO N

IF A(I,J)>0 THEN S(I)=S(I)+A(J,I)

NEXT J

PRINT S(I);

NEXT I

FOR I=1 TO N

max = -1000

FOR J=I TO N

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

NEXT J

SWAP S(I), S(K)

FOR W=1 TO N

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

NEXT W

NEXT I

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

3.

CLS

RANDOMIZE TIMER

INPUT “N=”;N

DIM A(N,N), S(N), SR(N)

FOR I=1 TO N

FOR J=1 TO N

A(I,J)=INT(RDN*28-15)

NEXT J

PRINT

NEXT I

FOR I=1 TO N

S(I)=0 : SR(I)=0

FOR J=1 TO N

S(I)=S(I)+A(I,J)

NEXT J

SR(I)=S(I)/N

PRINT SR(I);

NEXT I

FOR I=1 TO N

min =1000

FOR J=I TO N

IF SR(J)

NEXT J

SWAP SR(I), SR(K)

FOR W=1 TO N

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

NEXT W

NEXT I

FOR I=1 TO N

FOR J=1 TO N

PRINT USING “####”; A(I,J);

NEXT J

PRINT

NEXT I

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

Ввод матрицы

FOR I=1 TO N

S(I)=0

FOR J=1 TO N

IF A(I,J)/2=A(I,J)\2 THEN S(I)=S(I)+A(J,I)

NEXT J

PRINT S(I);

NEXT I

FOR I=1 TO N

max = -1000

FOR J=I TO N

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

NEXT J

SWAP S(I), S(K)

FOR W=1 TO N

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

NEXT W

NEXT I

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

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

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

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

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


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


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

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

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

Автор
Дата добавления 23.09.2015
Раздел Информатика
Подраздел Конспекты
Номер материала ДВ-004665
Получить свидетельство о публикации
Похожие материалы

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