Первые программы на Qbasic

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Министерство образования и науки

Росийской Федирации

ФГАОУ ВПО «Уральский Федеральный университет имени первого Президента россии Б.Н. Ельцина»

Кафедра интелектуальных информационных технологий

Дисциплина «Информатика»

ЛАБОРАТОРНАЯ РАБОТА №1

Вариант 9

«Первые программы на Qbasic»

Студент Д.А. Русинов

Группа Мт-110602

Преподаватель Д.В. Опарин

Екатеринбург 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

PRINT

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

PRINT USING "Максимальный элемент #####.## его номер ##"; max; imax;

END

Размещено на Allbest.ru