Zmiana wielko¶ci liter
W niektórych programach zachodzi potrzeba zmiany wielko¶ci liter. Np. gdy u¿ytkownik wpisze swoje imiê ma³± liter±, mo¿e byæ mi³o zaskoczony, gdy komputer i tak wy¶wietli je wielk± liter±.
Do zmiany wielko¶ci znaku s³u¿y funkcja UpCase(ch : char); Zmienia ona jednak wielko¶æ pojedynczego znaku a nie ca³ego napisu. ¯eby zmieniæ wielko¶æ ca³ego napisu musimy to zrobiæ rêcznie za pomoc± pêtli.
Je¶li chcemy zmieniæ pierwsz± literê wczytanego napisu, mo¿na u¿yæ:
ReadLn(napis);
napis[1] := UpCase(napis[1]);
WriteLn(napis);
A co je¶li chcemy zmieniæ ca³y napis na du¿y? Wystarczy dodaæ pêtlê, a zamiast cyfry 1 w powy¿szym przyk³adzie, zmienn±, która bêdzie stopniowo zwiêkszana.
ReadLn(napis);
for i:=1 to Length(napis) do
napis[i] := UpCase(napis[i]);
WriteLn(napis);