var a: array[1..MAX_SIZE] of integer; i, size: integer;
procedure delete_odd_elements(); var i, j: integer; begin i := 1; repeat if odd(a[i]) then begin dec(size); for j := i to size do a[j] := a[j + 1] end else inc(i); until i > size; end;
begin writeln('Исходный массив: '); size := MAX_SIZE; for i := 1 to size do begin a[i] := random(100); write(a[i] : 3); end; delete_odd_elements; writeln; writeln('Полученный массив: '); for i := 1 to size do write(a[i] : 3); end.
•PAN (Personal Area Network) — персональная сеть, предназначенная для взаимодействия различных устройств, принадлежащих одному владельцу. •LAN (Local Area Network) — локальные сети, имеющие замкнутую инфраструктуру до выхода на поставщиков услуг. Термин «LAN» может описывать и маленькую офисную сеть, и сеть уровня большого завода, занимающего несколько сотен гектаров. Зарубежные источники дают даже близкую оценку — около шести миль (10 км) в радиусе. Локальные сети являются сетями закрытого типа, доступ к ним разрешен только ограниченному кругу пользователей, для которых работа в такой сети непосредственно связана с их профессиональной деятельностью. •CAN (Campus Area Network — кампусная сеть) — объединяет локальные сети близко расположенных зданий. •MAN (Metropolitan Area Network) — городские сети между учреждениями в пределах одного или нескольких городов, связывающие много локальных вычислительных сетей. •WAN (Wide Area Network) — глобальная сеть, покрывающая большие географические регионы, включающие в себя как локальные сети, так и прочие телекоммуникационные сети и устройства. Пример WAN — сети с коммутацией пакетов (Frame relay), через которую могут «разговаривать» между собой различные компьютерные сети. Глобальные сети являются открытыми и ориентированы на обслуживание любых пользователей. •Термин «корпоративная сеть» также используется в литературе для обозначения объединения нескольких сетей, каждая из которых может быть построена на различных технических, программных и информационных принципах.
По типу функционального взаимодействия
•Клиент-сервер •Смешанная сеть •Одноранговая сеть •Многоранговые сети
По типу сетевой топологии
•Шина •Кольцо •Двойное кольцо •Звезда •Ячеистая •Решётка •Дерево •Fat Tree
По типу среды передачи
•Проводные (телефонный провод, коаксиальный кабель, витая пара, волоконно-оптический кабель) •Беспроводные (передачей информации по радиоволнам в определенном частотном диапазоне)
По функциональному назначению
•Сети хранения данных •Серверные фермы •Сети управления процессом •Сети SOHO, домовые сети
По скорости передач
•низкоскоростные (до 10 Мбит/с) , •среднескоростные (до 100 Мбит/с) , •высокоскоростные (свыше 100 Мбит/с) ;
По сетевым операционным системам
•На основе Windows •На основе UNIX •На основе NetWare •На основе Cisco
По необходимости поддержания постоянного соединения
•Пакетная сеть, например Фидонет и UUCP •Онлайновая сеть, например Интернет и GSM
MAX_SIZE = 10;
var
a: array[1..MAX_SIZE] of integer;
i, size: integer;
procedure delete_odd_elements();
var i, j: integer;
begin
i := 1;
repeat
if odd(a[i]) then
begin
dec(size);
for j := i to size do
a[j] := a[j + 1]
end
else inc(i);
until i > size;
end;
begin
writeln('Исходный массив: ');
size := MAX_SIZE;
for i := 1 to size do
begin
a[i] := random(100);
write(a[i] : 3);
end;
delete_odd_elements;
writeln;
writeln('Полученный массив: ');
for i := 1 to size do
write(a[i] : 3);
end.