1 кбайт=1024 байт
1мегобайт=1024кбайт
1гигабайт=1024мегобайт
<span>Целая часть от деления:
</span><span><span>37 div 2 = 18
</span><span>18 div 2 = 9
</span><span>9 div 2 = 4
</span><span>4 div 2 = 2
</span><span>2 div 2 = 1
</span><span>1 div 2 = 0
</span></span><span>Остаток от деления:
</span>37 mod 2 = 1
18 mod 2 = 0
9 mod 2 = 1
4 mod 2 = 0
2 mod 2 = 0
1 mod 2 = 0
1) Остаток от деления 37 на записываем в обратном порядке. Получаем число в 2-ой системе счисления: 100101
<span>37 = 100101(2)
</span><span>
2) Для перевода дробной части числа последовательно умножаем дробную часть на основание 2. В результате каждый раз записываем целую часть произведения.
0.375*2 = 0.75 (целая часть 0)
0.75*2 = 1.5 (целая часть 1)
0.5*2 = 1 (целая часть 1)
0*2 = 0 (целая часть 0)
Получаем число в 2-ой системе счисления: 0110
0.375 = 0110(2)
В итоге получаем число: 100101.0110(2)</span>
Const
n = 5;
var
a: array[1..n, 1..n] of integer;
i, j, m, nmax, nmin, jmax, jmin: integer;
begin
Randomize;
writeln('Исходный массив');
for i := 1 to n do
begin
nmax := -100;
nmin := 100;
for j := 1 to n do
begin
a[i, j] := Random(24) - 8;
if nmax < a[i, j] then
begin
nmax := a[i, j];
jmax := j
end;
if nmin > a[i, j] then
begin
nmin := a[i, j];
jmin := j
end;
write(a[i, j]:4)
end;
writeln;
a[i, jmax] := nmin;
a[i, jmin] := nmax
end;
writeln(#13#10, 'Результирующий массив');
for i := 1 to n do
begin
for j := 1 to n do write(a[i, j]:4);
writeln
end
end.
Тестовое решение:
Исходный массив
-4 8 3 7 5
-7 -7 1 8 0
14 0 0 1 -1
14 7 -5 -1 14
7 6 1 -6 14
Результирующий массив
8 -4 3 7 5
8 -7 1 -7 0
-1 0 0 1 14
-5 7 14 -1 14
7 6 1 14 -6
1)
var max, min, i, n : integer;
a : array [1..255] of integer;
BEGIN
// ввод массива
read(n);
for i := 1 to n do
read(a[i]);
// то, что в блок-схеме
max := a[1]; min := a[1];
for i := 2 to n do begin
if a[i] < min then
min := a[i]
else if a[i] > max then
max := a[i];
end;
write(min, ' ', max);
END.
2) Если k - это любое число >= 1, то значения элементов массива сдвинутся на 1 влево. К примеру, если k = 1, то a[1] = 12, a[2] = 5, a[3] = 8 и так далее
var a: array [1..6] of integer;
var I: integer;
begin
a[1]:=5;
for I:=2 to 6 do a[I]:=a[I-1]*a[I-1];
writeln(a[I]);
end.
Ответ -4223