Форум программистов  
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

Код:

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 вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
!!! Можно ли сделать так,чтобы программа в 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




06:36.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru