Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.54/501: Рейтинг темы: голосов - 501, средняя оценка - 4.54
Кормпилятор
 Аватар для Quiet Snow
5044 / 1718 / 409
Регистрация: 25.04.2010
Сообщений: 4,827
Записей в блоге: 2

Графика на бейсике

16.08.2010, 02:10. Показов 113523. Ответов 175
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте уважаемые участники форума и администрация!

Уже давно заметил, что "скудновато" в данном разделе по прикреплённым темам, есть предложение закрепить топик, освещая следующие вопросы:

1) Обсуждаем графические приложения, написанные на бейсике(любые MS-DOS компиляторы)
2) Выкладываем разные "поучительные" примеры

Понимаете, область далеко не самая простая, хочется развеить предрассудки о том что бейсик мол "игрушка", отсталый язык, есть же "сильные" программы, использующие разные ухищрения. Короче хочется чтобы было больше дискуссий на эту тему. В рамках форума можно решать самые разнообразные вопросы, от вопросов алгоритмизации до выбора стратегии оптимизации, от простых до сложных.

Что подразумевается под графическими приложениями:
- В первую очередь программы работающие в графическом режиме, с упором на вывод графики.
- Разные рисунки, анимация, эффекты, воспроизводящиеся непосредственно в программе.
- Мультимедиа приложения и игры.
- Обычные программы использующие средства для вывода графики.

Также можно обсуждать и выкладывать какие-либо вспомогательные программы(будь то конвертер или редактор), идеологические аспекты, т.е. допустим один человек предлагает идею - другой реализовывает.

Вообщем если найдутся энтузиасты поддержать топик, буду очень рад. Хочется чтобы в разделе было больше посетителей и чтоб форум не "сдох".
10
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
16.08.2010, 02:10
Ответы с готовыми решениями:

Функция на бейсике
помогите пожалуйста сделать задание) составить функцию на Бейсике для вычисления заданной функции.Составьте программу вводящую с клавиатуры...

Программы на Паскале И Бейсике
Помогите решить: 5.Составить программу, с помощью которой получить цвет¬ной рисунок «Робот». А эту в Бейсике. Заранее спасибо.

Текстовые игры на бейсике
Подскажите, можно ли сделать что-то похожее на тиду или мир теней (или еще что-то от playtox)в среде бейсика? Заранее спасибо. ...

175
68 / 18 / 0
Регистрация: 26.01.2018
Сообщений: 166
11.09.2021, 06:59
Студворк — интернет-сервис помощи студентам


1
68 / 18 / 0
Регистрация: 26.01.2018
Сообщений: 166
11.09.2021, 10:19


1
68 / 18 / 0
Регистрация: 26.01.2018
Сообщений: 166
11.09.2021, 10:59
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
5 SCREEN 12
10 CLS
30 FOR f = 0 TO 1500 STEP 1
40 R = SIN(f * 7)
50 X = R * SIN(f * 1) * 2
60 Y = R * COS(f / 3)
70 LINE -(Y * 220 + 310, 230 - X * 100), 10
80 NEXT f
1
68 / 18 / 0
Регистрация: 26.01.2018
Сообщений: 166
11.09.2021, 11:04
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
5 SCREEN 12
10 CLS
30 FOR f = 0 TO 1500 STEP 1
40 R = SIN(f * 4)
50 X = R * SIN(f * 3) * 2
60 Y = R * COS(f * 3)
70 LINE -(Y * 220 + 320, 240 - X * 110), 10
80 NEXT f
1
68 / 18 / 0
Регистрация: 26.01.2018
Сообщений: 166
11.09.2021, 11:13
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
SCREEN 12: a = 0: d = 50: CLS
1 FOR x = 1 TO 10
FOR y = 1 TO 5
x1 = (x - 6) * COS(a) / SIN(x2 - y1) * 2
y1 = (x - 6) * SIN(a)
x2 = (x - 6) * COS(a)
PSET (290 + x2 * 18 * d / (y1 - d), 240 - (y1 - 1) * 18 * d / (x1 - d)), 15
a$ = INKEY$
IF a$ = " " THEN END
NEXT y
NEXT x
a = a + 3 / 20
GOTO 1
1
68 / 18 / 0
Регистрация: 26.01.2018
Сообщений: 166
11.09.2021, 20:41
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
SCREEN 12
CLS
FOR t = 1 TO 2000 STEP .2
r = (1 + SIN(t)) * (1 - .9 * ABS(SIN(4 * t))) * (.9 - .05 * COS(200 * t))
x = (r * COS(t))
y = (r * SIN(t)) * 1.5
PSET (x * 220 + 320, 390 - y * 120), 10
NEXT t
1
Модератор
1245 / 676 / 292
Регистрация: 10.11.2019
Сообщений: 1,406
21.02.2022, 15:04
Рисунок кентавра в фортрановском стиле.

Маленькая программа и длинный список строк DATA —
это не очень интересно для сегодняшнего дня.
Но эта картинка — историческая, она была прислана
на конкурс машинной графики в журнал «Квант» в 1981 году.

http://kvant.mccme.ru/1981/09/... sunkov.htm

Я не нашёл ни итогов конкурса, ни текста программы,
а только сам рисунок (в книжке).
По нему я с помощью цифрового фотоаппарата
и простого графического редактора на FreeBasic
восстановил исходный текст.
Программа работает на QB/Qbasic и FreeBasic.

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
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
'qbasic
' Add next line for FreeBasic
' OPTION GOSUB
DEFINT A-Z
CONST col = 14
SCREEN 12
TYPE circtype
x AS INTEGER
y AS INTEGER
r AS INTEGER
a AS SINGLE
b AS SINGLE
END TYPE
DIM s AS circtype
FOR v = -1 TO 1: FOR u = -1 TO 1
RESTORE arcs
READ n
FOR i = 1 TO n
READ s.x, s.y, s.r, s.a, s.b
CIRCLE (s.x + u, s.y + v), s.r, col, s.a, s.b
NEXT i
GOSUB lines
NEXT u: NEXT v
' bsave "kentavr.bmp",0
SLEEP
END
 
lines:
'col=rgb(0,255,0)
LINE (130 + u, 404 + v)-(92 + u, 443 + v), col
LINE (92 + u, 443 + v)-(97 + u, 433 + v), col
LINE (92 + u, 443 + v)-(101 + u, 440 + v), col
LINE (99 + u, 410 + v)-(128 + u, 436 + v), col
 
LINE (423 + u, 207 + v)-(526 + u, 248 + v), col
LINE (526 + u, 248 + v)-(512 + u, 234 + v), col
LINE (526 + u, 248 + v)-(507 + u, 248 + v), col
PSET (254 + u, 366 + v), col: GOSUB star
PSET (100 + u, 108 + v), col: GOSUB star
PSET (372 + u, 22 + v), col: GOSUB star
RETURN
star:
LINE -STEP(4, 26), col
LINE -STEP(46, -2), col
LINE -STEP(-48, 18), col
LINE -STEP(-14, 43), col
LINE -STEP(-2, -45), col
LINE -STEP(-14, -2), col
LINE -STEP(14, -8), col
LINE -STEP(14, -28), col
RETURN
 
arcs:
DATA 102
DATA  16,352,200, 0.80, 0.97
DATA  29,288, 80, 0.12, 0.59
DATA  29,176,190, 0.22, 0.37
DATA  56,287,200, 0.22, 0.39
DATA  75,105,200, 5.70, 5.97
DATA  82,380,160, 1.02, 1.57
DATA 110,394, 50, 1.24, 1.57
DATA 122,148, 50, 0.72, 1.29
DATA 125,227,110, 5.92, 6.17
DATA 127, 93, 30, 0.40, 1.67
DATA 132, 87, 40, 0.20, 2.17
DATA 135,361, 20, 4.90, 1.09
DATA 149, 62, 40, 2.90, 4.47
DATA 156,111, 30, 0.70, 1.57
DATA 164,178, 80, 1.02, 1.17
DATA 166,252, 90, 2.80, 3.97
DATA 166,360, 30, 2.50, 3.87
DATA 168,274, 60, 3.20, 4.17
DATA 172,119, 40, 0.50, 1.57
DATA 173,311, 10, 5.20, 1.39
DATA 173,341, 50, 3.24, 3.77
DATA 176,310, 10, 2.10, 4.57
DATA 177,225, 50, 5.52, 6.17
DATA 178,111, 20, 0.00, 1.57
DATA 178,111, 20, 0.00, 1.57
DATA 178,111, 20, 0.00, 1.57
DATA 178,111, 20, 0.00, 1.57
DATA 178,111, 20, 0.00, 1.57
DATA 178,111, 20, 0.00, 1.57
DATA 178,111, 20, 0.00, 1.57
DATA 180,317, 50, 3.24, 3.77
DATA 184,319, 80, 3.12, 3.47
DATA 188,223, 30, 5.22, 6.17
DATA 193,170,120, 3.80, 4.67
DATA 205,139, 50, 2.70, 3.67
DATA 208, 69, 40, 5.50, 6.17
DATA 214,217, 60, 2.70, 2.97
DATA 220, 91, 10, 3.70, 4.97
DATA 222, 72, 10, 1.50, 3.87
DATA 226, 77, 40, 5.20, 5.57
DATA 230, 95, 20, 2.50, 3.67
DATA 232, 94, 10, 3.70, 4.97
DATA 238,104, 20, 5.00, 5.67
DATA 240,101, 20, 5.50, 6.17
DATA 246,146, 20, 0.62, 1.67
DATA 247, 62, 20, 0.80, 3.17
DATA 249, 90, 20, 5.50, 6.17
DATA 252,327,200, 1.60, 1.77
DATA 257,232,100, 3.70, 5.27
DATA 258, 26, 50, 4.50, 4.87
DATA 260,178,100, 3.00, 3.27
DATA 261, 67, 20, 4.40, 4.87
DATA 265, 87, 10, 5.50, 6.17
DATA 267, 55, 10, 5.90, 2.29
DATA 271,164, 30, 0.20, 1.77
DATA 272, 74, 20, 3.80, 4.27
DATA 272, 88, 20, 3.80, 4.27
DATA 273,355, 50, 0.10, 1.27
DATA 276,106, 40, 3.00, 3.67
DATA 277, 75, 10, 3.00, 5.67
DATA 278,148, 80, 2.52, 2.67
DATA 281, 69, 10, 5.40, 1.79
DATA 282,173, 80, 2.60, 4.77
DATA 282, 98, 40, 3.00, 3.47
DATA 285,210,130, 3.10, 3.37
DATA 287,179,120, 5.32, 5.97
DATA 301, 36,140, 4.42, 4.69
DATA 308,187, 30, 0.90, 1.77
DATA 319,160, 30, 3.62, 4.99
DATA 322,239,200, 2.90, 3.07
DATA 337,300, 70, 5.90, 2.39
DATA 338,215,200, 3.50, 3.67
DATA 339,191, 30, 0.70, 2.07
DATA 345,220, 60, 4.82, 0.09
DATA 352,148, 80, 5.70, 0.47
DATA 355,150, 50, 3.92, 4.69
DATA 358,298, 20, 1.62, 5.37
DATA 365,379,120, 0.62, 1.39
DATA 369,258, 60, 0.82, 1.89
DATA 407,194, 20, 4.80, 0.09
DATA 410,244,140, 4.00, 4.87
DATA 415,149, 40, 4.70, 1.47
DATA 424,381,130, 0.32, 1.79
DATA 424, 92, 20, 0.82, 4.57
DATA 441,329, 40, 2.92, 4.79
DATA 448, 23,170, 4.22, 4.57
DATA 457,218,120, 4.22, 4.69
DATA 502,320, 80, 4.10, 4.77
DATA 506,337, 70, 3.62, 4.59
DATA 511,323, 60, 3.42, 4.69
DATA 532,319,120, 3.70, 4.57
DATA 542,449, 20, 5.92, 1.51
DATA 542,449, 20, 5.92, 1.51
DATA 543,361, 40, 3.72, 4.49
DATA 544,382, 50, 3.62, 4.59
DATA 545,410, 10, 5.92, 1.51
DATA 546,413, 40, 3.80, 4.67
DATA 546,210,130, 4.00, 4.67
DATA 552,408, 10, 2.72, 4.59
DATA 552,338, 80, 4.00, 4.67
DATA 558,437, 20, 2.92, 4.79
DATA 562,262,140, 4.50, 4.57
' end of data
Миниатюры
Графика на бейсике  
5
68 / 18 / 0
Регистрация: 26.01.2018
Сообщений: 166
21.05.2022, 18:22

2
 Аватар для yevrowl
306 / 77 / 6
Регистрация: 27.04.2022
Сообщений: 243
01.09.2022, 00:58
В институте курсовая работа была связана с синтезом производных адамантана, и тогда же склепал статическое изображение с динамической палитрой.

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
RANDOMIZE TIMER
SCREEN 12
LINE (220, 340)-(260, 260), 1
LINE (260, 260)-(260, 180), 2
LINE (260, 180)-(340, 140), 3
LINE (340, 140)-(300, 220), 4
LINE (300, 220)-(300, 300), 5
LINE (300, 300)-(220, 340), 6
LINE (300, 300)-(380, 340), 7
LINE (380, 340)-(420, 260), 8
LINE (420, 260)-(420, 180), 9
LINE (420, 180)-(340, 140), 10
LINE (420, 260)-(340, 300), 11
LINE (340, 300)-(260, 260), 12
DO
    FOR j = 1 TO 12
        nm& = 65536 * CINT(63 * RND(1)) + 256 * CINT(63 * RND(1)) + CINT(63 * RND(1))
        PALETTE j, nm&
    NEXT j
LOOP WHILE INKEY$ = ""
END
Миниатюры
Графика на бейсике  
2
 Аватар для yevrowl
306 / 77 / 6
Регистрация: 27.04.2022
Сообщений: 243
01.09.2022, 01:09
Код вроде бы не мой, хотя за давностью лет, больше XX прошло, не уверен. =)

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
SCREEN 13
INPUT "SPEED=", M
INPUT "RADIUS=", L
CLS
LET C = 32
FOR F = 0 TO 6.283 STEP .01
    K$ = INKEY$: IF K$ = CHR$(27) THEN END
    LET R = 100 * SIN(2 * F)
    LET X = R * COS(F)
    LET Y = R * SIN(F)
    LET C = C + 1
    IF C > 80 THEN C = 30
    LET T1 = 0: LET T2 = 0
    CIRCLE (T1 + X + 160, T2 + Y + 100), L, C
    PAINT (T1 + X + 160, T2 + Y + 100), C
    FOR Z = 0 TO M: NEXT Z
NEXT F
END
Изображения
 
2
 Аватар для yevrowl
306 / 77 / 6
Регистрация: 27.04.2022
Сообщений: 243
05.09.2022, 00:10
Программы во вложении рисуют по заданной стороне мигающий шести-, семи- и восьмиугольник.
Изображения
 
Вложения
Тип файла: 7z ugols.7z (524 байт, 11 просмотров)
1
 Аватар для yevrowl
306 / 77 / 6
Регистрация: 27.04.2022
Сообщений: 243
05.09.2022, 12:04
Переливающееся сердце, код не мой.

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
SCREEN 13
RANDOMIZE TIMER
REM Уpавнение каpдиоиды в поляpных кооpдинатах
REM r = a * (1 - COS(f))
c = 16
DO
FOR f = 0 TO 6.28 STEP .01
x = 60 * (1 - COS(f)) * COS(f)
y = 70 * (1 - COS(f)) * SIN(f)
LINE (160 + y, 30 - x)-(160, 100), c
c = c + .379
IF c > 255 THEN c = 16
NEXT f
LOOP WHILE INKEY$ = ""
Изображения
 
1
 Аватар для yevrowl
306 / 77 / 6
Регистрация: 27.04.2022
Сообщений: 243
05.09.2022, 12:14
И этот код опять не мой:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
SCREEN 13
'Функция вида r = a * COS(n*f)
'Изменение паpаметpа n меняет вид фигуpы
CONST n = 4
 
DO
FOR f = 0 TO 6.28 STEP .01
x = 70 * COS(n * f) * COS(f)
y = 70 * COS(n * f) * SIN(f)
LINE (160 + x, 100 + y)-(160, 100), c, BF
c = c + .5
IF c > 150 THEN c = 25
'-------Задеpжка-------
FOR z = 1 TO 2000: NEXT z
'----------------------
IF INKEY$ <> "" THEN END
NEXT f
LOOP
Изображения
 
1
 Аватар для yevrowl
306 / 77 / 6
Регистрация: 27.04.2022
Сообщений: 243
05.09.2022, 12:25
Спираль, код не мой:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
RANDOMIZE TIMER
CLS
SCREEN 12
c = 1
DO
FOR f = 0 TO 114 STEP .05
x = 2 * f * COS(f): y = 2 * f * SIN(f)
PSET (x + 310, y + 230), c
'-------Задеpжка-------
FOR z = 1 TO 30: NEXT z
'----------------------
NEXT f
c = INT(RND(1) * 14) + 1
LOOP WHILE INKEY$ = ""
Миниатюры
Графика на бейсике  
1
 Аватар для yevrowl
306 / 77 / 6
Регистрация: 27.04.2022
Сообщений: 243
05.09.2022, 12:36
Этот примитивный сфероид возможно и моего изготовления:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
SCREEN 13
FOR f = .04 TO 64 * 6.28 STEP .04
LET c = c + 1
LET r = 3 * (LOG(f)) ^ 2
LET x = r * COS(f)
LET y = r * SIN(f)
LINE (x + 160, y + 100) - (160, 100), c
NEXT
Миниатюры
Графика на бейсике  
1
 Аватар для yevrowl
306 / 77 / 6
Регистрация: 27.04.2022
Сообщений: 243
05.09.2022, 12:42
Переливающийся разными цветами цилиндр, код не мой:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
CLS
DEFINT A-Z
RANDOMIZE TIMER
SCREEN 12
clr = 1
DO
CIRCLE (320, 100), 100, clr, , , 1 / 3
PAINT (320, 100), clr
FOR i = 1 TO 100
CIRCLE STEP(0, 3), 100, clr, 3.14, 6.28, 1 / 3
IF i \ 20 = i / 20 THEN clr = CINT(RND(1) * 15 + 1)
'---------Задеpжка---------
FOR t& = 1 TO 30000: NEXT t&
'--------------------------
IF INKEY$ <> "" THEN END
NEXT i
LOOP
Миниатюры
Графика на бейсике  
1
 Аватар для yevrowl
306 / 77 / 6
Регистрация: 27.04.2022
Сообщений: 243
05.09.2022, 13:50
Три орбиты с анимацией, код не мой:

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
DEFINT A-Z
SCREEN 13
VIEW SCREEN (110, 50)-(210, 150)
 
'Задеpжка, подобpать если необходимо
z1& = 20000
 
'Следующие тpи стpоки задают начальный повоpот окpужностей
b1 = 50: b2 = 25
clr1! = 24: clr2! = 27.5
c2 = 1
 
DO
IF b1 = 0 THEN c1 = 1: clr1! = 31
IF b1 = 50 THEN c1 = -1
IF b2 = 0 THEN c2 = 1: clr2! = 31
IF b2 = 50 THEN c2 = -1
IF b3 = 0 THEN c3 = 1: clr3! = 31
IF b3 = 50 THEN c3 = -1
FOR f! = 0 TO 1.5712 STEP .0982
sx = 50 * COS(f!)
y = b1 * SIN(f!)
up = 24 + CINT((clr1! - 24) * (f! / 1.5712))
dn = 24 + CINT((24 - clr1!) * (f! / 1.5712))
PSET (sx + 160, y + 100), dn
PSET (-sx + 160, y + 100), dn
PSET (sx + 160, -y + 100), up
PSET (-sx + 160, -y + 100), up
dx! = 50 * COS(f!) * .7
dy! = b2 * SIN(f!) * .7
up = 24 + CINT((clr2! - 24) * (f! / 1.5712))
dn = 24 + CINT((24 - clr2!) * (f! / 1.5712))
x = dy! + dx!
y = dx! - dy!
PSET (x + 160, y + 100), up
x = dy! - dx!
y = -dy! - dx!
PSET (x + 160, y + 100), up
x = -dy! - dx!
y = dy! - dx!
PSET (x + 160, y + 100), dn
x = dx! - dy!
y = dy! + dx!
PSET (x + 160, y + 100), dn
x = b3 * SIN(f!)
up = 24 + CINT((clr3! - 24) * (f! / 1.5712))
dn = 24 + CINT((24 - clr3!) * (f! / 1.5712))
PSET (x + 160, sx + 100), dn
PSET (x + 160, -sx + 100), dn
PSET (-x + 160, sx + 100), up
PSET (-x + 160, -sx + 100), up
NEXT f!
b1 = b1 + c1
b2 = b2 + c2
b3 = b3 + c3
clr1! = clr1! - .14
clr2! = clr2! - .14
clr3! = clr3! - .14
FOR z& = 1 TO z1&: NEXT z&
CLS
PALETTE
LOOP WHILE INKEY$ = ""
Изображения
 
1
 Аватар для yevrowl
306 / 77 / 6
Регистрация: 27.04.2022
Сообщений: 243
05.09.2022, 15:24
Quiet Snow, не очень понимаю причину недовольства и оскорблений. Молекулу адамантана рисовал на парах по компьютерной химии, где преподавали Бейсик, 3-4 курс ХТФ КПИ, значит 1998-1999 годы. С тех пор навыки программирования на этом языке программирования остались, походу, на прежнем уровне. Поскольку в профессиональной деятельности вообще без особой надобности.

Цитата Сообщение от Quiet Snow Посмотреть сообщение
никто не догадается по END'у и выравниванию
Вообще моя фирменная фишка LET, но в этом примере упустил. =)
P. S. Код QB64 выравнивает автоматически, когда проверяю работоспособность исходника и делаю скриншот.

Цитата Сообщение от Quiet Snow Посмотреть сообщение
обычная школота и ворьё
И где видишь, что сворован чужой код?

Цитата Сообщение от Quiet Snow Посмотреть сообщение
только на библиотеках чужих.
Автор в документации к библиотеке указал свободное использование, что нарушено?
1
 Аватар для yevrowl
306 / 77 / 6
Регистрация: 27.04.2022
Сообщений: 243
05.09.2022, 17:26
Цитата Сообщение от Quiet Snow Посмотреть сообщение
Не мельтеши. Надо базарить - базарь в личку.
Т. е. обосновать про "ворьё", "вскрылась правда матка" никак не сумел и прячешься обратно в нору? =)
1
 Аватар для yevrowl
306 / 77 / 6
Регистрация: 27.04.2022
Сообщений: 243
05.09.2022, 17:47
Туннель, код опять не мой:

QBasic/QuickBASIC
1
2
3
4
SCREEN 13
FOR i = 1 TO 80
    CIRCLE (i + 10 * LOG(i), i + 10 * LOG(i)), i, i
NEXT
Миниатюры
Графика на бейсике  
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
05.09.2022, 17:47

решение задач на бейсике
прошу, помогите с решением номера 98 и 99

Можно ли на Бейсике писать хак-софт?
Можно ли на Бейсике писать хакерские программы, типа брутфорсов, чекеров, спамеров, грабберов, реггеров и тд.?

составить разветвляющую программу в бейсике при заранее неизвестных значениях параметров
Пожалуйста помогите нубу составить разветвляющую программу в бейсике при заранее неизвестных значениях параметров

Составить программу в бейсике для вычисления значения функции при заданных параметрах
Пожалуйста помогите нубу составить программу в бейсике для вычисления значения функции при заданных параметрах

Третий раз информатику буду сдавать информатику. На языке Бейсике
Дан одномерный массив A из N элементов. Если четвертый элемент массива больше квадратного 6-го элемента, то каждый четвертый элемент...


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

Или воспользуйтесь поиском по форуму:
140
Ответ Создать тему
Новые блоги и статьи
Сезонность и суточность закисления почв
anaschu 04.07.2026
200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .
В чем ценность человеческого опыта в глобальном смысле?
kumehtar 03.07.2026
Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .
интеграция AnyLogic с самописным REST API и переход на Odoo
anaschu 03.07.2026
Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .
Поиск всех путей на ориентированном графе. Linux
dcc0 02.07.2026
Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .
Сам себя обучал rest api
anaschu 02.07.2026
Педагогический лайфхак: Почему чистый REST API для ученика намного круче, чем готовые библиотеки Когда мы отказались от капризного JAR-файла AnyLogic и переписали код на стандартный HttpClient,. . .
rest api anylogic - выполнение модели на своём русском сайте
anaschu 02.07.2026
Как подружиться с AnyLogic Cloud API, победить провайдеров и развернуться Java-бэкенд в Docker на бесплатном хостинге: Двухдневный лог борьбы Всем привет! Хочу поделиться свежим (и довольно. . .
Где деньги лежат
kumehtar 02.07.2026
Это - японская подводная лодка I-52 (тип C2, кодовое имя Momi) вышла из Японии в марте 1944 года с миссией в оккупированную немцами Францию (Лорьян). Это была одна из «Янаги»-миссий по обмену. . .
Krabik для WoW 3.3.5a, многоязычный
AmbA 02.07.2026
Допилил бота, думаю что окончательно. Изменения: - добавлена многоязычность - добавлено снятие скриншотов - добавлено поддержание бафов хождения по воде (для жреца, дк и шамана) - и так, по. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru