Utenti collegati: 17 
 
it.comp.lang.delphi
Il linguaggio Delphi di Borland

Indice messaggi | Invia un reply | Tutti i newsgroup | Cerca | Statistiche 



  Inviato da: linobelardi7@gmail.com  Mostra tutti i messaggi di linobelardi7@gmail.com
Titolo: Re: Traduttore Italiano->Pugliese v.1
Newsgroup: it.comp.lang.delphi
Data: 16/09/2017
Ora: 11:00:12
Mostra headers
 
  Il giorno sabato 17 maggio 2003 17:10:05 UTC+2, Zortek ha scritto:<br /> &gt; Freeware!!<br /> &gt; Tradurre in pugliese non e' mai stato cosi' semplice ;)<br /> &gt; <br /> &gt; da &quot;nel mezzo del cammin di nostra vita&quot;<br /> &gt; a &quot;nil mezz dal cimmin di nustr vit&quot;<br /> &gt; <br /> &gt; oppure<br /> &gt; <br /> &gt; da &quot;madonna mia di canosa fai che mi vada bene ogni cosa&quot;<br /> &gt; a &quot;mudnn mu di conos fai ch mi vad bena ugn cosa&quot;<br /> &gt; <br /> &gt; ;))))))))))<br /> &gt; <br /> &gt; Ed ecco il sorgente!<br /> &gt; <br /> &gt; function Italian2Puglies(s:string):string;<br /> &gt; var p:integer;<br /> &gt; <br /> &gt; function TraduciParola(s:string):string;<br /> &gt; var i,a:integer; c:char;<br /> &gt; begin<br /> &gt; Result:='';<br /> &gt; for i:=1 to length(s) do begin<br /> &gt; c:=s[i];<br /> &gt; if (c in ['a','A','e','E','i','I','o','O','u','U']) then begin<br /> &gt; a:=random(10);<br /> &gt; if ((a&lt;4) and (i&lt;&gt;length(s))) or<br /> &gt; ((a&lt;8) and (length(s)&lt;3))<br /> &gt; then Result:=Result+c else<br /> &gt; if (a&gt;7) or (i=2) then case random(5) of<br /> &gt; 0:Result:=Result+'a';<br /> &gt; 1:Result:=Result+'e';<br /> &gt; 2:Result:=Result+'i';<br /> &gt; 3:Result:=Result+'o';<br /> &gt; 4:Result:=Result+'u';<br /> &gt; end;<br /> &gt; end else Result:=Result+c;<br /> &gt; end;<br /> &gt; end;<br /> &gt; <br /> &gt; begin<br /> &gt; randomize;<br /> &gt; Result:='';<br /> &gt; repeat<br /> &gt; p:=pos(' ',s);<br /> &gt; if p=0 then Result:=Result+TraduciParola(s) else begin<br /> &gt; Result:=Result+TraduciParola(copy(s,1,p-1))+' ';<br /> &gt; s:=copy(s,p+1,length(s))<br /> &gt; end;<br /> &gt; until p=0;<br /> &gt; end;<br />  

Invia una risposta:

Nome:

Email:

Titolo:

Testo:


Attenzione: l'invio del messaggio richiede diversi secondi.
Non premere pi� volte il tasto "Invia".

 © Sergio Simonetti 2001 Che cos'è Links