Basic - вводный курс

семена лиственницы фото


Наращивание переменной

О том, что такое переменная и об операторе присваивания мы уже говорили. И обращали внимание на такое абсурдное с точки зрения математики выражение

Х=Х+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 чисел.

Назад Начало Вперед