6. astea | alfabeto zati bat pantailaratu

Jarraian erakusten den AlfabetoLarriarenZatia.pas programaren bitartez, ondoko hauek ikasiko ditugu:

• readkey funtzioa (crt unitatearen beharrezkoa da)
  
• keypressed funtzioa (crt unitatearen beharrezkoa da)
• clrscr prozedura (crt unitatearen beharrezkoa da)

Hauxe da AlfabetoLarriarenZatia.pas programa:

program AlfabetoLarriarenZatia ;
uses
   crt ;
var
   cLetra: char ;
   cLehenLetra: char ;
   cAzkenLetra: char ;
begin
   clrscr ;
   writeln ;
   writeln ;
   repeat
      write('''A'' eta ''Z'' arteko lehen letra bat eman: ') ;
      cLehenLetra := readkey ;
      writeln(cLehenLetra) ;
   until (cLehenLetra >= 'A') and (cLehenLetra <= 'Z') ;
   
   writeln ;
   repeat
      write('''', cLehenLetra, ''' eta ''Z'' arteko azken letra bat eman: ') ;
      cAzkenLetra := readkey ;
      writeln(cAzkenLetra) ;
   until (cAzkenLetra >= cLehenLetra) and (cAzkenLetra <= 'Z') ;
   
   writeln ;
   writeln('     Karakterea        Kodea') ;
   writeln('     ----------        -----') ;

   for cLetra:=cLehenLetra to cAzkenLetra do
   begin
      writeln(cLetra:15, ' -----> ', ord(cLetra)) ;
   end ;
   
   writeln('     ----------        -----') ;
   writeln('     Karakterea        Kodea') ;            
   
   writeln ;
   repeat until keypressed ;
   
   {
   writeln ;
   write('RETURN sakatu aurrera egiteko ') ;
   readln ;
   
   writeln ;
   repeat 
      writeln('keypressed = ', keypressed) ;
   until keypressed ;
   }
end.

Ondoko funtzio hauek ikas ditzagun ere:

• upcase funtzioa
  
• lowercase funtzioa
  
• succ funtzioa
  
• pred funtzioa
  
• ord funtzioa
  
• chr funtzioa