Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
mamanya
0 / 0 / 0
Регистрация: 13.12.2013
Сообщений: 10
#1

Нарисовать область и точку в графическом режиме

26.12.2013, 15:57. Просмотров 464. Ответов 4
Метки нет (Все метки)

Как нарисовать область определения?

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
CLS
  INPUT "Vvedite X: ", x
  INPUT "Vvedite Y: ", y
SCREEN 12
WINDOW (-32, -24)-(32, 24)
  LINE (-10, 0)-(10, 0), 8
  LINE (0, -10)-(0, 10), 8
  FOR i = -8 TO 8
    LINE (i, -.4)-(i, .4), 8
    LINE (-.4, i)-(.4, i), 8
  NEXT
CIRCLE (0, 0), 4, 15, 3.14159265#, 0#, 1
CIRCLE (0, 0), 2, 15, 3.14159265#, 0#, 1
LINE (2, 0)-(-2, 0), 15
LINE (-4, 0)-(4, 6), 15
LINE (4, 0)-(4, 6), 15
 
 
  Flag = 1
  
  IF SQR(y * y + x * x) <= 2 THEN Flag = 0
  IF SQR(y * y + x * x) >= 4 THEN Flag = 0
  LOCATE 2, 5
  PRINT "Tochka ";
  IF Flag = 1 THEN
    PRINT "popadaet v oblast"
    CIRCLE (x, y), .2, 10
    PAINT (x, y), 10, 10
  ELSE
    PRINT "vne oblasti"
    CIRCLE (x, y), .2, 12
    PAINT (x, y), 12, 12
  END IF
0
Изображения
 
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.12.2013, 15:57
Ответы с готовыми решениями:

Нарисовать область и точку в графическом режиме
1.Написать программу на языке QBasic, в которой определяется принадлежность...

Нарисовать область и точку в графическом режиме
Задачка 5: Написать программу на языке QBasiс, в которой определяется...

Нарисовать точку, которая движется и отскакивает от границ экрана
Помогите пожалуйста доделать задачку. На экране появляется точка, которая...

Написать программу, которая выводит на экран точку в графическом режиме
Написать программу, которая выводит на экран точку в графическом режиме,...

Нарисовать треугольник не в графическом режиме
здравствуйте)) я новичок:-[ помогите пожалуйста нарисовать прямоугольный...

4
vodav
561 / 131 / 36
Регистрация: 12.03.2012
Сообщений: 377
26.12.2013, 17:13 #2
Не совсем понял, это вроде как закрасить?
0
mamanya
0 / 0 / 0
Регистрация: 13.12.2013
Сообщений: 10
26.12.2013, 22:17  [ТС] #3
Цитата Сообщение от vodav Посмотреть сообщение
Не совсем понял, это вроде как закрасить?
Нужно написать программу на языке QBasic, в которой определяется принадлежность введенных координат точки, определенной области. Фигуру нарисовала, а вот принадлежность введённых координат точки не могу победить
0
dr_Morro
182 / 102 / 29
Регистрация: 05.08.2013
Сообщений: 456
27.12.2013, 12:25 #4
Если фигура закрашена, то можно просто по координатам проверить цвет пикселя. Если совпадает с нужным, то принадлежит.
0
Апострофф
Заблокирован
27.12.2013, 14:15 #5
Как-то так, наверно
QBasic/QuickBASIC
1
2
3
4
5
IF(x<=4)AND(y<=(3/4*x+3))AND((x*x+y*y)<=16)AND(((x*x+y*y)>=4) OR y>=0)THEN 
 PRINT "принадлежит"
ELSE
 PRINT "не принадлежит"
END IF
2
27.12.2013, 14:15
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.12.2013, 14:15

Нарисовать узор в графическом режиме
Здравствуйте! Нужно написать программу в графическом режиме, которая выводит...

Нарисовать пирамиду в графическом режиме
Нарисовать с помощью графического режима пирамиду :) Используя tasm. заранее...

Нарисовать флаг Канады в графическом режиме
нарисовать флаг канады в графическом режиме


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru