pastebin - collaborative debugging

pastebin is a collaborative debugging tool allowing you to share and modify code snippets while chatting on IRC, IM or a message board.

This site is developed to XHTML and CSS2 W3C standards. If you see this paragraph, your browser does not support those standards and you need to upgrade. Visit WaSP for a variety of options.

 >  > Запись оставлена Константин 14.01.2025 в 10:46 Получить справку

Запись оставлена Константин 14.01.2025 в 10:46
запустить | скачать | новая запись

  1. program avto;
  2.  
  3. uses graphABC;
  4.  
  5. var
  6.   i: integer;
  7.  
  8. begin
  9.   SetWindowSize(800, 600);
  10.   SetPenStyle(psClear);
  11.  
  12.   // Рисуем кузов автомобиля
  13.   setBrushColor(ClGreen);
  14.   rectangle(250, 250, 550, 351);
  15.  
  16.   // Рисуем переднюю часть автомобиля
  17.   setBrushColor(ClAqua);
  18.   rectangle(255, 255, 345, 395);
  19.   rectangle(405, 255, 495, 395);
  20.  
  21.   // Рисуем дорогу
  22.   setBrushColor(ClGray);
  23.   rectangle(50, 350, 750, 500);
  24.  
  25.   // Рисуем линии на дороге
  26.   setBrushColor(ClYellow);
  27.   rectangle(749, 375, 764, 400);
  28.  
  29.   setBrushColor(ClRed); // Исправлено: заменено на ClRed
  30.   rectangle(35, 375, 51, 400);
  31.  
  32.   // Рисуем колеса
  33.   setBrushColor(ClLightGray);
  34.   RoundRect(725, 450, 775, 475, 10, 10);
  35.   RoundRect(25, 450, 75, 475, 10, 10);
  36.  
  37.   SetPenStyle(psSolid);
  38.  
  39.   // Рисуем детали автомобиля
  40.   Line(250, 350, 250, 425);
  41.   Line(250, 425, 300, 500);
  42.  
  43.   Line(400, 250, 400, 500);
  44.  
  45.   Line(550, 350, 550, 425);
  46.   Line(550, 425, 500, 500);
  47.  
  48.   // Рисуем колеса
  49.   setBrushColor(ClBlack); // Исправлено: заменено на ClBlack
  50.   Circle(200, 500, 50);
  51.  
  52.   setBrushColor(ClLightGray);
  53.   Circle(200, 500, 25);
  54.  
  55.   setBrushColor(ClBlack); // Исправлено: заменено на ClBlack
  56.   Circle(600, 500, 50);
  57.  
  58.   setBrushColor(ClLightGray);
  59.   Circle(600, 500, 25);
  60. end.

Отправка исправлений и поправок. (cоздать новую запись)
После отправки поправок вы сможете посмотреть различия между старой и новой записью.

Использовать подсветку синтаксиса
В текущей реализации JS-DOS Read/ReadLn работают только при подключенном модуле Crt! Для подсветки отдельных строк используйте для них префикс @@


картинка


Запомнить мои настройки