Pascal - lowercase

Jistěže existuje jiná možnost. Napsat si tu funkci sám.

Problém bude zrejme v tom, že Lowercase je funkcia !
Tzn. že jej predáš ako parameter celý string a výstup bude string s malými písmenami:

Uses sysutils;

Begin
  Writeln (LowerCase('TENTO VÝSTUP BUDE NAPísaný celý s malými písmenami LoWeRcAsE !'));
End.

Dik za radu, ale kniznicu systutils bohuzial nemame.

Aha, to som nevedel...
Takže potom asi takto:

function lowcase(c : char) : char;
begin
if (c >= #65) and (c <= #90) then
   lowcase := chr(ord(c) + 32)
else
   lowcase := c;
end;

begin
  repeat
    clrscr;
    writeln('Zadaj text');
    readln(name);
    for count := 1 to length(name) do
    begin
      if (name[count] >=#65) and (name[count] <=#90) then
         name[count] := lowcase(name[count])
      else
         name[count] := upcase(name[count]);
    end;
    writeln(name);
  writeln;
  write('Chceš pokračovať? (A/N) ');
      readln(answer);
until upcase(answer)='N';

end.

Dakujem. Funguje. :)

Samozrejme, že funguje...
Dôležité je, aby si to aj pochopil!

ja teda paskala neznám, ale to funguje i na háčkované a vokrouškované U? a Bž?

{ convert upper case letters to lower case }
Valid_Ch := ['A'..'Z'];
For Location := 1 to Length(St) Do
  If St[Location] IN Valid_Ch
    Then St[Location] := CHR(ORD(St[Location]) + 32);

Pokud se funkce pro prevod na velka jmenuje UpCase, tak se funkce pro prevod na mala bude jmenovat LoCase
Tyto funkce pracuji s jednim znakem.

A i TurboPascal ma help. Staci jej pouzit, pokud hlava neslouzi...

Poněkud poopravím, v Turbo Pascalu je pouze funkce Upcase. Funkci Lowcase jsme si museli vždy dodělávat. V době češtiny se ovšem musela předělat i funkce Upcase, tak aby zvládala i česká písmenka. Vzpomínám si, že když jsem to dělal, zapomněl jsem na přehlasované ü a ö (Ü Ö), které se sem tam vyskytují i u českých jmen (namátkou Hübl).

TurboPascal má sice help, ale LoCase v něm ani dobře sloužící hlava nenajde... protože TP funkci pro převod na malá písmena nemá.

{bez diakritiky, doplnek Upcase}
function LoCase(C: Char): Char; assembler;
asm
  mov al,C
  cmp al,'A'
  jb @@1
  cmp al,'Z'
  ja @@1
  add al,'a'-'A'
@@1:
end;

{s diakritikou, LoChars a UpChars prepsat podle pozadovaneho kodovani}
function LowerCase(C: Char): Char;
const
  LoChars: string[32] = 'abcčdď ... zž';
  UpChars: string[32] = 'ABCČDĎ ... ZŽ';
var
  i: integer;
begin
  i := Pos(C,UpChars);
  if i <> 0 then LowerCase := LoChars[i] else LowerCase := C;
end;