57612234-Comandos-e-Funcoes-Auxiliares-1

Prévia do material em texto

1
Comandos e FunComandos e Funçções Auxiliaresões Auxiliares
Licenciatura em Computação
Programação Estruturada
Prof. Nícolas Trigo
nicolas.trigo@ifsertao-pe.edu.br
Visão
� Declaração de Constantes
� Comandos TextColor e TextBackGround
� Comando GoToXY
� Comando Delay
� Comando / Função Readkey
� Função Random
� Função Length
� Função KeyPressed
� Função Ord
� Função Chr
2
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:
textcolor(listaDeCores);
textbackground(listaDeCores);
� Exemplo:
Program PascalZIM;
Begin
textcolor(lightcyan);
textbackground(red);
write('Olá, mundo!');
End.
Pode ser utilizada uma 
combinação de cores, como em: 
textcolor(RED+BLUE);
O parâmetro listaDeCores pode ser 
BLUE, GREEN, CYAN, RED, 
MAGENTA, BROWN, LIGHTGRAY, 
DARKGRAY, LIGHTBLUE, 
LIGHTGREEN, LIGHTCYAN, LIGHRED, 
LIGHMAGENTA, YELLOW, WHITE ou 
BLACK.
3
Comando GoToXY
� 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!’.
� O comando GOTOXY define a posição do cursor do 
teclado na tela. 
� Sintaxe:
gotoxy (coluna: integer , linha: integer) ;
Comando Delay
� Suspende a execução 
do programa durante 
X milissegundos.
� Sintaxe:
delay(< valor>);
� Onde <valor> é 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.
4
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; 
� 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.
� Exemplo
Program PascalZIM ;
begin
writeln(‘Encerrando...’);
readkey; 
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;
� Inicializa o gerador de números 
randômicos do compilador. 
� Sintaxe
randomize;
� Exemplo
Program PascalZIM ;
var
i: integer ;
begin
i := 1;
randomize;
repeat
writeln(random(100)); 
i:= i + 1;
until i>10;
end.
5
Função Length
� Retorna o comprimento de 
uma cadeia de caracteres.
� Sintaxe
function length (<chrs>):integer;
� Onde <chrs> é uma cadeia de caracteres 
ou uma expressão envolvendo a 
concatenação de várias cadeias.
� Exemplo
Program PascalZIM; 
var
s: string;
begin
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.
6
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.
7
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.
8
Exercícios Propostos
1. Faça um algoritmo que receba uma frase, calcule e mostre 
a quantidade de letras da frase digitada.
2. Faça um algoritmo que receba uma frase, calcule e mostre 
a quantidade de vogais da frase digitada.
3. Faça um algoritmo que receba uma frase, calcule e mostre 
a quantidade de cada uma das vogais da frase digitada.
4. 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!