Prevod rímskych čísel na arabské

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategorija: Zadaňa zos Pascalu

Zrobil: Pheo
web: pascalsource.ic.cz

Program: Arabzrimcisel.pas
Subor exe: Arabzrimcisel.exe
Subor ubuntu: Arabzrimcisel

Prevod rímskych čísel na arabské. Program je nedokonalý a nevie rozlíšiť medzi rímskou IV a VI.
{ ARABZRIMCISEL.PAS                              Copyright (c) Pheo }
{ Prevod rímskych čísel na arabské.                                 }
{                                                                   }
{ Datum:12.06.1996                             http://www.trsek.com }
 
program arabzrimcisel;
var r:array[1..20] of char;
    rc:string;
    ac,k,p:integer;
begin
   Ac:=0;
   write('Zadaj rimske cislo:');
   read(rc);
   p:=length(rc);
   for k:=1 to p do
   begin
      if rc[k]='M' then ac:= ac+1000;
      if rc[k]='D' then ac:= ac+500;
      if rc[k]='C' then ac:= ac+100;
      if rc[k]='L' then ac:= ac+50;
      if rc[k]='X' then ac:= ac+10;
      if rc[k]='V' then ac:= ac+5;
      if rc[k]='I' then ac:= ac+1;
   end;
   writeln('Zodpovedajuce arabske cislo:',ac);
   readln;
end.