Организация циклов с предусловием

О п е р а т о р WHILE... WEND выполняет серию операторов, пока указанное условие верно.

WHILE условие

[ Операторы ]

WEND

Где условие - числовое выражение, которое Basic оценивает как истинное (не-ноль) или ложное (ноль); операторы - любое количество операторов

Пока условие истинно (его значение не равно нулю), операторы будут циклически выполняться. Если условие ложно (его значение равно нулю), выполняется оператор, следующий за WEND.

Пример:

INPUT R$

WHILE R$ <> "A" AND R$ <> "B"

PRINT "ВВЕДИ А ИЛИ В": INPUT R$

WEND

 

Пример:

Дано действительное число a.Найти:

а) среди чисел 1, 1+1/2, 1+1/2+1/3+... первое большее а

б) такое наименьшее n,что 1+1/2+13+...+1/n > a

 

INPUT "введи а"; a

WHILE S < a

i=i+1

S=S+1/i

WEND

PRINT S,i

 

Циклы WHILE...WEND могут вкладываться друг в друга любое число раз, но каждому оператору WHILE должен соответствовать свой WEND.

 

Одномерный массив

Одномерный массив – это упорядоченная последовательность однотипных элементов. Например, A=(-5, 4, 10, 0.5, 1) – пример одномерного массива, состоящего из 5 чисел. Работа с массивом сводится к действиям над его элементами. Для того чтобы указать, какой элемент в данный момент используется, достаточно задать его порядковый номер, который приписывается к имени соответствующего массива.

 

 

 

Например, A(1)- первый элемент массива А; А(i) – i-й элемент одномерного массива А.

Для массива A=(-5, 4, 10, 0.5, 1): А(1)=-5, а(2)=4, А(3)=10, а(4)=0.5, А(5)=1

 

 

Порядок оформления программ с использованием одномерного массива

1. Определить кол-во элементов массива:

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

2. Описать используемые массивы в программе:

DIM A(n)

3. Ввести элементы массива в ОП:

FOR i = 1 TO n

INPUT A(i)

NEXT i

4. Распечатать массив на экран:

FOR i = 1 TO n

PRINT A(i);

NEXT i