Движущееся изображение в Паскале, Поиск задач Опции

[Cherry]

Прошу помочь найти задачи, отвечающие данным требованиям:
1. Создать движущееся изображение, используя текстовый режим работы монитора.
Изображение должно содержать окна и, возможно, движущуюся надпись.
2. Создать движущееся изображение, используя графический режим работы монитора и модуль Graph. Включить в изображение текст.
Чем больше примеров, тем лучше.Если что-то подобное уже было плиз дайте ссылки.

[Lapp]

помочь найти задачи, отвечающие данным требованиям:

Cherry, что значит "помочь найти"? То есть помочь тебе воспользоваться поиском по Форуму, что ли?.. Ты уж извини, но это ты как-нибудь сама.. Или иди на форум поисковиков

Ничего себе, вопросы пошли на программерском форуме.. Приходи, когда нужно будет помогать программировать!

Вот примерчик по движению в текстовой моде. Накарябал на скорую руку..

{motion in text mode}
{by Lapp for Cherry}

uses CRT;

const
  s='Cherry';

var
  x,y,dx,dy,x1,x2,y1,y2:integer;


function NextPos(var dz:integer; z,z1,z2:integer):integer;
begin
  z:=z+dz;
  if z<z1 then z2:=z1;
  if (z<z1)or(z>z2) then begin
    z:=2*z2-z;
    dz:=-dz
  end;
  NextPos:=z
end;


begin
  dx:=2;
  dy:=1;
  x1:=1;
  y1:=1;
  x2:=80-Length(s);
  y2:=25;
  x:=x1;
  y:=y1;
  repeat
    GoToXY(x,y);
    ClrEoL;
    x:=NextPos(dx,x,x1,x2);
    y:=NextPos(dy,y,y1,y2);
    GoToXY(x,y);
    Write(s);
    Delay(100)
  until KeyPressed;
  while KeyPressed do ReadKey
end.

Delay на разных машинах работает по-разному, так что попробуй менять значения параметра в пределах от 1 до 10000 примерно..