Введение в программирование. Pascal и Delphi. Гурьянов Л.В - 97 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

96
setcolor(RED); { цвет ядра – красный }
for i:= 1 to 10 do { ядро – 10 окружностей с координатами }
circle(20, 30, i); { центра 20, 30 и радиусом, равным i }
GetImage(9, 20, 30, 40, P^);{запоминаем "ядро" по адресу Р }
readln;
ClearDevice; { очищаем экран }
For i:= 1 to 120 begin { ядро "летит" }
PutImage (10+i, 10, P^, NormalPut);{восстанавливаем
изображение ядра
на "новом месте" }
delay(100); { задержка, чтобы посмотреть }
end;
readln;
FreeMem(P, size); { освобождаем память }
end
else
writeln('Нет памяти');
CloseGraph; { "закрытие" графического режима }
end
else
writeln('Ошибка инициализации графики:',
GraphErrMsg(errCode));
end.
6.3. Применение динамических структур
для организации списков
Списком называется упорядоченная динамическая структура
данных, каждый элемент которой содержит данные и ссылку, связы-
вающую его со следующим элементом (рисунок 6.2). 
     setcolor(RED); { цвет ядра – красный                          }
     for i:= 1 to 10 do { ядро – 10 окружностей с координатами     }
     circle(20, 30, i); { центра 20, 30 и радиусом, равным i       }
    GetImage(9, 20, 30, 40, P^);{запоминаем "ядро" по адресу Р }
     readln;
    ClearDevice;        { очищаем экран                            }
    For i:= 1 to 120 begin { ядро "летит"                          }
      PutImage (10+i, 10, P^, NormalPut);{восстанавливаем
                                           изображение ядра
                                            на "новом месте" }
       delay(100);      { задержка, чтобы посмотреть               }
    end;
    readln;
    FreeMem(P, size); { освобождаем память                         }
   end
   else
      writeln('Нет памяти');
   CloseGraph;           { "закрытие" графического режима          }
   end
   else
   writeln('Ошибка инициализации графики:',
   GraphErrMsg(errCode));
  end.

  6.3. Применение динамических структур
        для организации списков
   Списком называется упорядоченная динамическая структура
данных, каждый элемент которой содержит данные и ссылку, связы-
вающую его со следующим элементом (рисунок 6.2).




                               96

Страницы