Движение табличек со словами, модуль graph Опции

[Провинциалка]

Здравствуйте ребята! Мне очень нужна помощь в написании данной программы в Паскаль. Помогите , пожалуйста, кто может.
Построить движущиеся изображения двух прямоугольников и круга, на которых помещены слова из фразы «КТО СКАЗАЛ МЯУ?»

[Провинциалка]

Здравствуйте уважаемые!
Я очень внимательно прочитала все ваши отзывы и пожелания. Премного благодарна! Да…мне есть над чем поработать, а то уж очень не хочется быть похожей на Маугли. Как я уже говорила, буду очень стараться , все ночи – мои! (Днём дети отвлекают)
Я оказывается сильно отстала от жизни – даже не знала, что существует еще и FP, весящий 32 мБ. (Меня просто распирает от нетерпения поскорее узнать чем он лучше обычного TurboPascal). Думаю скорости 1мБит/сек мне хватит.
А по поводу вашего проживания в США – вы меня просто убили. Очень впечатляет. Сочувствую. Надеюсь вы там по своей воле оказались.
До свидания.

[Lapp]

Здравствуйте, мисс Ольга!

уж очень не хочется быть похожей на Маугли.

Ну, почему же? В чем-то он не так уж и плох, мне кажется.. У него тоже наверняка есть, чему поучиться. Просто еда вилкой - не его конек )). Я не думал, что этот образ окажется для вас таким отталкивающим..

буду очень стараться , все ночи – мои! (Днём дети отвлекают)

Гм. Но спать все же надо..
Ваше желание стараться очень обнадеживает (лишь бы не впустую..) Дети? Ну, вот подучите предмет - и сделаете для них игрушку. Будут меньше отвлекать )).

Тут я еще, возможно, должен исправиться.. Может, мне надо сменить обращение на Mrs.? Или, лучше просто Ольга? Прошу прощения, _тут_ к студентам и школьникам принято обращаться официально: мисс, мистер, сэр.. На форуме же я обычно "тыкаю" по свойски. Но вы задали несколько необычный тон, и я в растерянности..

Я оказывается сильно отстала от жизни – даже не знала, что существует еще и FP, весящий 32 мБ.

Это не вы, это ваши преподаватели отстали от жизни (и неслабо так).. Размер же я немного округлил - он весит 37.8 МБ на самом деле. Скачивайте версию 2.4.2 для Win32.

(Меня просто распирает от нетерпения поскорее узнать чем он лучше обычного TurboPascal)

Бальзам на измученное сердце форумского админа.. Неужели есть студенты (-тки), которым не все равно, что там есть? И вообще - надо ли кому-то что-то лучшее, чем лапти? ))
Turbo Pascal потерял свою актуальность около 15 лет назад (что в терминах IT-индустрии = вечность). Я не понимаю, как можно до сих пор строить на нем программу обучения. Вот короткий перечень переимуществ FP: 32/64-битность, много/кросс-платформенность, достаточно большое разнообразие библиотек, постоянная обновляемость, бесплатность. Последнее не всегда есть преимущество, ибо бесплатный софт часто плохо обновляется, но тут не тот случай. Вдобавок, можно не краснеть всякий раз (как при старте ТР, который до сих пор платный). Далее, нужно сказать, что в ТР графика не идет на Windows Vista и 7, а на 64-разрядных системах он вовсе не запускается.
Достаточно ли вам этих преимуществ для перехода на FP?

. Думаю скорости 1мБит/сек мне хватит.

Должно.

А по поводу вашего проживания в США – вы меня просто убили. Очень впечатляет. Сочувствую. Надеюсь вы там по своей воле оказались.

Хм.. Сочувствовать мне не надо, мне здесь достаточно хорошо. Безусловно, по своей - как могло быть иначе??

Итак, уважаемая Ольга, давайте перейдем к делу.
Вы хотели "попроще"? Что ж, это разумно. Давайте начнем с самого простого.

Следующая программа двигает одну точку по экрану (слева направо, сверху вниз) - самое простое, что я смог придумать.

{ graphic motion, 02 }

uses
  WinCRT,          // WinCRT для FP, CRT для TP
  Graph;

var
  gd,gm,x,y,i,j: integer;

begin
  gd:=0;                          // задаем автоматическое определение граф.параметров
  InitGraph(gd,gm,'');            // инициализировать графику
  x:=0;                           // задаем начальные координаты точки
  y:=0;
  repeat                          // цикл отрисовки
    PutPixel(x,y,Black);            // стереть точку
    Inc(x);                         // перейти к соседней точке справа
    if x>GetMaxX then begin         // если зашли за край, то ..
      x:=0;                           // .. перейти к началу экрана ..
      Inc(y);                         // .. и на следующую строку
      if y>GetMaxY then y:=0          // если экран закончился, перейти снова вверх
    end;
    PutPixel(x,y,White);            // нарисовать точку в новой позиции
    Delay(100);                     // подождать некоторое время (можно изменять число)
  until KeyPressed;               // выход из цикла отрисовки по нажатии любой клавиши
  while KeyPressed do ReadKey;
  CloseGraph                      // закрываем графику
end.

Я снабдил программу комментариями. Они поясняют, что делает каждый оператор. Но эти комментрарии в стиле языка С. Они очень удобные (все, что после // до конца строки - комментарий). Компилятор FP их понимает, но TP - нет. Это еще один повод переходить на FreePascal. Но если вы все же захотите компилировать этот код с помощью TP, либо переделайте комментарии на исконно паскалевские, {...}, либо просто удалите их.

После того, как вы разберетесь с этой простейшей программой, продвинемся дальше. Завайте теперь двигать (аналогичным образом) некотороый текст. Какие изменения нужно сделать в нашей программе? Заменить вывод/стирание точки (PutPixel, ПутПиксел) на вывод/стирание текста. Я подготовил код со всеми нужными (и не очень) изменениями (помимо описанных выше, я еще поменял скорость движения, разберитесь с этим, пожалуйста).

// graphic motion, 02

uses
  WinCRT,Graph;

var
  gd,gm,x,y,i,j: integer;

begin
  gd:=0;
  InitGraph(gd,gm,'');
  x:=0;
  y:=0;
  repeat
    SetColor(Black);                  // устанавливаем цвет текста (черный)
    OutTextXY(x,y,'Hi!');             // стираем текст (пишем его черным)
    Inc(x,10);                       // увеличиваем позицию x на 10
    if x>GetMaxX then begin
      x:=0;
      Inc(y,50);
      if y>GetMaxY then y:=0
    end;
    SetColor(White);                  // устанавливаем цвет (белый)
    OutTextXY(x,y,'Hi!');             // печатаем текст
    Delay(30);                        // ждем..
  until KeyPressed;
  while KeyPressed do ReadKey;
  CloseGraph
end.

Все вопросы, которые у вас возникнут (даже самые "глупые"), приносите сюда, пожалуйста. Не должно остаться ничего неясного.