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

Опубликовано: 2021-04-28 17:20:00

Простейшая математика и красивый вывод результата

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

Пусть у нас дана функция 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 – Результат выполнения второй программы

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

 

Прикрепленные файлы:

< Предыдущая статья
Сортировка вектора по возрастанию
Следующая статья >
Подпрограммы. Часть первая. Знакомство

Выделите опечатку и нажмите Ctrl + Enter, чтобы отправить сообщение об ошибке.