Динамическая графика

@o_serobaba · Регистрация: 09.07.2013

Студворк — интернет-сервис помощи студентам

ПОМОГИТЕ ПОЖАЛУЙСТА СДЕЛАТЬ 7(чуть сдвинулась на рисунке,они все от линии в полукруге отходят),8,9,10 ЛИНИИ

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
x$=INPUT(1)
CLS
LINE (48,160)-(160,160)
LINE (160,160)-(160,271)
LINE (160,271)-(48,271)
LINE (48,271)-(48,160)   "квадрат"
 
CIRCLE (100,215),7,8   "круг в квадрате"
PAINT (99,214),8
 
LINE(473,241)-(473,190)  "линия в полукруге"
 
CIRCLE(464,215),70,1,3.5,2.97   "полукруг"
 
 
FOR x=100 TO 473    "первая линия"
PSET (x,215)
FOR y=0 TO 1000000
NEXT
NEXT
 
FOR x=100 TO 473 "вторая линия"
PSET (x,235)
FOR y=0 TO 1000000
NEXT
NEXT
 
FOR x=100 TO 473 "третья линия"
PSET (x,197)
FOR y=0 TO 1000000
NEXT
NEXT
 
 
FOR x=473 TO 552  "четвертая линия"
PSET (x,197)
FOR y=0 TO 1000000
NEXT
NEXT
 
FOR x=473 TO 557   "пятая линия"
PSET (x,215)
FOR y=0 TO 1000000
NEXT
NEXT
 
FOR x=473 TO 554  "шестая линия"
PSET (x,235)
FOR y=0 TO 1000000
NEXT
NEXT

@gehh · 05.06.2014, 11:04

Вот код, решающий вашу задачу
Я постарался не менять вашу программу, чтобы вы ее могли понять
1) линии: те две линии, которые вы рисовали параллельно, на самом
деле наклонные. Посмотрите код и вы хорошо поймете как делается
уклон. Что касается вашей 7-мой линии, то вы не учли абсциссу своей
вертикальной линии, отсюда и расхождение. Я добавил в ваш код
линии других цветов. Если вам нужен будет иной цвет, то вы его легко
поменяете. Желаю вам в программе делать отступы, она будет лучше
восприниматься (читаться)
(программа проверена)

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
DEFSNG X-Z
SCREEN 12
 
CLS
LINE (48, 160)-(160, 160)
LINE (160, 160)-(160, 271)
LINE (160, 271)-(48, 271)
LINE (48, 271)-(48, 160)'"квадрат"
 
CIRCLE (100, 215), 7, 8'"круг в квадрате"
 
LINE (473, 241)-(473, 190)'"линия в полукруге"
 
CIRCLE (464, 215), 70, 13, 3.5, 2.78    '  "полукруг"
 
 
FOR x = 100 TO 473  '"первая линия"
   PSET (x, 215), 14
   FOR y = 0 TO 10000: NEXT y
NEXT x
 
FOR x = 100 TO 473      '"вторая линия"
   PSET (x, 215 + 25 / 373 * (x - 100)), 15
   FOR y = 0 TO 10000: NEXT y
NEXT x
 
FOR x = 100 TO 473'"третья линия"
   PSET (x, 215 - 25 / 373 * (x - 100)), 15
   FOR y = 0 TO 10000: NEXT y
NEXT x
 
 
FOR x = 473 TO 523'"четвертая линия"
   PSET (x, 215 - 25 / 373 * (x - 100)), 15
   FOR y = 0 TO 10000: NEXT y
NEXT x
 
FOR x = 473 TO 530 '"пятая линия"
   PSET (x, 215), 14
   FOR y = 0 TO 10000: NEXT y
NEXT
 
FOR x = 473 TO 523'"шестая линия"
   PSET (x, 215 + 25 / 373 * (x - 100)), 15
   FOR y = 0 TO 10000: NEXT y
NEXT x
 
FOR y = 190 TO 145 STEP -1
   PSET (473, y), 11
   FOR x = 0 TO 10000: NEXT x
NEXT y
 
FOR y = 241 TO 285
   PSET (473, y), 11
   FOR x = 0 TO 10000: NEXT x
NEXT y
 
FOR y = 241 TO 280
   PSET (473 - (y - 241) / 2, y), 10
   FOR z = 0 TO 10000: NEXT z
NEXT y
 
FOR y = 241 TO 280
   PSET (473 + (y - 241) / 2, y), 10
   FOR z = 0 TO 10000: NEXT z
NEXT y
 
END

Удачи вам!

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .