- Преподавателю
- Информатика
- Изучаем язык BASIC. Занятие 16. Метод выбора
Изучаем язык BASIC. Занятие 16. Метод выбора
Раздел | Информатика |
Класс | - |
Тип | Конспекты |
Автор | Гегелашвили Т.П. |
Дата | 08.08.2015 |
Формат | doc |
Изображения | Нет |
Занятие 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] расположить нечетные элементы по возрастанию, а четные элементы по убыванию.