Форум программистов CodeGuru
20 Сентябрь 2018, 15:18:16 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.

Войти
Новости:
 
   Начало   Помощь Войти Регистрация  
Страниц: [1]   Вниз
  Печать  
Автор Тема: Графика Pascal ABC  (Прочитано 21862 раз)
0 Пользователей и 1 Гость смотрят эту тему.
maxon56
Новичок
*
Офлайн Офлайн

Сообщений: 1


Просмотр профиля
« : 07 Июнь 2011, 18:59:05 »

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.

как сделать так,чтобы он левой рукой до стены коснулся?
и если можно чтобы двери лифта закрылись)
Записан
Страниц: [1]   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2015, Simple Machines Valid XHTML 1.0! Valid CSS!