Program n1; const maxm = 50; maxn = 50; var a:array[1..maxm,1..maxn] of integer; min,max,i,j,n,m,x,maxi,mini:integer; begin write('Введите размеры матрицы (N*M): '); readln(n,m); writeln('Введите матрицу из ',n,' строк и ',m,' столбцов:'); min:=maxint; max:=-maxint-1; for i:=1 to n do for j:=1 to m do begin read(a[i,j]); if a[i,j]>max then begin max:=a[i,j]; maxi:=i; end; if a[i,j]<min then begin min:=a[i,j]; mini:=i; end; end;
for j:=1 to m do begin x:=a[maxi,j]; a[maxi,j]:=a[mini,j]; a[mini,j]:=x; end;
writeln('Матрица после преобразования:'); for i:=1 to n do begin for j:=1 to m do write(a[i,j],' '); writeln; end;
IP-адрес имеет длину 32 бита, что составляет 32/8 = 4 байта. Каждый байт при записи для удобства отделяется точкой. В задании приведены десятичные значения каждого байта: 192, 168, 104 и 109. Эти четыре байта при рассмотрении адресации принято называть октетами - группами по 8 бит.
IP-адрес разделяется на две части - номер сети и номер узла. Номер сети - это внешний адрес сети, в которую включена группа компьютеров, например, все компьютеры школы или все компьютеры в классе. Все компьютеры внутри одной сети объединяются в узел - хост (host) и каждый компьютер получает свой номер: 1, 2, 3, ... Максимальный размер узла определяется количеством отводимых под номер узла бит. Иначе говоря, наши 32 бита IP-адреса в каком-то месте разрезаются на две части. Все что слева от разреза отводится под номер сети, все что справа - под номер узла.
Место разреза определяет так называемая маска подсети. Это набор также из 32 битов вида 1111...11000...000, причем, сначала идут все единицы, а потом все нули. Маска "накладывается" на IP-адрес и все, на что наложатся единицы, будет номером сети. А где в маске нули - номером узла. Маску тоже можно записать в виде набора из четырех октетов и даже перевести в десятичное представление. Например, если первые три октета единичные, а последний нулевой, маска запишется как 255.255.255.0 В этом примере у нас 24 бита единичные и 8 битов нулевые. Не всегда приятно сидеть, переводить в двоичные числа и считать эти биты, поэтому придумали другой вариант записи. Маску длиной 24 бита приписывают к IP-адресу через знак дроби в виде /24.
Вернемся к заданию. Дан IP-адрес 192.168.104.109/30. Теперь мы знаем, что в нем 30-битная маска подсети, значит под номер узла осталось лишь 32-30=2 бита. Эти два бита могут дать 2² = 4 комбинации (номера компьютера), но первый и последний номера зарезервированы, так что остаются лишь два допустимых адреса: 1 и 2, что и определит наибольшее возможное количество компьютеров в этой сети - два.
Номер сети найдется, как уже говорилось, наложением на IP-адрес единичной части маски. 30 разрядов. 24 из них относятся первым трем октетам и адрес там не поменяется. В последнем октете записано 109₁₀ и нам надо оставить там только шесть левых бит. 109₁₀ = 11011 01₂ Обнуляем два правых бита. 11011 00₂ = 108₁₀ Теперь можно записать номер сети: 192.169.104.108 Номер узла мы тоже уже видели - это те самые два правых бита 01₂, так что он равен 1.
ответ: номер сети - 192.169.104.108, номер узла - 1, наибольшее возможное количество компьютеров в сети - 2.
const maxm = 50;
maxn = 50;
var a:array[1..maxm,1..maxn] of integer;
min,max,i,j,n,m,x,maxi,mini:integer;
begin
write('Введите размеры матрицы (N*M): ');
readln(n,m);
writeln('Введите матрицу из ',n,' строк и ',m,' столбцов:');
min:=maxint; max:=-maxint-1;
for i:=1 to n do
for j:=1 to m do
begin
read(a[i,j]);
if a[i,j]>max then begin max:=a[i,j]; maxi:=i; end;
if a[i,j]<min then begin min:=a[i,j]; mini:=i; end;
end;
for j:=1 to m do
begin
x:=a[maxi,j]; a[maxi,j]:=a[mini,j]; a[mini,j]:=x;
end;
writeln('Матрица после преобразования:');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
end.