Экспоненциа́льная за́пись — представление действительных чисел в виде мантиссы и порядка. Удобна при представлении очень больших и очень малых чисел, а также для унификации их написания.
{\displaystyle N=M\cdot n^{p}} N=M\cdot n^{p}, где
N — записываемое число;
M — мантисса;
n — основание показательной функции;
p (целое) — порядок;
{\displaystyle n^{p}} n^{p} — характеристика числа.
Примеры:
1 000 000 (один миллион): {\displaystyle 1{,}0\cdot 10^{6}} 1{,}0\cdot 10^{6}; N = 1 000 000, M = 1,0, n = 10, p = 6.
1 201 000 (один миллион двести одна тысяча): {\displaystyle 1{,}201\cdot 10^{6}} 1{,}201\cdot 10^{6}; N = 1 201 000, M = 1,201, n = 10, p = 6.
−1 246 145 000 (минус один миллиард двести сорок шесть миллионов сто сорок пять тысяч): {\displaystyle -1{,}246145\cdot 10^{9}} -1{,}246145\cdot 10^{9}; N = −1 246 145 000, M = −1,246145, n = 10, p = 9.
0,000001 (одна миллионная): {\displaystyle 1{,}0\cdot 10^{-6}} 1{,}0\cdot 10^{{-6}}; N = 0,000001, M = 1,0, n = 10, p = −6.
0,000000231 (двести тридцать одна миллиардная): {\displaystyle 231\cdot 10^{-9}=2{,}31\cdot 100\cdot 10^{-9}=2{,}31\cdot 10^{2}\cdot 10^{-9}=2{,}31\cdot 10^{-9+2}=2{,}31\cdot 10^{-7}} 231\cdot 10^{{-9}}=2{,}31\cdot 100\cdot 10^{{-9}}=2{,}31\cdot 10^{2}\cdot 10^{{-9}}=2{,}31\cdot 10^{{-9+2}}=2{,}31\cdot 10^{{-7}}; N = 0,000000231, M = 2,31, n = 10, p = −7.
Объяснение: както так
Возьмите матрицу поменьше, скажем 5х5
-1 -2 -3 -4 -5
2 -2 -3 -4 -5
3 3 -3 -4 -5
4 4 4 -4 -5
5 5 5 5 -5
Положительные и отрицательные элементы матрицы расположены симметрично относительно главной диагонали. Поэтому, чтобы посчитать сумму чисел матрицы, достаточно взять элементы главной диагонали. Это числа от 1 до 5 со знаком "-". Аналогично для матрицы 100х100 это будут числа от 1 до 100 со знаком "-". Осталось посчитать сумму членов арифметической прогрессии 1,2,3,4,5100 и взять со знаком "-". S = -(1+100)*100/2 = -5050.
i,k:integer;
max,c:real;
begin randomize;
writeln('Введите массив');
for i:=1 to 10 do
begin
a[i]:=random*10+0;
write(' ' , a[i]:6:3);
end;
max:=a[10];
for i:=1 to 10 do
if a[i]>max then
begin
max:=a[i];
k:=i;
end;
writeln(' max= ' , max:6:3, ' k= ', k);
c:=a[1];
a[1]:=a[k];
a[k]:=c;
writeln;
for i:=1 to 10 do
write(' ' , a[i]:6:3);
end.