Операторы. INPUT Введите числа X и Y,

WEND

INPUT x

INPUT x

WEND

Операторы

WHILE условие

END

NEXT

Программа к задаче 9

INPUT "Введите числа X и Y", x, y

x = 12: y = 8

IF x<y THEN k=x ELSE k=y ‘определение минимального из X и Y – K

FOR i = k TO 1 STEP -1 ‘последовательный перебор чисел от К до 1

‘если Х и Y делятся нацело, делитель (i) найден

IF x MOD i=0 AND y MOD i=0 THEN PRINT "НОД="; i: EXIT FOR

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

Задача

Вычислить сумму всех положительных чисел

Вычислить количество чисел, квадрат которых меньше 10

Вычислить количество положительных, количество нулевых чисел и сумму отрицательных

Ответить на вопрос: правда ли, что среди этих чисел имеются отрицательные (ответ должен быть в виде текста “ДА” или “НЕТ”)

Напечатать все числа из очереди, квадрат которых превышает 7

Вычислить произведение положительных чисел

Подсчитать число четных и сумму нечетных чисел.

Суммировать числа до тех пор, пока случайно не встретится число 2. Напечатать получившуюся сумму. Если двойка не встретилась, напечатать текст “Числа слишком малы”.

Суммировать квадраты чисел до тех пор, пока сумма квадратов не превысит 40. Напечатать, на котором по счету числе произошло это событие. Если оно не произошло вообще, напечатать текст “Числа слишком малы”

Определить и напечатать, каким по счету в очереди стоит число 3. Если троек несколько, нас интересует только первая из них. Если троек нет совсем, напечатать сообщение “Троек нет”.

Контрольная задача. В банке хранится известное количество (N) срочных вкладов. О каждом вкладе известно его значение на начало года – X. Размер прибыли зависит от величины вклада. Если вклад до 10000 руб. – прирост составляет 10% годовых, если до 50000 руб. – 12%, если больше – 15%. Вычислить и напечатать значение каждого вклада на конец года, а также суммарные вклады на начало и конец года. Задачу решить двумя способами – с оператором цикла и без него. Указание. Процент увеличения вклада удобно отобразить в виде коэффициента. Так при 12% годовых, значение вклада на конец года соответствует 1.2X.

ОПЕРАТОР ИТЕРАЦИОННОГО ЦИКЛА имеет вид

Такая конструкция позволяет легко организовывать итерационные циклы – операторы, входящие в тело цикла выполняются до тех пор, пока истинно условие.

Для примера снова решим задачу 3 (вычислять и печатать Y=Х2до обнаружения первого Х=0). Программа приведена справа.

WHILE x<>0

?х; х^2

Если параметр WHILE условие опущен, цикл будет выполняться бесконечно. В этом случае внутри него должно быть предусмотрено средство выхода, например строка GOTO. Кроме того, в Бейсике имеется еще один оператор цикла с условием. Он имеет две разновидности: цикл с предусловием (условие рассматривается до входа в цикл)

DO [WHILE/UNTIL условие]

Дата добавления: 2014-12-27