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

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

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

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

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

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

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

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

Занятие 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] расположить нечетные элементы по возрастанию, а четные элементы по убыванию.


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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