( 4fonya | 2010. 03. 12., p - 21:34 )

Föltelepítettem egy free pascalt és az alábbi kóddal jutottam eredményre:


function ekezettelen(szoveg: widestring): widestring;
var magyar: widestring;
angol: string;
f, m: byte;

begin
m := 0;
magyar := utf8decode('áéíóöőúüűÁÉÍÓÖŐÚÜŰ');
angol := 'aeiooouuuAEIOOOUUU';

for f := 1 to length(szoveg) do begin
Write(szoveg[f]);
m := pos(szoveg[f], magyar);
WriteLn(' <', m, '> ', szoveg[f], ' ');

if (m <> 0) then szoveg[f] := angol[m];

m := 0;
end;

ekezettelen := szoveg;
end;

begin
write(ekezettelen(utf8decode('Árvíztűrő tükörfúrógép')));
end.