Pascal i UpCase

0

Witam mam problem nie wiem jakiej użyć komendy UpCase, jak powinna wyglądać i czy musi być jakaś deklaracja wśród zmiennych żeby:
a)zamieniało tylko nie parzyste litery podanego tekstu
b)zamieniało litery które są w alfabecie po literze M

Proszę o pomoc.
Pozdrawiam

0

1:

function ZamienNieParzyste( s: string ) : string;
var
 i : integer;
begin
 for i := 1 to length( s ) do // od początku stringa do końca
 if (i mod 2 <> 0) then // sprawdzaj nie parzyste pozycje
 s[i] := uppercase(s[i]) // i zmieniaj je na wielką litere
 ZamienNieParzyste := s;
end;

2:

{nie jestem pewien jak to się będzie sprawowało w przypadku łancucha ze znakami diakrytycznymi}
function ZamienPoM( s : string ) : string;
var
 i : integer;
begin
 for i := 1 to Length( s ) do // od początku stringa do końca
 if ( ord( s[i] ) > ord( 'M' ) ) // sprawdź czy wartość ascii znaku jest większa od 'M' (77)
 or ( ord( s[i] ) > ord( 'm' ) ) then // lub 'm' (109)
 s[i] := Uppercase( s[i] ); // w takim wypadku zmień ją na dużą
 ZmienPoM := s;
end;

Pisane z pamięci ale oscyluj koło tego

1 użytkowników online, w tym zalogowanych: 0, gości: 1