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.

 >  > Запись оставлена nik 18.04.2026 в 05:57 Получить справку

Запись оставлена nik 18.04.2026 в 05:57
запустить | скачать | новая запись

  1. uses Graph;
  2.  
  3. var
  4.   T: array[1..31] of Integer;
  5.   gd, gm, i: Integer;
  6.   x, y, xNext, yNext: Integer;
  7.   zeroY: Integer;
  8.  
  9. begin
  10.   { 1. Заполняем массив данными вручную или случайно }
  11.   Randomize;
  12.   for i := 1 to 31 do
  13.     T[i] := Random(31) - 15; { Диапазон от -15 до +15 }
  14.  
  15.   { 2. Инициализация графики }
  16.   gd := Detect;
  17.   { Если путь к драйверам (BGI) другой, укажи его в кавычках, например 'C:\BP\BGI' }
  18.   InitGraph(gd, gm, '');
  19.  
  20.   if GraphResult <> grOk then
  21.   begin
  22.     WriteLn('Графическая ошибка!');
  23.     Halt(1);
  24.   end;
  25.  
  26.   { 3. Рисуем }
  27.   zeroY := 240; { Константа для центра экрана 640x480 }
  28.  
  29.   { Рисуем ось X }
  30.   SetColor(White);
  31.   Line(0, zeroY, 640, zeroY);
  32.   OutTextXY(10, zeroY + 10, '0 Gradusov');
  33.  
  34.   for i := 1 to 30 do
  35.   begin
  36.     { Вычисляем координаты }
  37.     x := i * 15 + 20;
  38.     xNext := (i + 1) * 15 + 20;
  39.     y := zeroY - (T[i] * 10);
  40.     yNext := zeroY - (T[i+1] * 10);
  41.  
  42.     { Выбор цвета: выше 0 - красный (4), ниже - синий (1) }
  43.     if T[i] >= 0 then
  44.       SetColor(LightRed)
  45.     else
  46.       SetColor(LightBlue);
  47.  
  48.     { Рисуем линию графика }
  49.     Line(x, y, xNext, yNext);
  50.    
  51.     { Маленький кружок в точке }
  52.     Circle(x, y, 1);
  53.   end;
  54.  
  55.   ReadLn;
  56.   CloseGraph;
  57. end.

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

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


картинка


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