()
Newbie
Messaggi:
Iscritto:
|
Ciao a tutti sto cercando ci convertire un mio codice fiscale scritto in pascal nel linguaggio java..come posso trasformare l'espressione in linguaggio pascal:
C che č una stringa C:=COPY(ST,X,1) in java??
Cosa c'č che devo pių cambiare(trascurando il codice ancora in pascla che sto cambiando ancora)nella struttura???
Questo č quello che sono riuscito a fare:
public class Calcolo_cf
{
String cognome,nome,mese,anno,comune;
int giorno;
char sex;
public Calcolo_cf()
{
nome=InputDati.inputStringa("inserisci nome");
cognome=InputDati.inputStringa("inserisci cognome");
mese=InputDati.inputStringa("inserisci mese");
anno=InputDati.inputStringa("inserisci anno");
comune=InputDati.inputStringa("inserisci comune");
giorno=InputDati.inputInteger("inserisci giorno");
}
public void Surname()
{
String CONS,VOC,C,CODCOG;
int X,N;
CONS="";
VOC="";
CODCOG="";
while (X=1;X<=LENGTH(ST);X++);
{
C=(ST,X,1);
if(C='A')||(C='E')||(C='I')||(C='O')||(C='U')
{
VOC=VOC+COPY(ST,X,1);
}
else
{
CONS=CONS+COPY(ST,X,1);
}
X=X+1;
if(LENGTH(CONS)>=3){
CODCOG:=CODCOG+COPY(CONS,1,3)
}
{
if(( LENGTH(CONS)+LENGTH(VOC))>=3){
{
N=LENGTH(CONS);
CODCOG=CODCOG+COPY(CONS,1,N)+COPY(VOC,1,3-N);
}
}
CODCOG=CODCOG+COPY(CONS,1,LENGTH(CONS))+COPY(VOC,1,LENGTH(VOC))+'X';
}
SURNAME=CODCOG;*/
}
}
public void Name()
{
CONS,VOC,C,CODNOM:STRING;
LC,LV,X:INTEGER;
X:=1;
CONS:='';
VOC:='';
CODNOM:='';
WHILE (X<=LENGTH(ST)) DO
BEGIN
C:=COPY(ST,X,1);
IF(C='A')OR(C='E')OR(C='I')OR(C='O')OR(C='U')
THEN
VOC:=VOC+COPY(ST,X,1)
ELSE
CONS:=CONS+COPY(ST,X,1);
X:=X+1;
END;
LC:=LENGTH(CONS);
LV:=LENGTH(VOC);
IF(LC>=3)THEN
CODNOM:=CODNOM+COPY(CONS,1,1)+ COPY(CONS,3,2)
ELSE CASE (LC) OF
3:CODNOM:=CODNOM+COPY(CONS,1,3);
2:IF(LV>=1)THEN
CODNOM:=CODNOM+COPY(CONS,1,2)+ COPY(VOC,1,1)
ELSE
CODNOM:=CODNOM+COPY(CONS,1,2)+'X';
1:IF(LV>=2)THEN
CODNOM:=CODNOM+COPY(CONS,1,1)+ COPY(VOC,1,2)
ELSE
CODNOM:=CODNOM+COPY(CONS,1,1)+ COPY(VOC,1,1)+'X';
END;
NAME:=CODNOM;
}
public void Toglispazi()
{
int x;
X:=1;
WHILE(X<=LENGTH(sT)-1)DO
BEGIN
IF(COPY(ST,X,1)=' ')THEN ST:=COPY(ST,1,X-1)+COPY(ST,X+1,LENGTH(ST)-X)
ELSE
X:=X+1;
END;
TOGLISPAZI:=ST;
}
public void Mensile()
{
IF(UTENTE.SEX='F')THEN UTENTE.DATA_N.GIORNO:=UTENTE.DATA_N.GIORNO+40;
CASE (UTENTE.DATA_N.MESE) OF
1: LMESE:='A';
2: LMESE:='B';
3: LMESE:='C';
4: LMESE:='D';
5: LMESE:='E';
6: LMESE:='H';
7: LMESE:='L';
8: LMESE:='M';
9: LMESE:='P';
10: LMESE:='R';
11: LMESE:='S';
12: LMESE:='T';
END;
}
}
p.s. basta anche solo che vediate la classe Surname se nn avete tempo...
|
