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

В этой статье я покажу как выводить значения функции через шаг в цикле. Это будет «шаблоном» программы, в которой вам надо будет просто изменить функцию и/или шаг в цикле.

Пусть у нас дана функция F(x) = SIN(X). Необходимо вывести её значения, если X будет задан от 0 до 150 с шагом 10.

---

1. REM ZADACHA_1
2. CLS
3. PRINT " -------------------------------"
4. PRINT "   X[0; 150]   |  F(x)=SIN(X)"
5. PRINT " -------------------------------"
6. FOR X = 0 TO 150 STEP 10
7.     PRINT USING "      ###     |  ###.###   "; X; F
8.     F = SIN(X)
9. NEXT X
10. PRINT " -------------------------------"
11. END

---

 

Рисунок 1 – Исходный текст первой программы

 

Рисунок 2 – Результат выполнения первой программы

При необходимости, самостоятельно измените эту программу на вашу произвольную функцию и/или шаг.

Например, необходимо вывести таблицу степеней двойки с нулевой по двадцатую:

---

1. 'vyvod tablitsy stepeney dvoyki s nulevoy po dvadtsatuyu.
2. REM ZADACHA_2
3. CLS
4. PRINT " ----------------------------"
5. PRINT "   2  |    2^X X[0..20]    "
6. PRINT " ----------------------------"
7. FOR X = 0 TO 20 STEP 1
8.     PRINT USING "    2 ^ ##5     |  ########   "; X; 2 ^ X
9. NEXT X
10. PRINT " ----------------------------"
11. END

---

 

Рисунок 3 – Исходный текст второй программы

 

Рисунок 4 – Результат выполнения второй программы

Пример аналогичной задачи: Cоставить на языке Basic и отладить программу для вывода таблицы значения SIN(X) и COS(X), где X изменяется от 0 до 30 градусов с шагом 5 градусов.

---

1. 'sostavit na yazyke QBASIC i otladit programmu dlya vyvoda tablitsy
2. 'znacheniya SIN(X) i COS(X), gde X - izmenyayetsya ot 0 do 30 gradusov
3. 's shagom 5 gradusov
4. CLS
5. PRINT " -----------------------------------------------"
6. PRINT "   X[0; 30]   |   F(X)=SIN(X)  |   F(X)=COS(X)  "
7. PRINT " -----------------------------------------------"
8. FOR X = 0 TO 30 STEP 5
9.     PRINT USING "      ###     |    ###.###     |   ###.###  "; X; F1; F2
10.     F1 = SIN(X)
11.     F2 = COS(X)
12. NEXT X
13. PRINT " -----------------------------------------------"
14. END

---

 

Рисунок 5 – Исходный текст второй программы

 

Рисунок 6 – Результат выполнения второй программы

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

 

• simple-math-and-beautiful-output-result-1.bas
• simple-math-and-beautiful-output-result-2.bas
• simple-math-and-beautiful-output-result-3.bas