Comandos e Funções Auxiliares
Licenciatura em Computação Programação Estruturada Prof. Nícolas Trigo
[email protected]
Visão
Declaração de Constantes Comandos Coman dos TextColor TextColor e TextBackGround TextBackGround Comando GoToXY Comando Delay Comando / Função Readkey Função Random Função Length Função KeyPressed Função Ord Função Chr
1
Declaração de Constantes
O início da seção de declaração de constantes é indicada através da palavra reservada CONST. Sintaxe: const identificador1, ..., identificadorN = constante;
onde constante deve ser uma constante inteira, real, uma cadeia de caracteres ou um único caractere.
Exemplo: const n = 10;
var v: array[1..n] of string;
A declaração acima define uma constante inteira cujo valor é 10.
Comandos TextBackGround e TextColor
TEXTBACKGROUND define a cor de fundo de textos. TEXTCOLOR define a cor do texto. Sintaxe: Exemplo: textcolor(listaDeCores);
Program PascalZIM;
textbackground(listaDeCores); Begin textcolor(lightcyan);
O parâmetro listaDeCores pode ser BLUE , GREEN , CYAN , RED , MAGENTA, BROWN , LIGHTGRAY , DARKGRAY , LIGHTBLUE , LIGHTGREEN , LIGHTCYAN , LIGHRED , LIGHMAGENTA, YELLOW , WHITE ou BLACK .
textbackground(red); write('Olá, mundo!'); End.
Pode ser utilizada uma combinação de cores, como em: textcolor(RED+BLUE);
2
Comando GoToXY
O comando GOTOXY define a posição do cursor do teclado na tela. Sintaxe: gotoxy (coluna: integer , linha: integer) ;
Exemplo:
Program PascalZIM; Begin gotoxy(10,6); writeln('Olá mundo!'); gotoxy(10,5); writeln('Olá pessoal!'); End.
A frase ‘Olá, pessoal!’ fica acima da frase ‘Olá mundo!’.
Comando Delay
Suspende a execução do programa durante X milissegundos. Sintaxe: delay(< valor>);
Onde
é um número ou expressão do tipo integer que indica, em milisegundos, quanto tempo a execução do programa será suspensa.
Exemplo
Program PascalZIM; var miliSegundos: integer; begin write('Quanto tempo, em milisegundos, o programa ficará inativo? '); readln(miliSegundos); writeln('Parando a execução por um tempo... '); delay(miliSegundos); writeln('De volta à ativa!'); end.
3
Comando / Função Readkey
Solicita a leitura de um caracter do teclado. Pode ser utilizado como um comando ou como uma função. Sintaxe readkey;
Exemplo
Program PascalZIM ; begin writeln(‘Encerrando...’); readkey;
Como função, sintaxe é:
function readkey: char;
Exemplo
Program PascalZIM ; var c: char ; begin writeln('Digite um char:'); c:= readkey; writeln('Você digitou: ', c); end.
end.
Função Random / Comando Randomize
Recebe como parâmetro um inteiro x e retorna um número n no intervalo 0 <= n < x. Sintaxe
function random(x:integer):integer;
Exemplo
Program PascalZIM ; var i: integer ; begin i := 1; randomize;
Inicializa o gerador de números randômicos do compilador. Sintaxe
randomize;
repeat writeln(random(100)); i:= i + 1; until i>10; end.
4
Função Length
Retorna o comprimento de uma cadeia de caracteres. Sintaxe
function length ():integer;
Exemplo
Program PascalZIM; var
s: string; Onde é uma cadeia de caracteres ou uma expressão envolvendo a begin concatenação de várias cadeias. write('Digite: '); readln(s); writeln('O comprimento da cadeia lida = ', length(s)); end.
Função KeyPressed
Verifica se foi pressionada alguma tecla. Sintaxe
function keypressed:boolean;
Sintaxe
Program PascalZIM ; Begin while not keypressed do Begin write('x'); End; End.
5
Função Ord
Recebe como parâmetro um caractere e retorna o inteiro correspondente ao código ASC II referente ao caracter. Sintaxe function Ord(X:char): integer;
Exemplo:
Program PascalZIM; Var c: char; Begin c := readkey; writeln(‘Código ASCII para "c" = ', ord('c')); end.
Função Chr
Recebe como parâmetro um inteiro e retorna o caracter ASC II correspondente ao código identificado com esse inteiro. Sintaxe function chr( x: integer ): char;
Exemplo:
Program PascalZIM; var i: integer; begin for i := 32 to 126 do writeln( chr(i) ); end.
6
Exercício Resolvido
Elabore um algoritmo que forneça uma palavra, verifique e mostre se esta palavra é ou não um palíndromo. Obs.: Palíndromo é a frase ou palavra que mantém o mesmo sentido quando lida de trás pra frente.
Palavras palíndromos: • anilina • racificar • reviver • rodador • salas • seres • socos
Exercício Resolvido program palindromo; var i,j: integer; word: string; ehPalindromo: boolean; begin ehPalindromo := true; write('Digite uma palavra: '); readln(word); j := length(word); for i := 1 to length(word) do begin if(word[i] <> word[j])then begin ehPalindromo := false; end; // Continua ao lado
j := j - 1; end; if (ehPalindromo) then begin writeln('A palavra ',word,' é um palindromo!'); end else begin writeln('A palavra ',word,' não é um palindromo!'); end; end.
7
Exercícios Propostos 1. 2. 3. 4.
Faça um algoritmo que receba uma frase, calcule e mostre a quantidade de letras da frase digitada. Faça um algoritmo que receba uma frase, calcule e mostre a quantidade de vogais da frase digitada. Faça um algoritmo que receba uma frase, calcule e mostre a quantidade de cada uma das vogais da frase digitada. Faça um algoritmo para criptografar uma frase dada pelo usuário, ou seja, a criptografia inverte a frase e troca as vogais pelo símbolo @. Faça algoritmos que utilizam os recursos apresentados neste material, abuse da criatividade!
8