írj programot, mely egy repülõ ékezetes szöveges file-t közönséges ékezetes file-lá fordít le! Tudnátoksegíteni ebben?

Nem értem.

Ékezetes szöveget, ékezetes szöveggé? Ennek mi értelme? Magát a feladatot nem értem.

A feladat megoldása nem bonyolult. Veszed a repülő ékezetes szöveget és végigmégy rajta egy ciklussal. És vizsgálod, hogy az adott betű után található e repülő ékezet, Ha található akkor a betűnek megfelelő ékezetes párjával kell helyettesíteni.

pl:

program repuloekeztescsere;

{$mode objfpc}{$H+}

Uses Sysutils;

const

ekezetes : array[0..17] of String=('Á','É','Í','Ó','Ö','Ő','Ú','Ü','Ű',

'á','é','í','ó','ö','ő','ú','ü','ű');

repuloekezetes : array[0..17] of String=('A'+#39,'E'+#39,'I'+#39,'O'+#39,'O:',

'O"','U'+#39,'U:','U"','a'+#39,'e'+#39,'i'+#39,'o'+#39,'o:',

'o"','u'+#39,'u:','u"');

var

BeSzoveg: string[255];

i : integer;

begin

WriteLn('Kérem a max 255 karater hosszú szöveget: ');

ReadLn(BeSzoveg);

for i:=0 to 17 do

begin

BeSzoveg:=StringReplace(Beszoveg,repuloekezetes[i],ekezetes[i],[rfReplaceAll]);

end;

WriteLn(BeSzoveg);

end.

Ez a kód a windows terminálban annyira nem mutat jól, mivel a karakter kódolással akadnak problémák(UTF8 és a windows parancssora(windows 1250 kódolás) kavarása miatt), de a lényeg benne van, így kell kicseréltetni a karaktereket.