Как Петя Бейсиков Тоню Соображалкину программировать учил

ПРОГРАММА СУММИРОВАНИЯ ЧИСЕЛ

А сейчас составь программу суммирования чисел от единицы до ста, конечно, используя оператор цикла.

— Ха! Не на ту напал! Каждый знает формулу для расчета такой суммы. Это будет 10100, деленное на два… 5050!

— Все равно составь программу, но бери не конкретное число 100, а произвольное N, которое введет пользователь.

— Ладно уж, хотя и для этого случая имеется формула: сумма равна N(N+1)/2. Так что программу я пишу только из уважения к тебе. Учти.

— Не трать зря время. Постарайся составить до того, как мы попадем на машину. Учти, что переменную цикла можно использовать в арифметических выражениях совершенно так же, как любое другое число.

Тоня взялась за работу, и в результате появилась следующая программа.

10 PRINT «ПРОГРАММА СУММИРУЕТ ЧИСЛА»

15 PRINT «ОТ 1 ДО N»

20 PRINT «ВВЕДИТЕ ЧИСЛО N»

30 INPUT N

40 S=0

50 FOR 1 = 1 ТО N

60 S=S+1

70 NEXT I

80 PRINT «СУММА РАВНА»; S

90 STOP

— Ух и намучилась, пока сообразила, что переменной для суммы вначале надо присвоить нуль, а потом добавлять числа по одному. Ну как?

— Ничего. Программа работать будет.

Прождав еще некоторое время, ребята попали на машину.

— Ну, Тоня, вызывай интерпретатор!

>BAS

READY

Сначала будущую программу надо как-то назвать при помощи директивы NEW. Выполнение этой директивы хорошо еще и тем, что очищается память. Сейчас, когда мы только начали работу, это не имеет значения, но было бы важно, если бы ты уже вводила какую-нибудь программу в память. Введи NEW и название новой программы.

NEW SUMMA

— Ты доволен?