Практическое занятие №5 Создание информационных моделей для объектов. Вариант 1: Логистическая компания
Для вашей темы создать следующие модели:
Образную модель (визуальная интерпретация, схема или изображение)
Описательная модель (текстовое описание предметной области, 2-3 предложения)
Математическая модель (например, формула рассчета скидки или цены в зависимости от пути, возможно график)
Табличная модель (длины маршрутов, расценки, зависимости)
Модель в виде графа (можно использовать либо сетевой, либо граф в виде дерева)

1) Объект может быть охарактеризован структурой, его состоянием, поведением и индивидуальностью. Состояние объекта определяется перечнем всех возможных (обычно статических) свойств и текущими значениями (обычно динамическими) каждого из этих свойств. Свойства объекта характеризуются значениями его параметров. Поведение объекта описывает, как объект воздействует на другие объекты или как он подвергается воздействию со стороны других объектов с точки зрения изменения его собственного состояния и состояния других объектов. Говорят также, что поведение объекта определяется его действиями. Определенное воздействие одного объекта на другой с целью вызвать соответствующую реакцию называют операцией. В объектно-ориентированных языках программирования операции называют методами.
2) При выделения объекта и нажатия по нему правой кнопки мыши появляется меню, где мы выбираем Свойство (это позволит узнать свойства объекта).
3)Откройте свойства папки.Перейдите во вкладку «Настройка» и щелкните кнопку «Сменить значок».Укажите место поиска иконки. По умолчанию это системная библиотека Shell32.dll, но вы можете выбрать и другой источник. Кликните подходящее изображение и нажмите ОК.

Const
   g:array [1..10] of string = ('Москва','Санкт-Петербург','Новосибирск','Екатеринбург','Нижний Новгород','Казань','Самара','Омск','Челябинск','Ростов-на-Дону');
   n:array [1..10] of longint = (12198,5192,1567,1428,1268,1206,1171,1174,1182,1115);
var
   i,imax,imin:longint;
begin
  imax:=1; imin:=1;
     for i:=1 to 10 do   
          begin     
              if n[i]>n[imax] then imax:=i;        
              if n[i]<n[imin] then imin:=i;   
end;

writeln('Город с наибольшей численностью ',g[imax]);
writeln('Город с наименьшей численностью ',g[imin]);

end.