zdrojový kód
<html>
<head>
<meta name="Author" content="Pavel Doško">
<style type="text/css">
tr{text-align:center}
</style>
<title>Převod římských čísel na arabské</title>
<script language="Javascript">
function Preved()
{
var rimsky=document.all.rimsky.value;
var rim=rimsky.toUpperCase();
var a=0;
var delka=rimsky.length;
var rjedna;
var rdva;
var i=1;
while(i<=delka)
{
var m=(i-1);
if(rim.charAt(m)=="I")
{
rdva=1;
}
else if(rim.charAt(m)=="V")
{
rdva=5;
}
else if(rim.charAt(m)=="X")
{
rdva=10;
}
else if(rim.charAt(m)=="L")
{
rdva=50;
}
else if(rim.charAt(m)=="C")
{
rdva=100;
}
else if(rim.charAt(m)=="D")
{
rdva=500;
}
else if(rim.charAt(m)=="M")
{
rdva=1000;
}
if(i>1)
{
if(rjedna<rdva)
{
rjedna=rjedna*(-1);
}
a+=eval(rjedna);
}
rjedna=rdva;
i++;
}
var b=a+rjedna;
if(b<=3999)
{
document.all.arabsky.value=b;
}
else
{
document.all.arabsky.value="S takhle velkou hodnotou Římané nepočítali, maximum je 3 999."; // by pavelot
}
}
</script>
<title>Java Script ze stránky - www.jaknaweb.com</title>
</head>
<body>
<h2 align="center">Převod z římských čísel na arabské</h2>
<form id="form" name="form">
<table border=0 cellpadding=5 width=50% align=center>
<tr>
<td colspan=2>
Sem napište římské číslo :
</td>
</tr>
<tr>
<td colspan=2>
<textarea id="rimsky" cols="35" rows="5"></textarea>
</td>
</tr>
<tr>
<td colspan=2>
<input type="button" id="preved" name="preved" onclick="Preved();" value="Převeď">
</td>
</tr>
<tr>
<td colspan=2>
Sem přijde arabské číslo :
</td>
</tr>
<tr>
<td colspan=2>
<textarea id="arabsky" cols="35" rows="5" readonly="readonly"></textarea>
</td>
</tr>
</table>
</form>
</body>
</html>
Vložil/Poslal/Autor: Pavel Doško
Funkčnost:
správná funkčnost testována v IE 6 a Firefoxu