Графическое окно не обновляется - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Есть массив из 100 точек, все инициализируются, затем рисуются. Если после рисования каждой точки добавить readkey, все ок, но если не убрать, то рисуется только 2 точки. Вероятно, окно не обновляется или что-то типа этого. Подскажите пожалуйста, как это исправить?
uses crt, graph;
 
type
  TPoint = object
    x, y, color: word;
    constructor Init;
    procedure Draw;
  end;
 
//-------------------------------------------
constructor TPoint.Init;
begin
  randomize;
  x := random(getmaxX);
  y := random(getmaxY);
  color := random(15) + 1;
end;
//-------------------------------------------
procedure TPoint.Draw;
begin
  putPixel(x, y, color);
end;
//-------------------------------------------
 
const
  n = 100;
var
  gd, gm, i: integer;
  a: array [1..n] of TPoint;
 
begin
  gd := vga;
  gm := vgahi;
  initgraph(gd, gm, '');
 
  for i := 1 to n do
  begin
    a[i].Init;
    a[i].Draw;
  end;
 
  readkey;
  closeGraph;
end.

Решение задачи: «Графическое окно не обновляется»

textual
Листинг программы
  writeln(f, 'x = ', x:4, ' y = ', y:4, ' color = ', color);

Объяснение кода листинга программы

  1. Программа использует функцию writeln, чтобы вывести информацию на консоль.
  2. В качестве источника вывода используется файл с идентификатором f.
  3. Выводимая информация включает следующие переменные:
    • x с значением 4 (значение переменной x равно 4).
    • y с значением 4 (значение переменной y равно 4).
    • color с значением, не указанным в коде (значение переменной color не определено).
  4. Значения переменных x и y выводятся с точностью до 4 знаков после запятой.
  5. Значения переменных выводятся в формате строки, включающей пробелы для улучшения читаемости.
  6. В результате выполнения программы будет выведено сообщение: x = 4 y = 4 color = (без кавычек).
  7. Значение переменной color не определено, поэтому будет выведено пустое строковое значение.
  8. Если вам нужно указать конкретное значение для переменной color, вы должны добавить соответствующую строку кода, устанавливающую это значение.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 3.867 из 5
Похожие ответы