
- •Выполнил: преподаватель Агафонов а. В.
- •Оглавление
- •19. Задания 55
- •22. Задания 59
- •1. Введение
- •2. Переменные
- •Символьные переменные.
- •Числовые переменные
- •3. Операторы присвоения, печати, ввода и ремарки Оператор присвоения
- •Оператор печати
- •Оператор ввода
- •Оператор ремарки
- •4. Арифметические действия.
- •Логический оператор and
- •Верное Верное Верное
- •Логический оператор or
- •Логический оператор not
- •Другие логические операторы xor, eqv, imp
- •7. Оператор условного перехода
- •Оператор if.(условие)..Then.(оператор)..Else..(оператор).
- •Оператор select
- •8. Задания
- •9. Оператор цикла Принудительное прерывание программы
- •Цикл do……loop
- •Цикл for...Next
- •Оператор goto
- •10. Задания
- •Задачи на вычисление сумм.
- •11. Функции
- •Математические функции
- •Символьные функции.
- •Вспомогательные функции
- •Выработка случайных величин.
- •12. Задания
- •13. Операторы графики.
- •Изображение линий и прямоугольников
- •Изображение кругов и эллипсов
- •Раскрашивание
- •Оператор draw
- •14. Задания
- •15. Функция пользователя
- •16. Процедуры
- •Оператор gosub..Return
- •Оператор sub...End sub
- •17. Задания
- •18. Массивы
- •Многомерные массивы
- •Операторы data, read, restore
- •19. Задания
- •20. Работа с файлами.
- •Запись в файл
- •Функция eof принимает значение 1, если конец файла и 0 – в противном случае. Аргументом функции является порядковый номер файла.
- •22. Задания
- •23. Создание функции пользователя в Excel с помощью Visual Basic
Задачи на вычисление сумм.
Вычислить значение суммы чисел от 1 до 100.
Вычислить суммы рядов:
S=1/2+2/3+…….+(n-1)/n
S=1+1/3^2+….+1/(2n-1)^2
Xn=1-1/3+1/5-….(-1)^(n-1)/(2n-1)
Sn=1+1/2+1/4+ …1/2^n
S=1+1/2^2+1/3^2+….+1/n^2
S=x-x^2/2+x^3/3-x^4/4+….+(-1)^(n-1)*x^n/n
Вычисление произведений:
N!=1*2*3*4 …*n
Y=n(n-1)(n-2)….(n-k+1)
Вычислить сумму:
S=1*2+1*2*3+….+1*2*3*…*n
B=N!/(K!*(N-K)!)
S=1*x/1+x^2/1*2+…+x^n/1*2*3*…*n
Записать таблицу умножения.
Решить задачу: В 4 дома ежедневно доставляется молоко. Сколько молока было доставлено за неделю в каждый дом?
11. Функции
Рассмотрим три вида функций:
Математические функции
Символьные функции
Специальные функции
Математические функции
Для всех этих функций аргументом является число и значением тоже число.
ABS
Aбсолютное значение числа. Значением является само число, если аргумент положителен и противоположное значение, если аргумент отрицателен.
Пример:
PRINT ABS(100)
PRINT ABS(-100)
PRINT ABS(0)
ATN
Функция арктангенса.
Например:
PRINT 4*ATN(1) 'Это значение пи. |
COS
Функция касинуса. Значение аргумента задаётся в радианах.
Пример:
INPUT "Введи угол в градусах"; А 'Переводим его в радианы R = A * ATN(1) * 4 / 180 PRINT "Косинус угла равен"; COS(R) |
Замечание. Поскольку перевод в радианы приблизительный и результат будет приблизительным. Например косинус 90 градусов будет равен -4.371139E-08 , а не нуль.
CINT
Функция првращает дробное число в целое.
Например:
PRINT CINT(3.68) 'Ответ 4 |
FIX
Отделяет целую часть вещественного числа.
Пример:
PRINT FIX(-3.69) 'Ответ -3 PRINT FIX(78.55) 'Ответ 78 |
LOG
Функция натурального логарифма ln x. Это единственная логарифмическая функция в QBASIC. Для вычисления логарифма по другому основанию, надо делать перевод.
Пример:
INPUT "Введи основание логарифма"; a INPUT "Веди логарифмируемое"; b PRINT "Логарифм"; b; "при основании"; a; "есть"; LOG(b) / LOG(a) |
EXP
Функция ex.
Пример:
PRINT EXP(1) 'Результат -значение e PRINT EXP(0) 'Результат- 1 PRINT EXP(10) |
INT
Функция выделения целой части числа. Даёт ближайшее целое число, не превышающее значение аргумента.
Пример:
INPUT "Введи нецелое число"; N PRINT "Целая часть числа есть";INT(N) |
RND
Функция даёт значения случайных чисел в промежутке от 0-до 1.
Пример:
PRINT "Эта программа даёт значения случайных чисел от 1 до 6." PRINT INT(RND*6+1) |
SGN
Функция даёт знак числа. Знак числа будет –1, 0 или 1 в завичсимости от того является ли число отрицртельным, 0 или положительным.
Пример:
PRINT SGN(-700) PRINT SGN(3.14) PRINT SGN(0) |
SIN
Функция синуса. Аргументом является угол, заданный в радианах..
Пример:
INPUT "Введи угол в радианах"; r PRINT "Синус этого угла равен"; SIN(r) |
SQR
Функция квадратного корня. Аргументом является неотрицательное число.
Пример:
PRINT "Эта программа находит гипотенузу треугольника" INPUT "введи первый катет"; a INPUT "введи второй катет"; b c = SQR(a * a + b * b) PRINT "Длина гипотенузы равна"; c
|
TAN
Функция тангенса. Аргументом является угол в радианах.
Пример:
INPUT "Введи угол в радианах"; r PRINT "Тангенс этого угла равен"; TAN(r) |