Первые программы на Qbasic
Министерство
образования и науки
Росийской
Федирации
ФГАОУ
ВПО «Уральский Федеральный университет имени первого Президента россии Б.Н.
Ельцина»
Кафедра
интелектуальных информационных технологий
Дисциплина
«Информатика»
ЛАБОРАТОРНАЯ
РАБОТА №1
Вариант
9
«Первые
программы на Qbasic»
Студент
Д.А. Русинов
Группа
Мт-110602
Преподаватель
Д.В. Опарин
Екатеринбург
2011г.
Цель работы: первоначальное знакомство с работой
программ, написанных на языке Qbasic.
Задание
Ознакомиться с работой программ, написнных на
языке Qbasic. На основе программы, рисующей российский флаг, создать программу,
позволяющую получить изображение флага Норвегии.
Алгоритм:
Лабораторная работа 1
Флаг Норвегии
: SCREEN 123, 4: PRINT "Флаг Норвегии"
Красная полоса(80, 100)-(550, 370), 4, BF
синие полосы(80, 210)-(550, 260), 1, BF(220,
100)-(270, 370), 1, BF
Результат работы программы
В результате работы программы на экране
получается изображение флага Норвегии.
Цель работы: освоение порядка работы в среде
системы программирования QBasic, овладение практическими навыками разработки и
программирования вычислительного процесса линейной и разветвляющейся структур.
Задание
Набрать программу вычисления площади
треугольника s по формуле Герона
Алгоритм:
Нет Да
Лабораторная работа 2
CLS
5 : INPUT "Введите сторону треугольника
a"; a "Введите сторону треугольника 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"Неверный ввод данных, повторите заново"5IF= (a +
b + c) / 2= SQR(p * (p - a) * (p - b) * (p - c))USING "Площадь
треугольника #####.##"; s
Цель работы: овладение практическими навыками
разработки и программирования вычислительного процесса разветвляющейся и
циклической структур.
Задание
Протабулировать функцию в соответствии с
вариантом задания путем многократного вычисления ее значения при изменении
аргумента в заданном диапазоне с заданным шагом (параметры, диапазон (начальное
и конечное значения) и шаг изменения аргумента ввести с клавиатуры).
Использовать один из трех операторов цикла for - next, while - wend, do - loop
(по ука-занию преподавателя). Проверить правильность работы программы, протестировав
все три ветви алгоритма. Организовать вывод значений аргумента и вычисленных
значений функции в виде таблицы.
Алгоритм:
да
да
Лабораторная работа 3
CLS"Введите а"; a" Введите
начальное значение х"; x1" Введите конечное значение ч";
x2" Введите шаг"; x3"Таблица функции Y(X)"" X Y
"= x1WHILE x < x2 + x3 / 2x < .85 THEN= (SIN((ABS(a * x)) ^ (1 /
2))) ^ 2IFx >= .85 AND x <= 1.15 THEN= a + 1IFx > 1.15 THEN= LOG(x +
1)IFUSING "####.## ####.####"; x; y= x + x3
Цель работы: овладение практическими навыками
работы с одномерными массивами, изучение особенностей их ввода и вывода,
приобретение навыков по организации программ циклической структуры с
использованием типовых алгоритмов вычислений.
Задание
Обработать на компьютере одномерный массив в
соответствии с вариантом задания. Размер исходного массива n и его элементы
ввести с клавиатуры. Вывести на экран монитора исходный массив и все результаты
с наименованиями выводимых величин. Проверить правильность работы программы с
помощью тестового варианта.
Алгоритм:
Лабораторная работа 4
алгоритм массив функция
программирование
CLS"Введите количество элементов в массиве
n"; ni = 1 TO na(i)i"Исходный массив"i = 1 TO nUSING
"#####.##"; a(i);i= 1i = 1 TO na(i) >= a(imax) THEN= a(i)=
iIFi(imax) = a(n)(n) = max"Массив после перестановки"i = 1 TO nUSING
"#####.##"; a(i);iUSING "Максимальный элемент #####.## его номер
##"; max; imax;