Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.06.2011, 18:46   #1
maxon56
 
Регистрация: 24.04.2011
Сообщений: 5
Сообщение как сделать так,чтобы он левой рукой до стены коснулся? и если можно чтобы двери лифта закрылись

Код:
uses
  crt,
  GraphABC;
 
begin
  
  var x: integer;
  begin
    for x := 1 to 305 do
    begin
      
      clearwindow;
      rectangle(300, 300, 375, 430);
      circle(x + 50, 350, 17);
      line(x + 50, 367, x + 35, 390);
      line(x + 50, 367, x + 65, 390);
      line(x + 50, 367, x + 50, 407);
      line(x + 50, 407, x + 35, 425);
      line(x + 50, 407, x + 65, 425);
      circle(x + 43, 343, 3);
      circle(x + 55, 343, 3);
      line(x + 45, 355, x + 55, 355);
      delay(20);
    end;
    
    
  end;
  
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

Последний раз редактировалось Serge_Bliznykov; 07.06.2011 в 23:58.
maxon56 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
!!! Можно ли сделать так,чтобы программа в Delphi работала с самим компьютером?!!! kotaina Общие вопросы Delphi 19 07.04.2011 13:40
Как сделать так чтобы ... Ромка-12 Помощь студентам 2 16.09.2010 05:52
Как можно самому сделать так, чтобы программы грузились с диска, до загрузки ОС? Лукманов Александр Софт 1 18.04.2009 12:14
Как сделать так, чтобы форму можно было тостать не только за заголовок? Никки Общие вопросы Delphi 1 04.09.2008 14:34
Подскажите, как сделать так, чтобы тест можно было повторно пройти не перезагружая пр Kamikadze_666 Помощь студентам 2 23.05.2007 02:48