Разработать программу для построения графика функции - QBasic

Формулировка задачи:

разработать программу для построения графика функции у(х)=х^(-а), х принадлежит [с,b]. параметр а вводится с клавиатуры. границы с,b задаются в текстовом файле dan.txt. предусмотреть масштабирование графика. оси графика должны быть подписаны и нанесена разметка с определенной дискретностью. полученные значения х и у необходимо вывести а текстовый файл dan.txt. использовать функции при разработке программы. задание выполнить на языке quickBasic. буду очень признательна за оказанную помощь-ничегошеньки в этом не понимаю!

Решение задачи: «Разработать программу для построения графика функции»

Листинг программы

DECLARE SUB DrawText (Msg AS STRING, x AS INTEGER, Y AS INTEGER, TextColor AS INTEGER, Size AS INTEGER, Angle AS INTEGER)
'Открываем файл dan.txt для чтения данных с,d
OPEN "dan.txt" FOR INPUT AS #1
DO WHILE NOT EOF(1)
INPUT #1, C, d
LOOP
CLOSE #1
SCREEN 12
DIM MinX, MinY, MaxX, MaxY
DIM XRazn, YRazn, MnogX, MnogY
DIM StpScX AS INTEGER, StpScY AS INTEGER
'Функции графиков
INPUT "a="; a
DEF FnY1 (x) = x ^ (-a)
' Функции поиска границ
DEF FnMinMax (x, Y)
    IF x < MinX THEN MinX = x
    IF x > MaxX THEN MaxX = x
    IF Y < MinY THEN MinY = Y
    IF Y > MaxY THEN MaxY = Y
END DEF
 '  Экранное преобразование ekrannoe preobrazovanie
DEF FnGetX (x) = x * MnogX - MinX * MnogX
DEF FnGetY (Y) = Y * MnogY - MaxY * MnogY
 '  Параметры трассировки функций
Str1 = C
End1 = d
Stp1 = 1
 ' переменные для трассировок
x1 = Str1
y1 = FnY1(x1)
' Вычисляем параметры графиков
 OPEN "don.txt" FOR OUTPUT AS #1 'Открываем файл don.txt для записи значений x и функции
DO
  Go = 0: y1 = FnY1(x1):
IF x1 < End1 THEN x1 = x1 + Stp1: y1 = FnY1(x1): Go = -1
  i = FnMinMax(x1, y1)     '  _c_х _яп-аі<
 
WRITE #1, x1, FnY1(x1) '

Объяснение кода листинга программы

В начале кода подключается подпрограмма DrawText, которая позволяет выводить текст на экран с заданными параметрами.
Затем открывается файл dan.txt для чтения данных.
В цикле считываются значения переменных C и d из файла dan.txt.
После окончания чтения файла dan.txt, он закрывается.
Устанавливается режим экрана на 12.
Объявляются переменные MinX, MinY, MaxX, MaxY, XRazn, YRazn, MnogX, MnogY, StpScX, StpScY.
Определяются функции графиков FnY1 и функции поиска границ FnMinMax.
Определяются функции экранного преобразования FnGetX и FnGetY.
Определяются параметры трассировки функций: Str1, End1 и Stp1.
Переменные x1 и y1 инициализируются значениями Str1 и FnY1(Str1) соответственно.
Открывается файл don.txt для записи значений x и функции.
В цикле выполняется приращение x1 на Stp1 и вычисляется соответствующее значение y1 с помощью FnY1.
Если x1 меньше End1, то выполняется приращение x1 и y1, а также вычисляется значение Go.
Переменная i обновляется значением FnMinMax(x1, y1).
В цикле выполняется запись значений x1 и y1 в файл don.txt.
После окончания цикла, файл don.txt закрывается.