Перевод десятичного числа в запись римскими цифрами
Алгоритм перевода из одной формы записи в другую прост. За основу была взята программа, написанная на Паскале и представленная а книге “Программирование на языке PascaL” на странице 148. Программа идёт под номером 9.5.7. var n: 0..3999;k:(M,CM,D,CD,C,XC,L,XL,X,IX,V,IV,I);s:integer;beginwrite(‘Введите исходное арабское число:’);readln(n);write(‘Результат:’);for k:=M to I do begincase k ofM:s:=1000; CM:s:=900; D:s:=500;CD:s:=400;C:s:=100;XC:s:=90;L:s:=50;XL:s:=40;X:s:=10;IX:s:=9;V:s:=5;IV:s:=4;I:s:=1;end;while n-s>=0 do beginn:=n-s; case k ofM:write(‘M’); CM:write(‘CM’);… Читать далее »