1 578
editací
Změny
Vytvorená stránka „Převede znak na velké písmeno ;Deklarace function UpCase(Ch: Char): Char; ;Režim :Windows, Reálný, Chráněný ;Poznámky :Ch je výraz typu Char. Výsledk...“
Převede znak na velké písmeno
;Deklarace
function UpCase(Ch: Char): Char;
;Režim
:Windows, Reálný, Chráněný
;Poznámky
:Ch je výraz typu [[Char]]. Výsledkem typu [[Char]] je Ch, převedený na velké písmeno. Znakové hodnoty mimo rozsah a..z zůstávají nezměněny.
Vzorový příklad
{UpCase.PAS}
{Vzorový příklad pro funkci UpCase.}
{ Pro Windows: }
{ uses WinCrt; }
var
s : string;
i : Integer;
begin
Write('Vlož řetězec: ');
Readln(s);
for i := 1 to Length(s) do
s[i] := UpCase(s[i]);
WriteLn('Zde je ve velkých písmenech: ',s);
end.
[[Category:Pascal]]
[[Category:System]]
[[Category:Funkce System]]
;Deklarace
function UpCase(Ch: Char): Char;
;Režim
:Windows, Reálný, Chráněný
;Poznámky
:Ch je výraz typu [[Char]]. Výsledkem typu [[Char]] je Ch, převedený na velké písmeno. Znakové hodnoty mimo rozsah a..z zůstávají nezměněny.
Vzorový příklad
{UpCase.PAS}
{Vzorový příklad pro funkci UpCase.}
{ Pro Windows: }
{ uses WinCrt; }
var
s : string;
i : Integer;
begin
Write('Vlož řetězec: ');
Readln(s);
for i := 1 to Length(s) do
s[i] := UpCase(s[i]);
WriteLn('Zde je ve velkých písmenech: ',s);
end.
[[Category:Pascal]]
[[Category:System]]
[[Category:Funkce System]]