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

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

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

Изучаем язык BASIC. Занятие 15. Вложенные циклы.

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

Занятие 15

Вложенные циклы.

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

FOR I=…

FOR J=...

- тело цикла

NEXT J

NEXT I

Написать таблицы до 9 в виде

1*2=2

2*2=4 и т.д.

FOR I=2 TO 9

FOR J=1 TO 9

? J;”*”;I;”=”;J*I

NEXT J

NEXT I

Написать Пифагорову таблицы умножения до 5

FOR I=1 TO 5

FOR J=1 TO 5

? J*I;

NEXT J

?

NEXT I

Напечатать четырехзначные натуральные числа, у которых нет одинаковых цифр.

FOR T=1 TO 9

FOR S=0 TO 9

FOR D=0 TO 9

FOR E=0 TO 9

IF T<>S AND T<>D AND T<>E AND S<>D AND S<>E AND D<>E THEN M=T*1000+S*100+D*10+E : ?M

NEXT E,D,S,T

Задан массив, заполненный в диапазоне [-18,24] отсортировать массив: расположить сначала все положительные, а затем отрицательные.

CLS

RANDOMIZE TIMER

INPUT “N=”;N

DIM A(N)

FOR I=1 TO N

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

PRINT A(I);

NEXT

FOR I=1 TO N

FOR J=I TO N

IF A(J) >0 THEN SWAP A(I), A(J) : EXIT FOR

NEXT J

NEXT I

PRINT

FOR I=1 TO N

PRINT A(I);

NEXT

Дано натуральное число N, A(N) заполнить в диапазоне [-9,12] упорядочить элементы массива следующим образом сначала все элементы кратные 5, затем все элементы кратные 4, потом все остальные. Новый массив не создавать.


CLS

RANDOMIZE TIMER

INPUT “N=”;N

DIM A(N)

FOR I=1 TO N

A(I)=INT(RDN*21-9)

PRINT A(I);

NEXT

K=0

FOR I=1 TO N

FOR J=I TO N

IF A(J)/5=A(J)\5 THEN SWAP A(I), A(J) :K=K+1 : EXIT FOR

NEXT J

NEXT I

FOR I=K TO N

FOR J=I TO N

IF A(J)/5=A(J)\5 THEN SWAP A(I), A(J) : EXIT FOR

NEXT J

NEXT I

PRINT

FOR I=1 TO N

PRINT A(I);

NEXT

Второй вариант

CLS

RANDOMIZE TIMER

INPUT “N=”;N

DIM A(N)

FOR I=1 TO N

A(I)=INT(RDN*21-9)

PRINT A(I);

NEXT

K=1

FOR I=1 TO N

IF A(I)/5=A(I)\5 THEN SWAP A(I), A(K) :K=K+1

NEXT I

FOR I=K+1 TO N

IF A(I)/4=A(I)\4 THEN SWAP A(I), A(K)

NEXT I

PRINT

FOR I=1 TO N

PRINT A(I);

NEXT



Дано натуральное число N, A(N) заполнить в диапазоне [-25,25] упорядочить элементы массива следующим образом сначала все элементы кратные 2, затем все элементы кратные 3, потом все остальные. Новый массив не создавать.

Написать самостоятельно.


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

Дано натуральное число N, A(N) заполнить в диапазоне [-9,10] упорядочить элементы массива следующим образом сначала все элементы четные отрицательные, затем все элементы четные положительные, все элементы нечетные отрицательные, затем все элементы нечетные положительные, потом все равные нулю. Новый массив не создавать.

CLS

RANDOMIZE TIMER

INPUT “N=”;N

DIM A(N)

FOR I=1 TO N

A(I)=INT(RDN*19-9)

PRINT A(I);

NEXT

K=0

FOR I=1 TO N

FOR J=I TO N

IF A(J)/2=A(J)\2 AND A(J)<0 THEN SWAP A(I), A(J) :K=K+1 : EXIT FOR

NEXT J

NEXT I

FOR I=k + 1 TO N

FOR J=I TO N

IF A(J)/2=A(J)\2 AND A(J)>0 THEN SWAP A(I), A(J) :K=K+1 : EXIT FOR

NEXT J

NEXT I

FOR I=k + 1 TO N

FOR J=I TO N

IF A(J)/2<>A(J)\2 AND A(J)<0 THEN SWAP A(I), A(J) :K=K+1 : EXIT FOR

NEXT J

NEXT I

FOR I=k + 1 TO N

FOR J=I TO N

IF A(J)/2<>A(J)\2 AND A(J)>0 THEN SWAP A(I), A(J) :K=K+1 : EXIT FOR

NEXT J

NEXT I

FOR I=K+1 TO N

FOR J=I TO N

IF A(J)=0 THEN SWAP A(I), A(J) : EXIT FOR

NEXT J

NEXT I

PRINT

FOR I=1 TO N

PRINT A(I);

NEXT

Дано натуральное число N, A(N) заполнить в диапазоне [-5,25] удалить из массива все элементы, по абсолютной величине меньше 2. Среди оставшихся найти среднее арифметическое элементов кратных 3.

CLS

RANDOMIZE TIMER

INPUTN=”;N

DIM A(N)

FOR I=1 TO N

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

PRINT A(I);

NEXT

K=0

FOR I=1 TO N

FOR J=I TO N

IF ABS(A(J))>=2 THEN SWAP A(I), A(J) :K=K+1 : EXIT FOR

NEXT J

NEXT I

S=0 : L=0

FOR I=1 TO K

IF A(I)/3=A(I)\3 THEN S=S +A(I): L=L+1

NEXT I

SR=S/L

PRINT

FOR I=1 TO K

PRINT A(I);

NEXT

PRINT

PRINT “SR=”;SR

Дано натуральное число N, A(N) заполнить в диапазоне [-15,22] удалить из массива все элементы, по абсолютной величине меньше 5.

CLS

RANDOMIZE TIMER

INPUT “N=”;N

DIM A(N)

FOR I=1 TO N

A(I)=INT(RDN*37-15)

PRINT A(I);

NEXT

K=0

FOR I=1 TO N

FOR J=I TO N

IF ABS(A(J))>=5 THEN SWAP A(I), A(J) :K=K+1 : EXIT FOR

NEXT J

NEXT I

PRINT

FOR I=1 TO K

PRINT A(I);

NEXT


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

"Инфоурок" приглашает всех педагогов и детей к участию в самой массовой интернет-олимпиаде «Весна 2017» с рекордно низкой оплатой за одного ученика - всего 45 рублей

В олимпиадах "Инфоурок" лучшие условия для учителей и учеников:

1. невероятно низкий размер орг.взноса — всего 58 рублей, из которых 13 рублей остаётся учителю на компенсацию расходов;
2. подходящие по сложности для большинства учеников задания;
3. призовой фонд 1.000.000 рублей для самых активных учителей;
4. официальные наградные документы для учителей бесплатно(от организатора - ООО "Инфоурок" - имеющего образовательную лицензию и свидетельство СМИ) - при участии от 10 учеников
5. бесплатный доступ ко всем видеоурокам проекта "Инфоурок";
6. легко подать заявку, не нужно отправлять ответы в бумажном виде;
7. родителям всех учеников - благодарственные письма от «Инфоурок».
и многое другое...

Подайте заявку сейчас - https://infourok.ru/konkurs


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

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

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


Идёт приём заявок на международный конкурс по математике "Весенний марафон" для учеников 1-11 классов и дошкольников

Уникальность конкурса в преимуществах для учителей и учеников:

1. Задания подходят для учеников с любым уровнем знаний;
2. Бесплатные наградные документы для учителей;
3. Невероятно низкий орг.взнос - всего 38 рублей;
4. Публикация рейтинга классов по итогам конкурса;
и многое другое...

Подайте заявку сейчас - https://urokimatematiki.ru

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

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