Програмирование на языке Basic. Федоряка Н.И. - 22 стр.

               Циклы такого рода отличаются тем, что хоть один раз, но тело цикла
         будет выполнено вне зависимости от условия. Условие проверяется после
         первого выполнения тела цикла.
               Пример: Вычислите сумму цифр в числе.
         REM Сумма цифр числа
         DIM a, chislo, s AS INTEGER
         INPUT "Введите число: ", chislo
         a=chislo
         DO
         s=s+a MOD 10
         a=a/10
         a=INT(a)
         LOOP UNTIL a=0
         PRINT "Сумма цифр числа ",chislo ," равна: ", s
         END
               Переменную s используем для хранения суммы цифр. До начала
         цикла в переменную a заносим значение переменной chislo. Все дальней-
         шие преобразования осуществляем с переменной а. В цикле берем остаток
         от деления на 10 (последняя цифра числа) и прибавляем к тому, что уже
         есть в переменной s; делим значение переменной а на 10, берем целую
         часть (т.е. отбрасываем последнюю цифру числа) и заносим в а. Цикл про-
         должается до тех пор пока значение переменной а не окажется равным ну-
         лю (перебрали все цифры числа). Результат выводим на экран.
                                   Контрольная работа.
         1.Что напечатается в результате выполнения программы?
         10 K=6
         20 FOR A=1 TO 10
         30 K=K+1
         40 PRINT K;
         50 NEXT A
         60 END

         2.Что напечатается в результате выполнения программы?
         10 K=0
         20 FOR A=1 TO 10
         30 K=K+5
         40 PRINT K;
         50 NEXT A
         60 END

         3.Что напечатается в результате выполнения программы?
         10 B=16
         20 FOR A=10 TO 1 STEP -3

         22


PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com