Первые программы на Qbasic
Задание Протабулировать функцию в соответствии с вариантом задания путем многократного вычисления ее значения при изменении аргумента в заданном диапазоне с заданным шагом (параметры, диапазон (начальное и конечное значения) и шаг изменения аргумента ввести с клавиатуры). Использовать один из трех операторов цикла for — next, while — wend, do — loop (по ука-занию преподавателя). Проверить… Читать ещё >
Первые программы на Qbasic (реферат, курсовая, диплом, контрольная)
Министерство образования и науки Росийской Федирации ФГАОУ ВПО «Уральский Федеральный университет имени первого Президента россии Б.Н. Ельцина»
Кафедра интелектуальных информационных технологий Дисциплина «Информатика»
ЛАБОРАТОРНАЯ РАБОТА № 1
Вариант 9
«Первые программы на Qbasic»
Студент Д. А. Русинов Группа Мт-110 602
Преподаватель Д. В. Опарин Екатеринбург 2011 г.
Цель работы: первоначальное знакомство с работой программ, написанных на языке Qbasic.
Задание Ознакомиться с работой программ, написнных на языке Qbasic. На основе программы, рисующей российский флаг, создать программу, позволяющую получить изображение флага Норвегии.
Алгоритм:
Лабораторная работа 1
Флаг Норвегии
CLS: SCREEN 12
LOCATE 3, 4: PRINT «Флаг Норвегии»
Красная полоса
LINE (80, 100)-(550, 370), 4, BF
2 белые полосы
LINE (200, 100)-(290, 370), 15, BF
LINE (80, 190)-(550, 280), 15, BF
2 синие полосы
LINE (80, 210)-(550, 260), 1, BF
LINE (220, 100)-(270, 370), 1, BF
END
Результат работы программы В результате работы программы на экране получается изображение флага Норвегии.
Цель работы: освоение порядка работы в среде системы программирования QBasic, овладение практическими навыками разработки и программирования вычислительного процесса линейной и разветвляющейся структур.
Задание Набрать программу вычисления площади треугольника s по формуле Герона Алгоритм:
Нет Да Лабораторная работа 2
CLS
5: INPUT «Введите сторону треугольника a»; a
INPUT «Введите сторону треугольника b»; b
INPUT «Введите сторону треугольника c»; c IF a < 0 OR b < 0 OR c < 0 OR a + b < c OR a + c < b OR b + c < a THEN
PRINT «Неверный ввод данных, повторите заново»
GOTO 5
END IF
p = (a + b + c) / 2
s = SQR (p * (p — a) * (p — b) * (p — c))
PRINT USING «Площадь треугольника #####.##»; s
END
Цель работы: овладение практическими навыками разработки и программирования вычислительного процесса разветвляющейся и циклической структур.
Задание Протабулировать функцию в соответствии с вариантом задания путем многократного вычисления ее значения при изменении аргумента в заданном диапазоне с заданным шагом (параметры, диапазон (начальное и конечное значения) и шаг изменения аргумента ввести с клавиатуры). Использовать один из трех операторов цикла for — next, while — wend, do — loop (по ука-занию преподавателя). Проверить правильность работы программы, протестировав все три ветви алгоритма. Организовать вывод значений аргумента и вычисленных значений функции в виде таблицы.
Алгоритм:
да да
да Лабораторная работа 3
CLS
INPUT «Введите а»; a
INPUT «Введите начальное значение х»; x1
INPUT «Введите конечное значение ч»; x2
INPUT «Введите шаг»; x3
PRINT «Таблица функции Y (X)»
PRINT «X Y «
x = x1
DO WHILE x < x2 + x3 / 2
IF x < .85 THEN
y = (SIN ((ABS (a * x)) ^ (1 / 2))) ^ 2
END IF
IF x >= .85 AND x <= 1.15 THEN
y = a + 1
END IF
IF x > 1.15 THEN
y = LOG (x + 1)
END IF
PRINT USING «####.## ####.####»; x; y
x = x + x3
LOOP
END
Цель работы: овладение практическими навыками работы с одномерными массивами, изучение особенностей их ввода и вывода, приобретение навыков по организации программ циклической структуры с использованием типовых алгоритмов вычислений.
Задание Обработать на компьютере одномерный массив в соответствии с вариантом задания. Размер исходного массива n и его элементы ввести с клавиатуры. Вывести на экран монитора исходный массив и все результаты с наименованиями выводимых величин. Проверить правильность работы программы с помощью тестового варианта.
Алгоритм:
Лабораторная работа 4
алгоритм массив функция программирование
CLS
INPUT «Введите количество элементов в массиве n»; n
FOR i = 1 TO n
INPUT a (i)
NEXT i
PRINT «Исходный массив»
FOR i = 1 TO n
PRINT USING «#####.##»; a (i);
NEXT i
imax = 1
FOR i = 1 TO n
IF a (i) >= a (imax) THEN
max = a (i)
imax = i
END IF
NEXT i
a (imax) = a (n)
a (n) = max
PRINT «Массив после перестановки»
FOR i = 1 TO n
PRINT USING «#####.##»; a (i);
NEXT i
PRINT USING «Максимальный элемент #####.## его номер ##»; max; imax;
END