- •Среда программирования qbasic
- •Язык программирования qbasic
- •Типы данных
- •Виды данных
- •Имя константы (в неявном виде) или переменной
- •Оператор const
- •Оператор dim
- •Оператор присвоения значений переменным
- •Стандартные функции
- •Выражения
- •Арифметические выражения
- •Логические выражения
- •Операции сравнения
- •Логическое отрицание
- •Логическое умножение
- •Логическое сложение
- •Логическое равенство
- •Строковые выражения
- •Структура программ
- •Оператор ввода из памяти (read – data)
- •Вывод на экран (print) и принтер (lprint) Вывод данных на экран
- •Форматированный вывод на экран (print using) и принтер (lprint using)
- •Символы для вывода чисел
- •Алгоритмы
- •Действие 2
- •Операторы передачи управления по вычислению
- •Оператор условного перехода if then
- •Пример решения задач iia и iiб
- •Оператор выбора select case
- •Алгоритмы циклической структуры
- •Операторы цикла while – wend (цикл ‘’пока’’)
- •Операторы цикла do – loop
- •Операторы цикла for – next (цикл со счетчиком)
- •Итерационные циклы
- •Итерационные циклы с применением рекурентной формулы
- •Массивы в qbasic
- •Объявление массива
- •Действия с массивами
- •Функции и процедуры, определяемые пользователем (собственные)
- •Функция пользователя function
- •Объявление функции пользователя
- •Собственная процедура (подпрограмма) sub
- •Объявление подпрограммы пользователя
- •Формальные параметры делятся на 2 группы:
- •Операторы для работы с файлами
- •По принципу организации файлы подразделяются на:
- •Обработка файла состоит из следующих операций:
- •Создание дискового файла
- •Вывод данных в файл
- •Закрытие дискового файла
- •Ввод данных из файла в программу
- •Input # н.Ф., список
- •Функции, используемые при работе с файлами
- •Графические возможности qbasic
- •Выбор графического режима
- •Выбор цвета
- •Выбор окна выведения
- •Вывод точки на экран и ее удаление
- •Построение линии и прямоугольника
- •Построение эллипса (окружности)
- •Закрашивание замкнутых областей
- •Задание II Алгоритм разветвляющейся структуры задача iiа
- •Задача II б
- •Задание III алгоритм циклической структуры задача III а Табулирование функции
- •Задача III б Вычисление суммы (произведения)
- •Задание IV Алгоритм комбинированной структуры
- •Вариант решения (использование функции пользователя)
- •Вариант решения (использование подпрограммы пользователя)
Вариант решения (использование функции пользователя)
Блок – схема
F1 =
+
z
(i) =
F1(a(i),Y)
+ _
Программа
DECLARE FUNCTION F1 ‘ текст основной программы
DECLARE FUNCTION F2
DIM A(1 TO 10) , Z(1 TO 10)
DATA 0.1, 0.25, 0.3, 0.5, 1, 1.5, 2, 3.5, 4, 5
INPUT “E” ; E
N = 1: Y = 0
DO
YN = ( N – 1.2 ) / ( 3 ^ N + N ^ 2)
Y = Y + YN : N = N + 1
LOOP WHILE ABS(YN) > E
PRINT “Y=”; Y
FOR i = 1 TO 10
READ A(i)
IF A(i) > 0.3 AND A(i) < = 2 THEN
Z(i) = F1(A(i), Y)
ELSE
Z(i) = F2(A(i), Y)
END IF
PRINT “A(” ; i; “)=”; A(i), “Z (” ; i; “)=”; Z(i)
NEXT i
END
FUNCTION F1(C,D) ‘ текст функции пользователя F1
F1 = (2*C+,D)^5
END FUNCTION
FUNCTION F2(C,D) ‘ текст функции пользователя F2
F2 = ABS(2*C - D)^(1 / 3)
END FUNCTION
Вариант решения (использование подпрограммы пользователя)
Блок – схемы
+
+
Программа
DECLARE SUB SUMMA ‘ текст основной программы
DIM A(1 TO 10) , Z(1 TO 10)
DATA 0.1, 0.25, 0.3, 0.5, 1, 1.5, 2, 3.5, 4, 5
INPUT “E” ; E
CALL SUMMA (E, Y)
FOR i = 1 TO 10
READ A(i)
IF A(i) > 0.3 AND A(i) < = 2 THEN
Z(i) = (2*A(i)+ Y)^5
ELSE
Z(i) = (A(i), Y)
END IF
PRINT “A(” ; i; “)=”; A(i), “Z (” ; i; “)=”; Z(i)
NEXT i
END
SUB SUMMA(E, Y) ‘ текст подпрограммы пользователя SUMMA
N = 1: Y = 0
DO
YN = ( N – 1.2 ) / ( 3 ^ N + N ^ 2)
Y = Y + YN
N = N + 1
LOOP WHILE ABS(YN) > E
PRINT “Y=”; Y
END SUB
Результат выполнения программы
E?_ .00001
Y = .115105
A(1)= .1 Z (1)= .003107
A(2)= .25 Z (2)= .088053
A(3)= .3 Z (3)= .187003
A(4)= .5 Z (4)= .960058
A(5)= 1 Z (5)= 1.235271
A(6)= 1.5 Z (6)= 1.423563
A(7)= 2 Z (7)= 1.572026
A(8)= 3.5 Z (8)= 18235.03
A(9)= 4 Z (9)= 35194.17
A(10)= 5 Z (10)= 105889.3
Пр