Пришлите скрин работы приведенного кода

29.05.2012, 14:24. **Показов** 799. **Ответов** 2

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

Ребят ,треба! в технаре задали машынку нарисовать в бэсике, вроде набрал в блокноте. Не могли бы вы вставить этот код к себе в програмку и прислать скрин что получилось.

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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
SCREEN 7
LINE (85, 70)-(165, 70)
LINE (165, 70)-(225, 110)
LINE (225, 110)-(55, 110)
LINE (55, 110)-(65, 105)
LINE (65, 100)-(75, 105), 15, B
LINE (65, 105)-(90, 105)
LINE (90, 105)-(90, 110)
LINE (85, 70)-(90, 105), 15, B
LINE (165, 70)-(165, 110)
LINE (165, 105)-(210, 105)
LINE (210, 105)-(165, 75)
LINE (90, 70)-(145, 110), 15, B
LINE (95, 80)-(140, 105), 15, B
LINE (225, 110)-(225, 90)
LINE (225, 90)-(230, 85)
LINE (230, 85)-(240, 85)
LINE (240, 85)-(245, 90)
LINE (245, 90)-(245, 135)
LINE (245, 135)-(240, 140)
LINE (240, 140)-(230, 140)
LINE (230, 140)-(225, 135)
LINE (235, 85)-(235, 140)
LINE (225, 110)-(225, 135)
LINE (215, 130)-(225, 140), 15, B
LINE (225, 135)-(215, 135)
LINE (185, 140)-(195, 150), 15, B
CIRCLE (190, 145), 15, 15
CIRCLE (190, 145), 20, 15
CIRCLE (35, 145), 15, 15
CIRCLE (35, 145), 20, 15
LINE (30, 140)-(40, 150), 15, B
LINE (170, 150)-(55, 150)
LINE (10, 145)-(5, 140)
LINE (5, 130)-(5, 140)
LINE (5, 140)-(5, 115)
LINE (5, 115)-(10, 110)
LINE (10, 110)-(30, 100)
LINE (30, 100)-(40, 100)
LINE (40, 100)-(45, 105)
LINE (45, 105)-(20, 105)
LINE (20, 105)-(25, 100)
LINE (25, 100)-(40, 95)
LINE (40, 95)-(45, 100)
LINE (45, 100)-(45, 105)
LINE (75, 100)-(45, 100)
LINE (85, 70)-(75, 100)
LINE (225, 140)-(215, 145)
LINE (215, 145)-(210, 145)
LINE (215, 145)-(215, 120)
LINE (215, 120)-(210, 115)
LINE (210, 115)-(175, 115)
LINE (175, 115)-(165, 125)
LINE (165, 125)-(160, 145)
LINE (170, 145)-(60, 145)
LINE (60, 145)-(55, 125)
LINE (55, 125)-(50, 120)
LINE (50, 120)-(20, 120)
LINE (20, 120)-(15, 130)
LINE (5, 130)-(15, 140), 15, B
LINE (10, 130)-(10, 120)
LINE (10, 120)-(5, 115)
LINE (10, 125)-(5, 120)
LINE (10, 130)-(5, 125)
LINE (10, 120)-(15, 115)
LINE (15, 115)-(20, 120)
LINE (15, 115)-(55, 115)
LINE (55, 115)-(60, 120)
LINE (60, 120)-(65, 145)
LINE (50, 120)-(55, 115)
LINE (55, 125)-(60, 120)
LINE (55, 110)-(15, 115)
LINE (55, 110)-(65, 120)
LINE (65, 120)-(70, 145)
LINE (65, 120)-(60, 125)
LINE (175, 115)-(170, 110)
LINE (210, 115)-(215, 110)
LINE (215, 120)-(220, 115)
LINE (220, 115)-(215, 110)
LINE (220, 115)-(220, 130)
LINE (170, 110)-(160, 125)
LINE (160, 125)-(155, 145)
LINE (160, 125)-(165, 125)
LINE (215, 130)-(205, 120)
LINE (205, 120)-(175, 120)
LINE (175, 120)-(170, 125)
LINE (170, 125)-(165, 145)
LINE (90, 105)-(85, 105)
LINE (65, 120)-(165, 120)
LINE (68, 135)-(85, 135)
LINE (85, 120)-(85, 135)
LINE (85, 120)-(85, 105)
LINE (85, 135)-(90, 140)
LINE (90, 140)-(135, 140)
LINE (135, 140)-(140, 135)
LINE (140, 135)-(145, 110)
LINE (125, 110)-(140, 115), 15, B
LINE (80, 110)-(90, 115), 15, B
LINE (80, 130)-(90, 135), 15, B
LINE (140, 135)-(158, 135)
LINE (145, 150)-(165, 150)

@softmob · 29.05.2012, 15:51

Сообщение от superstar

Не могли бы вы вставить этот код к себе в програмку и прислать скрин что получилось.

скрин:

@Quiet Snow · 29.05.2012, 18:35

Вот что нарисовано под досом:

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Quiet Snow Кормпилятор 5044 / 1718 / 409 Регистрация: 25.04.2010 Сообщений: 4,827 Записей в блоге: 2
	29.05.2012, 18:35
	Вот что нарисовано под досом: Миниатюры 0