Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Лабораторный практикум по QBasic.doc
Скачиваний:
4
Добавлен:
29.04.2019
Размер:
5.12 Mб
Скачать

Зразок виконання завдання

Побудувати графіки функції в полярних координатах:

R =1 + 2 * COS(Z),

R=SIN(7*Z)

Програма

BEGIN1:

CLS

' Графіки в полярних координатах

COLOR 14, 3

LOCATE 4, 20

PRINT "Графіки в полярних координатах "

PRINT: PRINT "1. R=1+2*COS(Z) – слимак Паскаля"

PRINT: PRINT "2. R=SIN(7*Z) - семипелюсткова роза"

PRINT: PRINT "Вкажіть номер рівняння"

INPUT N

DEF fna (Z)

IF N = 1 THEN fna = 1 + 2 * COS(Z)

IF N = 2 THEN fna = SIN(7 * Z)

END DEF

PRINT: PRINT "Для стандартного PSET A=1, B=1"

PRINT "Введіть значення A": INPUT A

PRINT "Введіть значення B": INPUT B

PRINT

PRINT "Введіть масштабний коефіцієнт для зменшення чи збільшення"

PRINT "розміру графіка (ціле додатне число >40)"

INPUT Q

CLS

'Побудова графіків

SCREEN 9

COLOR 1, 7

PI = 3.14

FOR Z = 0 TO 2 * PI STEP .001

PSET (300 + Q * (fna(Z) * COS(A * Z)), 150 + Q * fna(Z) * SIN(B * Z))

NEXT Z

'Закінчення та повтор виконання програми

LOCATE 1, 2

PRINT "Якщо треба повторити виконання програми натисніть (Y), інакше - (N)"

BEGIN2:

G$ = INKEY$

IF G$ <> LCASE$("Y") AND G$ <> LCASE$("N") THEN GOTO BEGIN2

IF G$ = LCASE$("Y") THEN GOTO BEGIN1

END

Результат виконання програми див. на рис. 16.3. та 16.4.:

Контрольні запитання

  1. Як задаються полярні координати.

  2. Перечисліть функції в полярних координатах.

  3. Як побудувати графік функції в полярних координатах?

Варіанти завдань

Побудувати графік функції в полярній системі координат (R, Z):

№ варіанту

Формула

Вигляд кривої

R=1

коло

R = 2 cos Z

коло

R=1+SIN(2*Z)

двопелюсткова троянда

R = 10 sin 3Z

трьохпелюсткова троянда

R=SIN(2*Z)

чотирьохпелюсткова троянда

R=SIN(7*Z)

семипелюсткова троянда

R=1+2*COS(Z)

слимак Паскаля

R=1+COS(Z)

кардіоїда

R=Z/4

спіраль

R=1+2*COS(2*Z)

петельне зчеплення

R = Z/2

спіраль Архимеда

R = ez

логарифмічна спіраль

R =

гиперболічна спіраль

R = 1/ sin Z

пряма лінія

R = sec2

парабола

R = a2 cos 2Z (a>0)

Лемніската Бернуллі

Лабораторна робота № 17

Графічні можливості мови QBASIC

Мета роботи – оволодіння машинною графікою QBASIC для побудови малюнків та практичними навичками по використанню графічних засобів.

Теоретична частина