
- •Выполнил: преподаватель Агафонов а. В.
- •Оглавление
- •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
Оператор select
Рассмотрим выполнение следующей программы.
INPUT "Какую оценку ты получил в школе?"; О
SELECT CASE О CASE 1 PRINT "Тебе должно быть стыдно..." CASE 2 PRINT "Слишком мало учил..." CASE 3 PRINT "Посредственно..." CASE 4 PRINT "Неплохо!" CASE 5 PRINT Молодец!" CASE ELSE PRINT "Ну это ты обманываешь!" END SELECT |
Здесь в случае О=1 действует CASE 1, в случае О=2 - CASE 2 и т. д. Если задаёшь О=6 получаешь ELSE.
8. Задания
Задача 1.
Вычислить значениеY, если Y=sin x/(x-1)^2 при x не равном 1 и Y=1 при x равном 1.
Задача 2.
Вычислить значениеY, если Y=1-х при x большем или равном 1 и Y=х-1 при x меньшем 1.
Задача 3.
Вычислить значениеY, если Y=х +1 при x меньшем 2, Y=х+2 при x меньшем 3 но больше или равном 2 и Y=х+3 при х большем или равном 3.
Задача 4.
Вычислить значениеY, если Y=х ^2 при м=1, Y=2*х при м=2, Y=х+1 при м=3, Y =0 при м=4 и Y=х-1 при м=5.
Задача 5.
Вычислить значениеY=sign (x) т. е. Y=1 при x большем 0, Y=0 при х=0 и Y= -1 при x меньшем 0.
Задача 6.
Вычислить значениеY, если Y=tg x^2 при x равном /2 и Y=соs х при х= .
Задача 7.
Составить программу решения квадратного уравнения.
Задача 8.
Задача определения, что случится с ракетой в зависимости от её начальной скорости.
Алгоритм решения:
Вводится значение начальной скорости V0.
Печать «Ракета упадёт на Землю», если V0 меньше 7.8.
Печать «Ракета станет спутником Земли», если V0 больше или равно 7.8 и меньше 11.2.
Печать «Ракета станет спутником Солнца», если V0 больше или равно 11.2 и меньше 16.4.
Печать «Ракета покинет Солнечную систему», если V0 больше или равно 16.4.
Задача 9.
Вычислить значение Y, если Y=1/x + 1/(x-1). Учесть случаи, когда Y не имеет решения.
Задача 10.
Нахождение наибольшего общего делителя (НОД) двух натуральных чисел А и В по алгоритму Евклида.
Алгоритм Евклида:
Задаются два натуральных числа А и В.
Если А=В, то НОД =А
Иначе, найти разность между большим и меньшим числом и заменить ею большее число.
Перейти к 1.
Задача 11
Определить, принадлежит ли точка с координатами (х,y) фигуре на плоскости, задаваемой уравнениями:
y>=0 и модуль х+модуль y меньше или равно 1
y
x
1
-1
1
y<=0 и модуль х+модуль y меньше или равно 1
x
М одуль х+модуль y меньше или равно 1
y
x
Указать также, если точка не принадлежит ни одной фигуре.
Задача 12
Н айти наибольшее из двух чисел.
Задача 13
Найти наибольшее из трёх чисел.
Задача 14
Определить знак числа N.
Задача 15
Дан треугольник со сторонами А, В, С. Определить вид угла С (острый, тупой, прямой).
Задача 16
Найти квадрат наибольшего из двух чисел А и В и напечатать признак N =1, если наибольшим является А и N=2, если наибольшим является В.
Задача 17
Определить, попадёт ли точка с координатами (Х, Y) в круг радиуса R. Уравнение окружности R^2 = Х^2+Y^2. Присвоить признак N=1, если точка находится внутри круга и признак N=2, если точка находится вне круга.
Задача 18
О
I
IV
II
III
X
Y
Задача 19
Проверить, что введённое число простое.