Var a: array[1..n] of integer; k, i, m: byte; min: integer;
begin Write('Razmer massiva: '); Readln(k); if (k < 0) or (k > 100) then begin Writeln('Razmer dolzhen byt bolshe 0 i menshe 100'); Readln; Exit; end; Randomize; Writeln('Ishodn. massiv: '); for i:=1 to k do begin a[i]:=Random(101)-50; write(a[i]:4); end; min:=a[1]; for i:=2 to k do if a[i] < min then begin min:=a[i]; m:=i; end; a[m] := a[1]; a[1] := min; Writeln; Writeln('Min element = ', min:4, ' v posicii ', m:3); Writeln('Rezult. massiv: '); for i:=1 to k do write(a[i]:4); readln; end.
1. Одноранговая сеть– это сеть равноправных компьютеров (рабочих станций) , каждый из которых имеет уникальное имя (имя компьютера) и обычно пароль для входа в него в момент загрузки ОС. Имя и пароль входа назначаются владельцем ПК средствами ОС. В такой сети могут быть организованы «подсети» , так называемые группы, каждая из которых также имеет имя, например «Бухгалтерия» . Принадлежность рабочей станции к какой-либо группе может быть задана или изменена самим пользователем. Равноправность ПК означает, что владелец каждого компьютера в сети сам имеет программную возможность преобразовать свой локальный ресурс (диски, папки, принтер) , в разделяемый, предоставив к нему доступ другим пользователям группы, устанавливать права и пароль доступа к ресурсу. Он же отвечает за сохранность или работо этого ресурса. Программные средства также позволяют владельцу ПК отменить доступ к ресурсу, то есть вернуть ему статус локального. Доступ к «чужим ресурсам» в такой сети организован на уровне ресурсов. Это означает, что доступ к сетевым ресурсам рабочей станции получает любой компьютер, входящий в ту же группу, что и «владелец ресурса» . Доступ к сетевым ресурсам компьютеров другой группы невозможен. Понятие «пользователь» в такой сети отсутствует, а точнее совпадает с понятием компьютер группы. В одноранговой сети каждая рабочая станция может одновременно, как предоставлять свои ресурсы другим компьютерам группы (быть сервером) , так и использовать ресурсы других ПК (быть клиентом) . Сети этого вида часто организуются в небольших офисах для объединения в сеть небольшого числа компьютеров (10-15 ПК) . Создание и эксплуатация такой сети не требует высокого профессионализма и наличия специального лица (системного администратора) , ответственного за функционирование сети. 2. Иерархические сети – это сети, в которых имеется мощный компьютер – выделенный сервер, ресурсы которого предоставляются другим, соединенным с ним компьютерам (рабочим станциям) . Ресурсы рабочих станций серверу, как правило, не доступны. Иерархические сети организуются при большом количестве рабочих станций. В сравнении с одноранговыми сетями они обеспечивают более высокие быстродействие и надежность работы сети, повышают конфиденциальность и надежность хранения информации, а также предоставляют ряд других полезных возможностей, рассмотренных ниже. Однако создание иерархической сети требует высокого профессионализма, а работу всей сети организует специальное ответственное лицо – системный администратор. В отличие от однораноговой сети предоставление ресурсов сервера в иерархической сети производится на уровне пользователей. Это означает, что для полноценной работы в сети каждый пользователь должен быть персонально зарегистрирован администратором сети, после чему ему назначается уникальное в сети имя и пароль, под которым он «будет известен серверу» . При регистрации пользователю также выделяются определенные ресурсы на сервере и права доступа к ним. В дальнейшем при подключении к серверу пользователь должен будет в специальном диалоговом окне указывать это имя и пароль, и только после этого ему будет открыт доступ к назначенным ему сетевым ресурсам.
a: array[1..n] of integer;
k, i, m: byte;
min: integer;
begin
Write('Razmer massiva: ');
Readln(k);
if (k < 0) or (k > 100) then
begin
Writeln('Razmer dolzhen byt bolshe 0 i menshe 100');
Readln;
Exit;
end;
Randomize;
Writeln('Ishodn. massiv: ');
for i:=1 to k do
begin
a[i]:=Random(101)-50;
write(a[i]:4);
end;
min:=a[1];
for i:=2 to k do
if a[i] < min then
begin
min:=a[i];
m:=i;
end;
a[m] := a[1];
a[1] := min;
Writeln;
Writeln('Min element = ', min:4, ' v posicii ', m:3);
Writeln('Rezult. massiv: ');
for i:=1 to k do
write(a[i]:4);
readln;
end.
2. Иерархические сети – это сети, в которых имеется мощный компьютер – выделенный сервер, ресурсы которого предоставляются другим, соединенным с ним компьютерам (рабочим станциям) . Ресурсы рабочих станций серверу, как правило, не доступны. Иерархические сети организуются при большом количестве рабочих станций. В сравнении с одноранговыми сетями они обеспечивают более высокие быстродействие и надежность работы сети, повышают конфиденциальность и надежность хранения информации, а также предоставляют ряд других полезных возможностей, рассмотренных ниже. Однако создание иерархической сети требует высокого профессионализма, а работу всей сети организует специальное ответственное лицо – системный администратор. В отличие от однораноговой сети предоставление ресурсов сервера в иерархической сети производится на уровне пользователей. Это означает, что для полноценной работы в сети каждый пользователь должен быть персонально зарегистрирован администратором сети, после чему ему назначается уникальное в сети имя и пароль, под которым он «будет известен серверу» . При регистрации пользователю также выделяются определенные ресурсы на сервере и права доступа к ним. В дальнейшем при подключении к серверу пользователь должен будет в специальном диалоговом окне указывать это имя и пароль, и только после этого ему будет открыт доступ к назначенным ему сетевым ресурсам.