{ File: romani1.pas } { Scopo: semplice esempio uso di funzioni } program CifraRomana; { Legge da tastiera un carattere fra 'I','V','X','L','C','D','M' che rappresenta una "cifra" di un numero romano e stampa il numero intero corrispondente. } var ch : char; function Romano2Intero (ch : char) : integer; begin case ch of 'I' : Romano2Intero := 1; 'V' : Romano2Intero := 5; 'X' : Romano2Intero := 10; 'L' : Romano2Intero := 50; 'C' : Romano2Intero := 100; 'D' : Romano2Intero := 500; 'M' : Romano2Intero := 1000; end { case } end; { Romano2Intero } begin { CifraRomana } writeln('Inserisci un carattere scelto fra I,V,X,L,C,D,M'); readln(ch); writeln('Il carattere ',ch,' corrisponde a: ', Romano2Intero(ch)) end. { CifraRomana }