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.

 >  > Запись оставлена Вячеслав 16.05.2025 в 00:52 Получить справку

Запись оставлена Вячеслав 16.05.2025 в 00:52
запустить | скачать | новая запись

  1. program DrawShape;
  2. uses
  3.   Graph; // Подключаем модуль для работы с графикой
  4.  
  5. var
  6.   gd, gm: Integer;
  7.   userInput: Integer;
  8.  
  9. begin
  10.   // Инициализация графического режима
  11.   gd := Detect;
  12.   InitGraph(gd, gm, '');
  13.  
  14.   // Проверка инициализации графики
  15.   if GraphResult <> grOk then
  16.   begin
  17.     WriteLn('Ошибка инициализации графики!');
  18.     Halt(1);
  19.   end;
  20.  
  21.   // Запрос ввода у пользователя
  22.   Write('Введите число (1 - круг, другое - квадрат): ');
  23.   ReadLn(userInput);
  24.  
  25.   // Очистка экрана
  26.   ClearDevice;
  27.  
  28.   // Рисование фигуры в зависимости от ввода
  29.   if userInput = 1 then
  30.   begin
  31.     // Рисуем круг
  32.     Circle(GetMaxX div 2, GetMaxY div 2, 100);
  33.     OutTextXY(GetMaxX div 2 - 30, GetMaxY div 2 + 120, 'Это круг');
  34.   end
  35.   else
  36.   begin
  37.     // Рисуем квадрат
  38.     Rectangle(GetMaxX div 2 - 100, GetMaxY div 2 - 100,
  39.               GetMaxX div 2 + 100, GetMaxY div 2 + 100);
  40.     OutTextXY(GetMaxX div 2 - 40, GetMaxY div 2 + 120, 'Это квадрат');
  41.   end;
  42.  
  43.   // Ждем нажатия клавиши перед закрытием графики
  44.   ReadLn;
  45.   CloseGraph;
  46. end.

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

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


картинка


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