QBASICBOOK.ru: сайт про QB64

Задача. Напечатать таблицу умножения от 1 до 20 при помощи цикла WHILE...WEND.

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

---

1. DIM A(20)
2. I = 1
3. WHILE (I <= 20)
4.   A(I) = I * I
5.   PRINT USING " ## "; I;
6.   PRINT " * ";
7.   PRINT USING " ## "; I;
8.   PRINT " = ";
9.   PRINT USING " ### "; A(I)
10.   I = I + 1
11. WEND

---

Рисунок 1 – Использование массива в цикле с предусловием

Рисунок 2 – Вывод таблицы умножения при помощи цикла с предусловием

Здесь почти все также, как в предыдущей статье. Вначале объявляем массив из 20 элеметов. Задаем начальное значение переменной-счетчика. Затем в цикле переменожаем переменную-счетчик на саму себя и записываем результат в ячейку массива до тех пор пока не пройдем все 20 итераций. Здесь же, в цикле, выводим значения элементов массива на экран по заданному формату.

Вот, собственно, и всё. Результат получился одинаковый. Это говорит, что вам и только вам надо принимать решение, какие операторы удобнее использовать при выполнении поставленных задач.

Спасибо за прочтение этой статьи.