Страница 1 из 1
графика в паскале
Добавлено: 12 дек 2009, 19:18
hohotushka
Пожалуйста,очень прошу,помогите решить эту задачу

(((
а то я дуб дубом. Времени разобраться нет,так как задачу срочно нужно сдать.
В окне заданного размера организовать вывод двух символов,"перепрыгивающих" друг друга и двигающихся по вертикали.
Заране,большое пребольшое спасибо!!!
Re: графика в паскале
Добавлено: 14 дек 2009, 03:51
dr.Jekill
Опишите более последовательно и детально порядок движения символов.
Re: графика в паскале
Добавлено: 14 дек 2009, 17:36
hohotushka
dr.Jekill писал(а):Опишите более последовательно и детально порядок движения символов.
что-то типа этого,но они должны быть в рамке и перепрыгивать
2
3
2
3
2
3
2
3
Re: графика в паскале
Добавлено: 15 дек 2009, 09:23
Хыиуду
[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]
Re: графика в паскале
Добавлено: 15 дек 2009, 17:12
hohotushka
Большое Вам человеческое спасибо!!!!!!!!!!!!!!!!!!!!!!!

Re: графика в паскале
Добавлено: 16 дек 2009, 10:36
Хыиуду
Для "спасибо" есть кнопка "Спасибо" справа от сообщения. Может иметь вид весов.