- •Выполнил: преподаватель Агафонов а. В.
- •Оглавление
- •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
12. Задания
Сделать программу, которая спрашивает у пользователя длины сторон треугольника и ищет площадь этого треугольника. Вначале программа проверяет, что задаваемые стороны подходят для построения треугольника.
Программа решения уравнения Ах+В=Dx+C. Программа запрашивает значения А,В,С и D и выясняет сколько решений имеет уравнение или не имеет вообще.
Составить программу, которая находит сумму цифр числа.
Выяснить, является ли слово полиндромом или нет, т.е. читается ли оно
Составить программу, которая вычисляет арксинус и арккосинус задаваемого угла.
Составить программу, которая вычисляет кубический корень из вещественного числа (в том числе отрицательного).
В единичный квадрат вписан круг. В квадрат бросаются случайно N точек. Составить программу, моделирующую эту ситуацию и вычисляющую значение 4*Р/ N, Р –количество точек, попавших в круг. N –задаётся пользователем. Что представляет собой число 4*Р/ N? Точки задаём случайными координатами (x,y).
Составить программу, которая подсчитывает количество букв в задаваемой фамилии.
Дан текст «файл первый». Переставить слова, чтобы получилось «первый файл».
Дан текст «Миру –мир». Получить текст «!!!!!Миру –мир!!!!!»
Дан текст «хорошо окончить школу – наша задача». Получить текст «наша задача –это хорошо окончить школу»
Выписать задуманное слово от конца к началу.
Закодировать задуманное слово его кодами. Раскодировать полученное.
13. Операторы графики.
При выполнении графических команд, надо прежде всего задать оператором графический экран.
Оператор SCREEN 12 задаёт графический экран размером 640*480 пикслей.
Оператор SCREEN 0 задаёт обычный текстовый экран. Этот экран используется. Если хотим из графического экрана перейти в текстовый. Экран при этом очищается.
При рисовании используется система координат, но начальная точка (0,0) находится в левом верхнем углу.
Горизонтальная ось Х идёт слева направо и имеет от 0 до 640 точек. Ось У идёт сверху вниз и имеет от 0 до 480 точек.
Точку на экран ставят с помощью команды PSET (x, y), цвет, где х, y –координаты точки, параметр цвет есть число от 1 до 16 (не обязателен).
Пример:
|
SCREEN 12 'обязательно PSET (320, 240),14 'жёлтая точка в центре экрана
Следующая программа рисует случайную точку случайным цветом.
|
|
|---|---|---|
SCREEN 12 RANDOMIZE TIMER DO x = INT(RND * 640) 'x координата y = INT(RND * 480) 'y координата v= INT(RND * 16) 'цвет PSET (x, y), v 'ставим точку с этим цветом на экран LOOP UNTIL INKEY$ <> "" |
|
|
Следующая программа рисует синусоиду и косинусоиду:
SCREEN 12
'начинается цикл, где х меняется от 0 до 640 с шагом 0.01
FOR x = 0 TO 640 STEP .1
'считаем координаты у , учитывая, что начало координат находится в левом верхнем углу.
SINY=240 + 200 * SIN(x / 30) COSY=240 + -200 * COS(x / 30)
'ставим на экран 2 точки разного цвета PSET (x, SINY), 2 PSET (x, COSY), 4 NEXT x |