графика в паскале

Ответить
hohotushka
Сообщения: 7
Зарегистрирован: 12 дек 2009, 18:41

Пожалуйста,очень прошу,помогите решить эту задачу :( (((
а то я дуб дубом. Времени разобраться нет,так как задачу срочно нужно сдать.
В окне заданного размера организовать вывод двух символов,"перепрыгивающих" друг друга и двигающихся по вертикали.
Заране,большое пребольшое спасибо!!!
dr.Jekill
Сообщения: 526
Зарегистрирован: 03 янв 2009, 23:17
Откуда: Voronezh
Контактная информация:

Опишите более последовательно и детально порядок движения символов.
Нет религии выше истины
hohotushka
Сообщения: 7
Зарегистрирован: 12 дек 2009, 18:41

dr.Jekill писал(а):Опишите более последовательно и детально порядок движения символов.
что-то типа этого,но они должны быть в рамке и перепрыгивать
2
3
2
3
2
3
2
3
Хыиуду
Сообщения: 2442
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

[syntax=Delphi]
c:='2';
for i:=0 to 10 do
begin
setcolor(black);
bar(0,10*(i-2),10,10*(i-1)); // Затереть предпредыдущий символ
setcolor(red);
rect(0,10*i, 10, 10*(i+1)); // сделать рамку
outtextxy(0,10*i, c); // Выводим символ
if c='2' then c:='3' else c:='2'; // меняем символ для вывода на следующем шаге
readln; // Ждем нажатия энтер
end;
[/syntax]
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
hohotushka
Сообщения: 7
Зарегистрирован: 12 дек 2009, 18:41

Большое Вам человеческое спасибо!!!!!!!!!!!!!!!!!!!!!!! :D
Хыиуду
Сообщения: 2442
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

Для "спасибо" есть кнопка "Спасибо" справа от сообщения. Может иметь вид весов.
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Ответить