Наращивание переменной
О том, что такое переменная и об операторе присваивания мы уже говорили. И обращали внимание на такое абсурдное с точки зрения математики выражение:
Х=Х+1
Применяется оно обычно в Бейсике для работы всевозможных счетчиков, а также для подсчета сумм или произведений рядов чисел. Например, необходимо вычислить сумму всех четных чисел от 1 до 100 включительно. Программа будет выглядеть так:
CLS S=0
Обнуление переменной, где будет накапливаться сумма:
FOR 1=2 TO 100 STEP 2 S=S+I NEXT I? "Сумма четных чисел от 1 до 100 равна"; S
Программа работает эффективно и просто. Параметром цикла являются сами четные числа, которые нам остается накапливать в переменной S. Разберем алгоритм по шагам:
- s=0;
- 1=2;
- s=0+2=2;
- 1=4;
- s=2+4=6;
- 1=6;
- s=6+6 и т. д. до 100.
На экране в результате увидим надпись:
Сумма четных чисел от 1 до 100 равна 2550.
Объяснять здесь вроде больше нечего Иногда лучше решать, чем говорить. Итак, вам необходимо написать программы для нахождения сумм.
209. Всех чисел, делящихся на 13 в интервале [1; 1000].
210. 
211. 
212. Напишите программу для нахождения суммы пяти произвольных чисел, вводимых с клавиатуры (сумматор).
213. Создайте программу для нахождения суммы пяти заданных чисел, указанных в операторе data.
214. Напишите программу вычисления произведения cos5°xcos]00xcosl5°x…xcos850.
215. Напишите программу вычисления суммы:
216. Напишите программу, рисующую цепочку соприкасающихся окружностей с заданными в операторе data радиусами (рис. 1.63).
Рис. 1.63. Цепочка соприкасающихся окружностей
217. Создайте программу вычисления среднего роста десяти человек, данные о которых занесены в оператор data.
218. Напишите программу вычисления среднего балла при поступлении в институт по результатам четырех экзаменов, которые вводятся с клавиатуры.
219. С помощью Бейсика вычислите среднее геометрическое трех произвольных чисел. Среднее геометрическое есть корень степени N из произведения N чисел.