2 / 2 / 2
Регистрация: 28.10.2013
Сообщений: 76
1

Синтез динамического изображения в графическом режиме

25.01.2014, 17:35. Показов 571. Ответов 1
Метки нет (Все метки)

Привет, форумчане!
Дано задание:
>Создать программу, реализующую средствами графики языка программирования TurboPascal следующее динамическое изображение, базирующееся на задании предыдущей лабораторной работы: лестница перемещается справа налево, а утолщенная нижняя перекладина - за это же время - вверх.
Лестница создана, в принципе, но как сделать, чтобы она двигалась не снизу вверх, а слева направо?
Почему при перемещении после последней ступеньки лестница не отображается?(скрин)
Pascal
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
{Made by SiD}
program DSBM;
uses graph, crt;
var dr, md: integer;
    i, x, y: byte;
    p:pointer;
    size:word;
begin
clrscr;
x:=succ(0);
y:=succ(0);
window(x, y, x+20, y+20);
clrscr;
gotoxy(6,2);
dr:=0;
md:=0;
initgraph(dr, md, '');
 
setcolor(15);
line(50,0,50,450);
line(100,0,100,450);
line(50,50,100,50);
line(50,100,100,100);
line(50,150,100,150);
line(50,200,100,200);
line(50,250,100,250);
line(50,300,100,300);
line(50,350,100,350);
line(50,400,100,400);
 
 size:=imagesize(50,0,100,400);
 getmem(p, size);
 getimage(50,0,100,400,p^);
  for i:=50 to 80 do
   begin
    delay(300);
    putimage(50,i,p^,0);
   end;
 
readkey;
end.
Заранее спасибо.
Миниатюры
Синтез динамического изображения в графическом режиме  
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.01.2014, 17:35
Ответы с готовыми решениями:

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

Написать процедуру изображения мишени из N концентрических окружностей в графическом режиме
17.Написать процедуру изображения мишени из N концентрических окружностей в графическом режиме....

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

Меню в графическом режиме
Дайте кто-нибудь пожалуйста текст какой-нибудь зачётной менюшки на n-ое количество пунктов!Буду...

1
2 / 2 / 2
Регистрация: 28.10.2013
Сообщений: 76
25.01.2014, 18:59  [ТС] 2
Цитата Сообщение от DSBM Посмотреть сообщение
Почему при перемещении после последней ступеньки лестница не отображается?(скрин)
Решил проблему.
Pascal
1
2
3
4
5
6
7
8
 size:=imagesize(50,0,100,450);
 getmem(p, size);
 getimage(50,0,100,450,p^);
  for i:=1 to 20 do
   begin
    delay(300);
    putimage(150,i,p^,0);
   end;
Добавлено через 1 час 18 минут
Цитата Сообщение от DSBM Посмотреть сообщение
Лестница создана, в принципе, но как сделать, чтобы она двигалась не снизу вверх, а слева направо?
Тема закрыта
Pascal
1
2
3
4
5
6
for i:=1 to 20 do
begin
ClearDevice;
putimage(50+i,10,p^,0);
delay(300);
end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.01.2014, 18:59
Помогаю со студенческими работами здесь

Работа в графическом режиме
1)Дополнить программу, реализованную в ходе предыдущей лабораторной работы, режимом визуализации....

Вивод в графическом режиме
:help: Подскажите пожалуйста как вивести массив в графичечком режиме, бо кроме outtext() для...

Календарик у графическом режиме
Нужно написать програмку на С которая будет выводить календарик у графическом режиме Добавлено...

Функции в графическом режиме
Составить график функций e^(-x) и sin x в графическом режиме. помогите пожалуйста....


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru