Инфоурок / Информатика / Конспекты / Изучаем язык BASIC. Занятие 14. Перестановка элементов.
Обращаем Ваше внимание, что в соответствии с Федеральным законом N 273-ФЗ «Об образовании в Российской Федерации» в организациях, осуществляющих образовательную деятельность, организовывается обучение и воспитание обучающихся с ОВЗ как совместно с другими обучающимися, так и в отдельных классах или группах.

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

Только сейчас Вы можете пройти дистанционное обучение прямо на сайте "Инфоурок" со скидкой 40% по курсу повышения квалификации "Организация работы с обучающимися с ограниченными возможностями здоровья (ОВЗ)" (72 часа). По окончании курса Вы получите печатное удостоверение о повышении квалификации установленного образца (доставка удостоверения бесплатна).

Автор курса: Логинова Наталья Геннадьевна, кандидат педагогических наук, учитель высшей категории. Начало обучения новой группы: 27 сентября.

Подать заявку на этот курс    Смотреть список всех 216 курсов со скидкой 40%

Изучаем язык BASIC. Занятие 14. Перестановка элементов.

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

Занятие 14.

Перестановка элементов.

Задан массив A(N) в диапазоне [-20.35] поменять местами два элемента в одномерном массиве с номерами K и L.

REM Перестановка элементов

INPUT N,K,L

RANDOMIZE TIMER

DIM A(N)

FOR I=1 TO N

A(I)=INT(RDN*55-20)

PRINT A(I);

NEXT I

PRINT

P=A(K)

A(K)=A(L)

A(L)=P

FOR I=1 TO N

PRINT A(I);

NEXT I


REM Перестановка элементов

RANDOMIZE TIMER

INPUT N,K,L

DIM A(N)

FOR I=1 TO N

A(I)=INT(RDN*55-20)

PRINT A(I);

NEXT I

PRINT

SWAP A(K),A(L)

FOR I=1 TO N

PRINT A(I);

NEXT I

QBasic позволяет при помощи оператора SWAP A,B поменять местами содержимое переменных А,В, т.е. записать в переменную А значение переменной В, а в В значение А.

Задан массив A(N) в диапазоне [-25,25] поменять местами первый и последний элемент.

CLS

RANDOMIZE TIMER

INPUT “N=”;N

DIM A(N)

FOR I=1 TO N

A(I)=INT(RDN*50-25)

PRINT A(I);

NEXT I

PRINT

SWAP A(1),A(N)

FOR I=1 TO N

PRINT A(I);

NEXT

Задан массив A(N) в диапазоне [-18,20] поменять местами max и min элемент.

CLS

RANDOMIZE TIMER

INPUT "Введите n ", n
DIM A(n)
FOR I=1 TO n
A(I)= INT(RND*38 – 18 )

PRINT A(I);

NEXT I

S=0: min= 1000 :max= - 1000
FOR I=1 TO n
IF A(I)

IF A(I)>max THEN max=A(I): L=I

NEXT I

SWAP A(K),A(L)
PRINT
FOR I=1 TO n
PRINT A(I);

NEXT I

END

Дано натуральное число N. A(N) – массив заполнить числами из диапазона [-30;30] поменять местами мах и второй отрицательный элемент массива, если второго отрицательного элемента нет в массиве, поменять местами первый и последний.

CLS

RANDOMIZE TIMER

INPUT "Введите n ", n
DIM A(n)
FOR I=1 TO n
A(I)= INT(RND*60 – 30 )

PRINT A(I);

NEXT I

max= - 1000 : L=0
FOR I=1 TO n
IF A(I)>max THEN max=A(I): K=I

NEXT I

FOR I=1 TO n
IF A(I)<0 THEN L=L+1: K1=I

IF L=2 THEN EXIT FOR

NEXT I

IF I=2 THEN SWAP A(K),A(K1) ELSE SWAP A(1),A(N)

PRINT
FOR I=1 TO n
PRINT A(I);

NEXT I

END

Задан массив A(N) в диапазоне [-25,20] поменять местами второй элемент кратный 5 с предпоследним элементом кратным 2.

RANDOMIZE TIMER

INPUT "Введите n ", n
DIM A(n)
FOR I=1 TO n
A(I)= INT(RND*45 – 25 )

PRINT A(I);

NEXT I

S=0 : K=0
FOR I=1 TO n
IF A(I)/5=A(I)\5 THEN K=K+1 : L=I

IF K=2 THEN EXIT FOR

NEXT I

FOR I=N TO 1 STEP -1

IF A(I)/2=A(I)\2 THEN S=S+1: M=I

IF S=2 THEN EXIT FOR

NEXT I

IF S=2 AND K=2 THEN SWAP A(L),A(M) ELSE ? “Таких элементов нет

PRINT
IF S=2 AND K=2 THEN

FOR I=1 TO n
PRINT A(I);

NEXT I

END IF

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

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

CLS

RANDOMIZE TIMER

INPUT "Введите n ", n
DIM A(n)
FOR I=1 TO n
A(I)= INT(RND*35 – 15 )

PRINT A(I);

NEXT I

max= - 1000 : L=0
FOR I=1 TO n
IF A(I)>max THEN max=A(I): K=I

NEXT I

FOR I=1 TO n
IF A(I)/2=A(I)\2 THEN L=L+1: K1=I

IF L=3 THEN EXIT FOR

NEXT I

IF I=2 THEN SWAP A(K),A(K1) ELSE SWAP A(1),A(N)

PRINT
FOR I=1 TO n
PRINT A(I);

NEXT I

END

Задан массив A(N) в диапазоне [-20,18] поменять местами второй отрицательный элемент с предпоследним положительным элементом.

CLS

RANDOMIZE TIMER

INPUT "Введите n ", n
DIM A(n)
FOR I=1 TO n
A(I)= INT(RND*38 – 18 )

PRINT A(I);

NEXT I

S=0 : K=0
FOR I=1 TO n
IF A(I)<0 THEN K=K+1 : L=I

IF K=2 THEN EXIT FOR

NEXT I

FOR I=N TO 1 STEP -1

IF A(I)>0 THEN S=S+1: M=I

IF S=2 THEN EXIT FOR

NEXT I

IF S=2 AND K=2 THEN SWAP A(L),A(M) ELSE ? “Таких элементов нет

PRINT
IF S=2 AND K=2 THEN

FOR I=1 TO n
PRINT A(I);

NEXT I

END IF




Самые низкие цены на курсы переподготовки

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

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца с присвоением квалификации (признаётся при прохождении аттестации по всей России).

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

Начало обучения ближайшей группы: 27 сентября. Оплата возможна в беспроцентную рассрочку (10% в начале обучения и 90% в конце обучения)!

Подайте заявку на интересующий Вас курс сейчас: https://infourok.ru

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

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

Похожие материалы

2017 год объявлен годом экологии и особо охраняемых природных территорий в Российской Федерации. Министерство образования и науки рекомендует в 2017/2018 учебном году включать в программы воспитания и социализации образовательные события, приуроченные к году экологии.

Учителям 1-11 классов и воспитателям дошкольных ОУ вместе с ребятами рекомендуем принять участие в международном конкурсе «Законы экологии», приуроченном к году экологии. Участники конкурса проверят свои знания правил поведения на природе, узнают интересные факты о животных и растениях, занесённых в Красную книгу России. Все ученики будут награждены красочными наградными материалами, а учителя получат бесплатные свидетельства о подготовке участников и призёров международного конкурса.

Конкурс "Законы экологии"