Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Конспекты / Изучаем язык BASIC. Занятие 16. Метод выбора .

Изучаем язык BASIC. Занятие 16. Метод выбора .



Осталось всего 4 дня приёма заявок на
Международный конкурс "Мириады открытий"
(конкурс сразу по 24 предметам за один оргвзнос)


  • Информатика

Поделитесь материалом с коллегами:

Занятие 16

Метод выбора

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

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

PRINT A(I);

NEXT I

FOR I=1 TO n

min= 1000
FOR J=I TO n
IF A(J)

NEXT J

SWAP A(I),A(K)

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

NEXT I

Задан массив A(N) в диапазоне [-15,20] расположить элементы по убыванию.

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

PRINT A(I);

NEXT I

FOR I=1 TO n

max= - 1000
FOR J=I TO n
IF A(J)

NEXT J

SWAP A(I),A(K)

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

NEXT I

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

CLS

RANDOMIZE TIMER

INPUT “N=”;N

DIM A(N)

FOR I=1 TO N

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

PRINT A(I);

NEXT I

K=0

FOR I=1 TO N

FOR J=I TO N

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

NEXT J

NEXT I

FOR I=1 TO K

min= 1000
FOR J=I TO n
IF A(J)

NEXT J

SWAP A(I),A(K1)

NEXT I

FOR I=K+1 TO n

max= - 1000
FOR J=I TO n
IF A(J)

NEXT J

SWAP A(I),A(K2)

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

NEXT I

Задан массив A(N) в диапазоне [-16,23] расположить отрицательные элементы по возрастанию, а положительные элементы по убыванию. Для самостоятельного решения.

Контрольная работа 15 минут по первой задаче.

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

Задан массив A(N) в диапазоне [-31,30] расположить четные элементы по возрастанию, а нечетные элементы по убыванию.

Задан массив A(N) в диапазоне [-31,30] расположить нечетные элементы по возрастанию, а четные элементы по убыванию.




57 вебинаров для учителей на разные темы
ПЕРЕЙТИ к бесплатному просмотру
(заказ свидетельства о просмотре - только до 11 декабря)


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

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