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

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

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

ВНИМАНИЕ: Скидка действует ТОЛЬКО сейчас!

(Лицензия на осуществление образовательной деятельности № 5201 выдана ООО "Инфоурок")

ИнфоурокИнформатикаКонспектыИзучаем язык BASIC. Занятие 18. Задачи на перестановку элементов, строк и столбцов

Изучаем язык BASIC. Занятие 18. Задачи на перестановку элементов, строк и столбцов

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

Занятие 18

1. Задана матрица A(N,N) в диапазоне [-24,18]. Поменять местами элементы двух столбцов K и L,значения K и L вводить с клавиатуры.

CLS

RANDOMIZE TIMER

INPUT “N=”;N

INPUT “K=”;K

INPUT “L=”;L

DIM A(N,N)

FOR I=1 TO N

FOR J=1 TO N

A(I,J)=INT(RDN*42-18)

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

NEXT J

PRINT

NEXT I

FOR I=1 TO N

SWAP A(I,K), A(I,L)

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) в диапазоне [-32,15]. Поменять местами элементы двух строк K и L,значения K и L вводить с клавиатуры.

FOR I=1 TO N

SWAP A(K, I), A(L, I)

NEXT I

3. Задана матрица A(N,N) в диапазоне [-32,15]. Поменять местами элементы главной и побочной диагонали.

FOR I=1 TO N

SWAP A(I, I), A(I, N+1-I)

NEXT I

4. Задана матрица A(N,N) в диапазоне [-30,13] транспонировать ее относительно главной диагонали.

5

-9

3

4

2

-4

1

0

8


5

4

1

-9

2

0

3

-4

8

FOR I=1 TO N

FOR J=I TO N

SWAP A(I, J), A(J,I)

NEXT J,I

5. Задана матрица A(N,N) в диапазоне [-30,23] транспонировать ее относительно горизонтальной оси.

5

-9

3

4

2

-4

1

0

8


1

0

8

4

2

-4

5

-9

3

FOR I=1 TO N\2 цикл организован только до

FOR J=1 TO N горизонтальной оси массива

SWAP A(I, J), A(N+1-I,J) в противном случае все будет

NEXT J,I сделано дважды

6. Задана матрица A(N,N) в диапазоне [-10,23] транспонировать ее относительно горизонтальной оси.

5

-9

3

4

2

-4

1

0

8


3

-9

5

-4

2

4

8

0

1

FOR J=1 TO N\2

FOR I=1 TO N

SWAP A(I, J), A(I, N+1-J)

NEXT I,J

7. Задана матрица A(N,N) в диапазоне [-12,15]. Поменять местами строки с max и min элементами матрицы.

Ввод матрицы

max= - 1000 : min= 1000

FOR I= 1 TO n

FOR J=1 TO n
IF A(I,J)>max THEN max=A(I,J): Imax=I

IF A(I,J)

NEXT J,I

FOR I=1 TO n

SWAP A(Imax, I ), A(Imin ,I)

NEXT I

Домашнее задание. Задана матрица A(N,N) в диапазоне [-14,15]. Поменять местами столбцы с max и min элементами матрицы, если max и min элементы лежат в одном столбце, то поменять местами строки.

Ввод матрицы

max= - 1000 : min= 1000

FOR I= 1 TO n

FOR J=1 TO n
IF A(I,J)>max THEN max=A(I,J): Imax=I : Jmax=J

IF A(I,J)

NEXT J,I

FOR I=1 TO n

IF Jmax= Jmin THEN SWAP A(I,Jmax), A(I,Imin) ELSE SWAP A(Imax, I ), A(Imin ,I)

NEXT I

Вывод массива

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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