* Данный текст распознан в автоматическом режиме, поэтому может содержать ошибки

44 Языки Бейсик В качестве примера использования оператора DO-LOOP рассмотрим про¬ грамму, которая вычисляет факториал числа п(обозначается п!)-произведение чисел ряда 1,2,3,...п-1,п. Пример 7.7.1. 'Программа, вычисляющая факториал числа n ! = 1 * 2 * 3 * . . . * ( n - 1 ) * n CLS 'очистка экрана дисплея v v o d : INPUT "введите число, факториал которого нужно вычислить", n I F n = 0 THEN 'проверка введенного числа на 0 PRINT "Хорошая шутка, попробуем еще раз?" GOTO v v o d 'переход на начало программы END I F nn = n 'запоминаем введенное число DIM n f AS DOUBLE 'отводим для результата переменную П £ = П ' С двойной точностью DO 'безусловный цикл П = П — 1 ' С выходом по EXIT DO I F n > 0 THEN n f = n f * n ELSE EXIT DO 'вычисляем факториал числа LOOP 'конец цикла PRINT n n ; " ! = " ; n f 'печать результата INPUT "будете еще вычислять? (0-нет)", n I F n <> 0 GOTO v v o d END 7.8. О п е р а т о р D O - W H I L E ( U N T I L ) - L O O P - и т е р а ц и о н н ы й ц и к л 2 Оператор D O - W H I L E ( U N T I L ) - L O O P повторяет блок операторов, пока усло¬ вие верно, или д о тех пор, пока условие не станет верным. Ф о р м а т оператора D O - W H I L E ( U N T I L ) - L O O P : DO [{WHILE,UNTIL} условие] [ блок_операторов] LOOP или DO [ блок_операторов] LOOP [{WHILE,UNTIL} условие] где Условие — л ю б о е выражение Бейсика, которое может быть оценено, как истинное(не ноль) или ложное(ноль) Блок_операторов — о д н а и л и несколько строк операторов Бейсика. Если не¬ сколько операторов записаны в одной строке, то они дол¬ жны быть разделены двоеточием. Если в операторе применяется ключевое слово W H I L E , то цикл выполняется до тех пор, пока условие истинно.