zmena kodu v delphi na kod v jave:)
zmena kodu v delphi na kod v jave:)
kto ma vacsie skusenosti s javou a pomoze mi s prekladom kodu v delphi do javy?
-
xivo
Light Professional
- Príspevky: 752
- Registrovaný: 27 jún 2005, 22:49
- Bydlisko: Slovensko
- Kontaktovať používateľa:
Re: zmena kodu v delphi na kod v jave:)
Vsak tu daj ten kod a potom sa mozeme rozpravat o preklade (ak to nieje moc narocne, lebo newiem ci ti bude niekto ochotny prekladat 1000riadkovy kod)kaciva napísal:kto ma vacsie skusenosti s javou a pomoze mi s prekladom kodu v delphi do javy?
:)
prevod arabskych na rimske cislice
function initArray()
{
this.length=initArray.arguments.length;
for (var i=0;i<this.length;i++)
{
this=initArray.arguments;
}
}
var arr=new initArray("I","V","X","L","C","D","M");
var arn=new initArray(1,5,10,50,100,500,1000);
function ArabRim(x)
{
s="";
for(i=6;i>=0;i--)
{
while(Math.floor(x/arn)>=1)
{
s+=arr;
x-=arn
}
for(y=0;y<=2*Math.floor((i-1)/2);y++)
{
if(x/(arn-arn[y])>=1)
{
s+=arr[y]+arr;
x-=arn-arn[y]
}
}
}
return(s)
}
// -->
</script></head><body>
<form name="formular">
Prevod arabskych cisel na rimske cisla<br>
<input value="1974" name="zdroj" type="text">
<input value="Prevod" onclick="document.formular.vysledek.value=ArabRim(document.formular.zdroj.value);" type="button">
<input value="" name="vysledek" type="text">
</form>
function initArray()
{
this.length=initArray.arguments.length;
for (var i=0;i<this.length;i++)
{
this=initArray.arguments;
}
}
var arr=new initArray("I","V","X","L","C","D","M");
var arn=new initArray(1,5,10,50,100,500,1000);
function ArabRim(x)
{
s="";
for(i=6;i>=0;i--)
{
while(Math.floor(x/arn)>=1)
{
s+=arr;
x-=arn
}
for(y=0;y<=2*Math.floor((i-1)/2);y++)
{
if(x/(arn-arn[y])>=1)
{
s+=arr[y]+arr;
x-=arn-arn[y]
}
}
}
return(s)
}
// -->
</script></head><body>
<form name="formular">
Prevod arabskych cisel na rimske cisla<br>
<input value="1974" name="zdroj" type="text">
<input value="Prevod" onclick="document.formular.vysledek.value=ArabRim(document.formular.zdroj.value);" type="button">
<input value="" name="vysledek" type="text">
</form>
-
xivo
Light Professional
- Príspevky: 752
- Registrovaný: 27 jún 2005, 22:49
- Bydlisko: Slovensko
- Kontaktovať používateľa:
Ak si dobre pamatam prevod cisel ... tak by to mohlo byt ono 
Kód: Vybrať všetko
package temppack;
public class Try {
public static void main(String[] args) {
String vysledok = "";
char[] znaky = {'I','V','X','L','C','D','M'};
int[] hodnoty = {1,5,10,50,100,500,1000};
int rok = 1958;
for(int i=6; i>=0; i--){
int pocet = rok / hodnoty[i];
for(int j=0; j<pocet; j++){
vysledok += znaky[i];
}
rok %= hodnoty[i];
}
System.out.println(vysledok);
}
}