Древнеегипетская десятичная непозиционная система счисления. Примерно в третьем тысячелетии до нашей эры древние египтяне придумали свою числовую систему, в которой для обозначения ключевых чисел 1, 10, 100 и т.д. использовались специальные значки — иероглифы. Все остальные числа составлялись из этих ключевых при операции сложения. Система счисления Древнего Египта является десятичной, но непозиционной.!В непозиционных системах счисления количественный эквивалент каждой цифры не зависит от ее положения (места, позиции) в записи числа. Например, чтобы изобразить 3252 рисовали три цветка лотоса (три тысячи), два свернутых пальмовых листа (две сотни), пять дуг (пять десятков) и два шеста (две единицы). Величина числа не зависела от того, в каком порядке располагались составляющие его знаки: их можно было записывать сверху вниз, справа налево или вперемежку. Римская система счисления. Примером непозиционной системы, которая сохранилась до наших дней, может служить система счисления, которая применялась более двух с половиной тысяч лет назад в Древнем Риме. В основе римской системы счисления лежали знаки I (один палец) для числа 1, V (раскрытая ладонь) для числа 5, X (две сложенные ладони) для 10, а для обозначения чисел 100, 500 и 1000 стали применять первые буквы соответствующих латинских слов (Сentum — сто, Demimille — половина тысячи, Мille — тысяча). Чтобы записать число, римляне разлагали его на сумму тысяч, полутысяч, сотен, полусотен, десятков, пятков, единиц. Например, десятичное число 28 представляется следующим образом:XXVIII=10+10+5+1+1+1 (три десятка, пяток, три единицы). Для записи промежуточных чисел римляне использовали не только сложение, но и вычитание. При этом применялось следующее правило: каждый меньший знак, поставленный справа от большего, прибавляется к его значению, а каждый меньший знак, поставленный слева от большего, вычитается из него. Например, IX — обозначает 9, XI — обозначает 11. Десятичное число 28 представляется следующим образом:XXVIII=10+10+5+1+1+1,а десятичное число 99 имеет вот такое представление:XCIХ=-10+100-1+10. Римскими цифрами пользовались очень долго. Еще 200 лет назад в деловых бумагах числа должны были обозначаться римскими цифрами (считалось, что обычные арабские цифры легко подделать). Римская система счисления сегодня используется, в основном, для наименования знаменательных дат, томов, разделов и глав в книгах. Алфавитные системы счисления. Более совершенными непозиционными системами счисления были алфавитные системы. К числу таких систем счисления относились греческая, славянская, финикийская и другие. В них числа от 1 до 9, целые количества десятков (от 10 до 90) и целые количества сотен (от 100 до 900) обозначались буквами алфавита. В алфавитной системе счисления Древней Греции числа 1, 2, ..., 9 обозначались первыми девятью буквами греческого алфавита, например a = 1, b = 2, g = 3 и т.д. Для обозначения чисел 10, 20, ..., 90 применялись следующие 9 букв (i = 10, k = 20, l = 30, m = 40 и т.д.), а для обозначения чисел 100, 200, ..., 900 — последние 9 букв (r = 100, s = 200, t = 300 и т.д.). Например, число 141 обозначалось rma. У славянских народов числовые значения букв установились в порядке славянского алфавита, который использовал сначала глаголицу, а затем кириллицу. Древнерусская алфавитная система счисления В России славянская нумерация сохранилась до конца XVII века. При Петре I возобладала так называемая арабская нумерация, которой мы пользуемся и сейчас. Славянская нумерация сохранилась только в богослужебных книгах. Непозиционные системы счисления имеют ряд существенных недостатков:1. Существует постоянная потребность введения новых знаков для записи больших чисел.2. Невозможно представлять дробные и отрицательные числа.3. Сложно выполнять арифметические операции, так как не существует алгоритмов их выполнения.
const n=10;
type x=array[1..n]
of integer;
var a:x;i,k:integer;
begin
for i:=1 to n do
begin
read(a[i]); {с вашего позволения я убрал "write (A[i]:4)" в остальном программа получает от пользователя 10 чисел и обрабатывает их}
end;
writeln;
k:=0;
for i:=n downto 1 do
if a[i]<0 then
begin
k:=I
end;
if k>0 then
writeln ('Индекс отрицательного элемента=',k:1)
else
writeln ('В массиве нет отрицательных элементов');
readln;
end.