Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

Способ (с помощью оператора цикла WHILE.WEND)



Читайте также:
  1. He-делание и два способа вхождения в сновидение
  2. I система: аденилатциклаза – цАМФ
  3. I. Гашение дуги с помощью полупроводниковых элементов
  4. I. Общая концепция выведения на рынок сотовой связи нового оператора
  5. I. Расчёт термодинамического цикла холодильной машины.
  6. III. Порядок выдачи листка нетрудоспособности по уходу за больным членом семьи, здоровым ребенком, ребенком-инвалидом; при протезировании; при беременности и родах?
  7. IX. Заполнение листка нетрудоспособности

CLS

INPUT "введи размер массива "; n

DIM A(n)

INPUT "введи интервал (a,b) "; a, b

PRINT "введи массив"

'Цикл по элементам массива

FOR i = 1 TO n

'Ввод элементов массива

INPUT A(i)

NEXT i

'Присваивание начального значения счетчика цикла

i = 1

'Присваивание начального значения счетчика вхождения

K = 0

'Поиск третьего элемента, принадлежащего (a,b)

WHILE K < 3 OR i < = n

IF A(i) >= a AND A(i) <= b THEN L = i: K = K + 1

i = i + 1

WEND

IF K < 3 THEN

PRINT " третьего элемента, принадлежащего (а,b) нет "

ELSE

PRINT "номер третьего элемента, принадлежащего (а,b)="; L

PRINT "его значение ="; A(L)

END IF

END

 

пример 10

 

Дан массив чисел. Заменить второй максимальный элемент на 1.

 

 

программа

CLS

INPUT "введи размер массива "; n

DIM A(n)

PRINT "введи массив"

FOR i = 1 TO n

'Ввод элементов массива

INPUT A(i)

NEXT i

'Определение начального значения максимума

MAX = A(1)

'Нахождение наибольшего значения

FOR I = 2 TO n

IF A(i) > MAX THEN MAX = A(i)

NEXT i

'Определение второго по порядку максимального значения и замена его на 1

FOR i = 1 TO n

IF A(i) = MAX THEN L = i: K = K + 1

IF K = 2 THEN A(L) = 1: EXIT FOR

NEXT i

FOR i = 1 TO n

'Вывод массива на печать

PRINT A(i);

NEXT i

END

 


Дата добавления: 2015-07-11; просмотров: 128 | Нарушение авторских прав






mybiblioteka.su - 2015-2024 год. (0.006 сек.)