помогите с зачетом (графика)

@di-r13 · Регистрация: 17.11.2008

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

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

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
SCREEN 9
COLOR , 8
LINE (90, 85)-(220, 190), 12, B
LINE (95, 90)-(215, 185), 12, B
LINE (135, 190)-(175, 205), 12, B
PAINT (136, 192), 6, 12
LINE (90, 205)-(220, 210), 12, B
PAINT (91, 208), 6, 12
REM " blok"
LINE (260, 120)-(320, 210), 11, B
LINE (265, 130)-(315, 140), 11, B
LINE (265, 145)-(315, 155), 11, B
CIRCLE (290, 185), 5, 11
CIRCLE (290, 195), 3, 11
REM "klava"
LINE (100, 225)-(250, 260), 11, B
LINE (100, 230)-(250, 230), 11
LINE (100, 235)-(250, 235), 11
LINE (100, 240)-(250, 240), 11
LINE (100, 245)-(250, 245), 11
LINE (100, 250)-(250, 250), 11
LINE (100, 255)-(250, 255), 11
 
LINE (110, 225)-(110, 260), 11
LINE (120, 225)-(120, 260), 11
LINE (130, 225)-(130, 260), 11
LINE (140, 225)-(140, 260), 11
LINE (150, 225)-(150, 260), 11
LINE (160, 225)-(160, 260), 11
LINE (170, 225)-(170, 260), 11
LINE (180, 225)-(180, 260), 11
LINE (190, 225)-(190, 260), 11
LINE (200, 225)-(200, 260), 11
LINE (210, 225)-(210, 260), 11
LINE (220, 225)-(220, 260), 11
LINE (230, 225)-(230, 260), 11
LINE (240, 225)-(240, 260), 11
   REM "mish"
CIRCLE (290, 245), 16, 2, , , 1
CIRCLE (290, 238), 13, 2, 3.14, 6.28
LINE (290, 229)-(290, 245), 2

вот код помогите плз

Vovan-VE · 17.11.2008, 18:50

Жми anykey чтобы выйти.

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
SCREEN 9
COLOR , 8
 
'---- MONITOR ------------------------------
LINE (90, 85)-(220, 190), 12, B
LINE (95, 90)-(215, 185), 12, B
PAINT (97, 92), 1, 12
LINE (135, 190)-(175, 205), 12, B
PAINT (136, 192), 6, 12
LINE (90, 205)-(220, 210), 12, B
PAINT (91, 208), 6, 12
 
'---- BLOK ------------------------------
LINE (260, 120)-(320, 210), 11, B
LINE (265, 130)-(315, 140), 11, B
LINE (265, 145)-(315, 155), 11, B
CIRCLE (290, 185), 5, 11
CIRCLE (290, 195), 3, 11
 
'---- KLAVA ------------------------------
LINE (100, 225)-(250, 260), 11, B
LINE (100, 230)-(250, 230), 11
LINE (100, 235)-(250, 235), 11
LINE (100, 240)-(250, 240), 11
LINE (100, 245)-(250, 245), 11
LINE (100, 250)-(250, 250), 11
LINE (100, 255)-(250, 255), 11
 
LINE (110, 225)-(110, 260), 11
LINE (120, 225)-(120, 260), 11
LINE (130, 225)-(130, 260), 11
LINE (140, 225)-(140, 260), 11
LINE (150, 225)-(150, 260), 11
LINE (160, 225)-(160, 260), 11
LINE (170, 225)-(170, 260), 11
LINE (180, 225)-(180, 260), 11
LINE (190, 225)-(190, 260), 11
LINE (200, 225)-(200, 260), 11
LINE (210, 225)-(210, 260), 11
LINE (220, 225)-(220, 260), 11
LINE (230, 225)-(230, 260), 11
LINE (240, 225)-(240, 260), 11
  
'---- MISH ------------------------------
CIRCLE (290, 245), 16, 2, , , 1
CIRCLE (290, 238), 13, 2, 3.14, 6.28
LINE (290, 229)-(290, 245), 2
 
'---- ANIMATION ------------------------------
red = 0
green = 0
x = 96: y = 91
dx = 1: dy = 1
DO
    PSET (x, y), 1
    x = x + dx
    IF x <= 96 THEN dx = 1 ELSE IF x >= 214 THEN dx = -1
    y = y + dy
    IF y <= 91 THEN dy = 1 ELSE IF y >= 184 THEN dy = -1
    PSET (x, y), 14
 
    IF green < 45 THEN
        LINE (312, 160)-(315, 163), 10, BF
    ELSE
        LINE (312, 160)-(315, 163), 2, BF
    END IF
    green = green + 1
    IF green = 50 THEN green = 0
 
    IF red < 5 THEN
        LINE (312, 165)-(315, 168), 12, BF
    ELSE
        LINE (312, 165)-(315, 168), 4, BF
    END IF
    red = red + 1
    IF red = 10 THEN red = 0
   
    FOR i = 1 TO 100000: NEXT
LOOP WHILE INKEY$ = ""

@di-r13 · 18.11.2008, 03:33 **[ТС]**

спасибо большое, очень выручили, немогли бы вы еще объяснить малость как это сделатть, а то мне объяснять нода будет, плизззззззз

Vovan-VE · 18.11.2008, 18:33

Code
1
2
3
4
5
6
Цикл
    Стираем старый кадр (полностью или частично)
    Изменяем параметры кадра (координаты, цвет и т.п.)
    Рисуем новый кадр с новыми параметрами
    Ждем немного времени, чтобы юзер увидел кадр.
КонецЦикла

@di-r13 · 18.11.2008, 18:36 **[ТС]**

спасибо большое

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@di-r13 0 / 0 / 0 Регистрация: 17.11.2008 Сообщений: 3
	18.11.2008, 03:33 [ТС]
	спасибо большое, очень выручили, немогли бы вы еще объяснить малость как это сделатть, а то мне объяснять нода будет, плизззззззз 0

@di-r13 0 / 0 / 0 Регистрация: 17.11.2008 Сообщений: 3
	18.11.2008, 18:36 [ТС]
	спасибо большое 0