Hogyan kell kiíratni egy nevet visszafele?

sztem csökkenő for ciklussal.

pl.: for i:=10 downto 1 do

Egyszerű. A név ugye egy string. A stringet elemeit el lehet érni indexen keresztül. Lekéred a string hosszát a length függvénnyel és egy for ciklussal a string hosszától 1-ig visszafele kiíratod a string elemeit.

pl.:

var s:string;

i:integer;

[...]

s:='Beviz Elek';

for i:=length(s) downto 1 do

write(s[i]);

Vagy valami ilyesmi :)

En igy csinalnam ha fajlbol kene veni a neveket:

program project1;

var nev:string;

n,maxi,mini,i:integer;

f:text;

a:array[1..20]of string;

begin

assign(f,'Bac.txt');

reset(f);

n:=0;

while(not(eof(f))) do

begin

readln(f,nev);

if(length(nev)>10) then

begin

inc(n);

a[n]:=nev;

end;

end;

mini:=1;

maxi:=1;

for i:=1 to n do

begin

if(length(a[i])>length(a[maxi]))then

maxi:=i;

if(length(a[i])<length(a[mini]))then

mini:=i;

end;

for i:=length(a[maxi]) downto 1 do

write(a[maxi][i]);

writeln;

writeln(upcase(a[mini]));

close(f);

readln;

end.

Itt van némi instrukció a második kérdésedben vázolt feladathoz:

http://www.gyakorikerdesek.hu/szamitastechnika__programozas_..

Itt pedig a a tartomány vizsgálata van többek között a második válaszban :

http://www.gyakorikerdesek.hu/szamitastechnika__programozas_..