conversi.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 64 行

program conversie;
{sa se scrie un program care sa faca conversia dintre un nr.scris cu cifre
arabe intr-un nr. scris cu cifre romane.}
var n:integer;
begin
write('. n= ');
readln(n);
if n>3999 then write('romanii nu stiau sa scrie un nr. mai mare decat 3999 ');
case n of
1:write('I');2:write( 'II');3:write( 'III');4:write( 'IV');5:write( ' V');6:write( 'VI');7:write( 'VII');8:write( 'VIII');
9:write('IX');10:write( 'X');11:write( 'XI');12:write( 'XII');13:write( 'XIII');14:write( 'XIV');15:write( 'XV');
16:write('XVI');17:write( 'XVII');18:write( 'XVIII');19:write( 'XIX');20:write( 'XX');21:write( 'XXI');22:write( 'XXII');
23:write('XXIII');24:write( 'XXIV');25:write( 'XXV');26:write( 'XXVI');27:write( 'XXVII');28:write( 'XXVI');29:write( 'XXIX');
30:write('XXX');31:write( 'XXXI');32:write( 'XXXII');33:write( 'XXXIII');34:write( 'XXXIV');35:write( 'XXXV');
36:write('XXXVI');37:write('XXXVII');38:write('XXXIII');39:write('XXXIX');40:write('XL');41:write('XLI');42:write('XLII');
43:write('XLIII');44:write('XLIV');45:write('XLV');46:write('XLVI');47:write('XLVII');48:write('XLVIII');49:write('XLIX');
50:write('L');51:write('LI');52:write('LII');53:write('LIII');54:write('LIV');55:write('LV');56:write('LVI');57:write('LVII');
58:write('LVIII');59:write('LIX');60:write('LX');
61:write('LXI');62:write('LXII');63:write('LXIII');64:write('LXIV');65:write('LXV');66:write('LXVI');67:write('LXVII');
68:write('LXVIII');69:write('LXIX');70:write('LXX');71:write('LXXI');72:write('LXXII');73:write('LXXIII');74:write('LXXIV');
75:write('LXXV');76:write('LXXVI');77:write('LXXVII');78:write('LXXVIII');79:write('LXXIX');80:write('LXXX');
81:write('LXXXI');82:write('LXXXII');83:write('LXXXIII');84:write('LXXXIV');85:write('LXXXV');86:write('LXXXVI');
87:write('LXXXVII');88:write('LXXXIII');89:write('LXXXIX');90:write('XD');91:write('XDI');92:write('XDII');93:write('XDIII');
94:write('XDIV');95:write('XDV');96:write('XDVI');97:write('XDVII');98:write('XDVIII');99:write('XDIX');100:write('D');
101:write('DI');102:write( 'DII');103:write( 'DIII');104:write( 'DIV');105:write( ' DV');106:write( 'DVI');107:write( 'DVII');
108:write('DVIII');109:write( 'DIX');110:write( 'DX');111:write( 'DXI');112:write( 'DXII');113:write( 'DXIII');
114:write('DXIV');115:write( 'DXV');116:write( 'DXVI');117:write( 'DXVII');118:write( 'DXVIII');119:write( 'DXIX');
120:write('DXX');121:write( 'DXXI');122:write( 'DXXII');123:write( 'DXXIII');124:write( 'DXXIV');125:write( 'DXXV');
126:write('DXXVI');127:write( 'DXXVII');128:write( 'DXXVI');129:write( 'DXXIX');130:write( 'DXXX');131:write( 'DXXXI');
132:write('DXXXII');133:write( 'DXXXIII');134:write( 'DXXXIV');135:write( 'DXXXV');136:write('DXXXVI');137:write('DXXXVII');
138:write('DXXXIII');139:write('DXXXIX');140:write('DXL');141:write('DXLI');142:write('DXLII');143:write('DXLIII');
144:write('DXLIV');145:write('DXLV');146:write('DXLVI');147:write('DXLVII');148:write('DXLVIII');149:write('DXLIX');
150:write('DL');151:write('DLI');152:write('DLII');153:write('DLIII');
154:write('DLIV');155:write('DLV');156:write('DLVI');157:write('DLVII');158:write('DLVIII');159:write('DLIX');
160:write('DLX');161:write('DLXI');162:write('DLXII');163:write('DLXIII');164:write('DLXIV');165:write('DLXV');
166:write('DLXVI');167:write('DLXVII');168:write('DLXVIII');169:write('DLXIX');170:write('DLXX');171:write('DLXXI');
172:write('DLXXII');173:write('DLXXIII');174:write('DLXXIV');175:write('DLXXV');176:write('DLXXVI');177:write('DLXXVII');
178:write('DLXXVIII');179:write('DLXXIX');180:write('DLXXX');181:write('DLXXXI');182:write('DLXXXII');183:write('DLXXXIII');
184:write('DLXXXIV');185:write('DLXXXV');186:write('DLXXXVI');187:write('DLXXXVII');188:write('DLXXXIII');189:write('DLXXXIX');
190:write('DXD');191:write('DXDI');192:write('DXDII');193:write('DXDIII');194:write('DXDIV');195:write('DXDV');
196:write('DXDVI');197:write('DXDVII');198:write('DXDVIII');199:write('DXDIX');200:write('DD');
201:write('DDI');202:write( 'DDII');203:write( 'DDIII');204:write( 'DDIV');205:write('DDV');206:write( 'DDVI');
207:write('DDVII');208:write( 'DDVIII');209:write( 'DDIX');210:write( 'DDX');211:write( 'DDXI');212:write( 'DDXII');
213:write('DDXIII');214:write( 'DDXIV');215:write('DDXV');216:write( 'DDXVI');217:write('DDXVII');218:write( 'DDXVIII');
219:write('DDXIX');220:write('DDXX');221:write('DDXXI');222:write( 'DDXXII');223:write( 'DDXXIII');224:write('DDXXIV');
225:write('DDXXV');226:write( 'DDXXVI');227:write( 'DDXXVII');228:write( 'DDXXVI');229:write('DDXXIX');230:write( 'DDXXX');
231:write('DDXXXI');232:write( 'DDXXXII');233:write( 'DDXXXIII');234:write( 'DDXXXIV');235:write('DDXXXV');
236:write('DDXXXVI');237:write('DDXXXVII');238:write('DDXXXIII');239:write('DDXXXIX');240:write('DDXL');241:write('DDXLI');
242:write('DDXLII');243:write('DDXLIII');244:write('DDXLIV');245:write('DDXLV');246:write('DDXLVI');247:write('DDXLVII');
248:write('DDXLVIII');249:write('DDXLIX');250:write('DDL');251:write('DDLI');
252:write('DDLII');253:write('DDLIII');254:write('DDLIV');255:write('DDLV');256:write('DDLVI');257:write('DDLVII');
258:write('DDLVIII');259:write('DDLIX');260:write('DDLX');261:write('DDLXI');262:write('DDLXII');263:write('DDLXIII');
264:write('DDLXIV');265:write('DDLXV');266:write('DDLXVI');267:write('DDLXVII');68:write('DDLXVIII');269:write('DDLXIX');
270:write('DDLXX');271:write('DDLXXI');272:write('DDLXXII');273:write('DDLXXIII');274:write('DDLXXIV');275:write('DDLXXV');
276:write('DDLXXVI');277:write('DDLXXVII');278:write('DDLXXVIII');279:write('DDLXXIX');280:write('DDLXXX');
281:write('DDLXXXI');
282:write('DDLXXXII');283:write('DDLXXXIII');284:write('DDLXXXIV');285:write('DDLXXXV');286:write('DDLXXXVI');
287:write('DDLXXXVII');288:write('DDLXXXIII');289:write('DDLXXXIX');290:write('DDXD');291:write('DDXDI');292:write('DDXDII');
293:write('DDXDIII');294:write('DDXDIV');295:write('DDXDV');296:write('DDXDVI');297:write('DDXDVII');298:write('DDXDVIII');
299:write('DDXDIX');300:write('DDD');
else writeln('Incearca un nr mai mic decat 300 !');
end;
end.