Pascal, Notas de estudo de Informática

Baixe Pascal e outras Notas de estudo em PDF para Informática, somente na Docsity!

A

A

P

P

O

O

S

S

T

T

I

I

L

L

A

A

D

D

E

E

P

P

A

A

S

S

C

C

A

A

L

L

I

I

Profa. Gilene E. S. Borges Gomes

[email protected]

http://www.gomeshp.com

1

º

semestre / 2004

____________________________________________________________________ Gilene Borges Gomes ___

_____ http://www.gomeshp.com _______________________________________________________________________________

• 1. INTRODUÇÃO AO PASCAL.......................................................................................................... Índice
  • 1.A. EXERCÍCIOS ( I NTRODUÇÃO ) .......................................................................................................
• 2. COMANDOS DE ATRIBUIÇÃO / ENTRADA E SAÍDA ( READ / WRITE ) .......................
  • 2.A. EXERCÍCIOS ( READ / WRITE ) .....................................................................................................
• 3. COMANDO DE ALTERNATIVA SIMPLES E COMPOSTA ( IF THEN ELSE ) ...........
  • 3.A. EXERCÍCIOS ( IF THEN ELSE ) ................................................................................................
• 4. COMANDO DE MÚLTIPLA ESCOLHA ( CASE ) ...................................................................
  • 4.A. EXERCÍCIOS ( CASE ) ..................................................................................................................
• 5. REPETIÇÃO C/ TESTE NO INÍCIO ( WHILE ).......................................................................
  • 5.A. EXERCÍCIOS ( WHILE ) ................................................................................................................
• 6. REPETIÇÃO C/ TESTE NO FINAL ( REPEAT UNTIL ) .....................................................
  • 6.A. EXERCÍCIOS ( REPEAT UNTIL ) .................................................................................................
• 7. REPETIÇÃO C/ VARIÁVEL DE CONTROLE ( FOR TO / DOWNTO DO ) .................
  • 7.A. EXERCÍCIOS ( FOR TO / DOWNTO DO ) ...................................................................................
• 8. BIBLIOGRAFIA..............................................................................................................................
• 9. ANEXO A - UNIDADES PREDEFNIDAS................................................................................
  • 9.A. EXERCÍCIOS ( ANEXO A ) ..........................................................................................................
• 10. ANEXO B - MENUS E ERROS ..............................................................................................
  • 10.A. EXERCÍCIOS ( ANEXO B ) ........................................................................................................
• 11. ANEXO C - RESUMO DAS TECLAS UTILIZADAS NO TP 7.0 ..................................
  • 11.A. EXERCÍCIOS ( ANEXO C ) ........................................................................................................

____________________________________________________________________ Gilene Borges Gomes ___

_____ http://www.gomeshp.com _______________________________________________________________________________

Comentário – é usado para aumentar a clareza de um programa, embora não seja analisado

pelo computador. Um comentário deve ser escrito entre chaves:

{ comentário }

Declarações – todas as constantes

4

, tipos e variáveis

5

e declarados num bloco, devem estar

incluídas em uma declaração da forma:

const identificador : tipo = valor; { constantes }

type identificador = tipo; { tipos }

var lista-de-identificadores : tipo; { variáveis }

identificador – é formado por uma única letra ou então por uma letra seguida de letras ou

dígitos, em qualquer número. Ou seja, são os nomes atribuídos às variáveis.

lista-de-identificadores - são os identificadores das variáveis, separados por vírgula (,).

tipo – é o tipo das variáveis, ou seja, é o conjunto ordenado de valores que podem ser

atribuídos a estas variáveis. São eles: integer (inteiro), real (real), boolean (lógico), char (um único

caracter), string (seqüência de caracteres).

Exemplos:

const zero : integer = 0;

pi = 3.1416;

type estacao = (Verao, Outono, Inverno, Primavera);

diautil = (Seg, Ter, Qua, Qui, Sex);

nota = 0..10;

var x, y : real ;

cor : string ; { Define uma string com 255 posições }

mes : string [50]; { Define uma string com 50 posições }

dia : diautil;

est : estacao;

UNIT – Uma unidade é uma coleção de declarações de constantes, tipos, variáveis, funções e

procedimentos, compilada separadamente. Algumas destas declarações são de uso interno da unidade,

enquanto outras são visíveis, isto é, podem ser usadas por programas ou outras unidades.

USES – A cláusula uses permite que uma unidade faça uso de outras unidades. Para usar uma

ou mais unidades, um programa deve conter a cláusula uses antes das declarações de variáveis.

4

Constante é um tipo especial de variável, a qual não terá seu conteúdo modificado durante toda a execução de

um programa, ou seja, seu valor é fixo.

5

Podemos imaginar uma variável como o nome de um local onde se pode colocar qualquer valor do conjunto

de valores possíveis do tipo básico associado.

____________________________________________________________________ Gilene Borges Gomes ___

_____ http://www.gomeshp.com _______________________________________________________________________________

UNIDADES PREDEFINIDAS – O TURBO PASCAL possui diversas unidades

predefinidas: System, Printer, Crt, Dos, Overlay e Graph são as principais. Os identificadores usados

nestas unidades geralmente são formados por palavras compostas em inglês que lembram seu

significado. Mais detalhes podem ser encontrados no anexo A.

1.A. Exercícios ( Introdução )

1. O que é Turbo Pascal? O que ele possui?
2. Qual é a estrutura completa de um programa Pascal?
3. O que é uma unidade? Cite e resuma as principais unidades predefinidas pelo Turbo Pascal.
4. Qual é a diferença entre uma variável e uma constante?
5. Considerando A, B, C variáveis reais, contendo os valores 1.0, 4.5, 8.0, respectivamente; Nome e

Cor, as variáveis literais, contendo as seqüências de caracteres ‘Tania’ e ‘branco’,

respectivamente; e Teste, variável lógica, contendo o valor True determinar o valor das expressões

lógicas:

a) ( A = 1.0 ) and Teste

b) ( Nome = ‘Pedro’ ) or ( Cor < > ‘branco’ )

c) not Teste and ( B * 2.0 – C = 0.0 )

d) ( C < 10 ) or Teste and ( Cor = ‘preto’ )

e) Teste and not Teste

____________________________________________________________________ Gilene Borges Gomes ___

_____ http://www.gomeshp.com _______________________________________________________________________________

Exemplo: Fazer um programa para ler três notas e mostrar a média aritmética.

Coloque o fundo de tela em azul e as letras em vermelho.

Program Lista02a;

uses crt ;

var n1, n2, n3, md : real ;

begin

textbackground (Blue);

clrscr ;

textcolor (Red);

write (‘Digite a 1

a

nota: ‘);

readln (n1);

write (‘Digite a 2

a

nota: ‘);

readln (n2);

write (‘Digite a 3

a

nota: ‘);

readln (n3);

md := (n1 + n2 + n3) / 3;

writeln (‘Media: ‘, md:2:2);

readkey;

end.

Mostrando variáveis do tipo real

Utilize a seguinte formatação:

writeln (variavel:qe:qc);

variavel - deve ser do tipo real;

qe - indica a quantidade de espaços a serem utilizados para mostrar o valor, inclusive vírgula;

qc - indica a quantidade de casas decimais depois da vírgula.

Exemplo :

vr := 36.5; write (vr:5:2); saída 36.

vr := 1.2; write (vr:7:3); saída 1.

Existirão dois espaços em branco antes do valor 1,2.

____________________________________________________________________ Gilene Borges Gomes ___

_____ http://www.gomeshp.com _______________________________________________________________________________

2.A. Exercícios ( read / write )

1. Considerando as declarações e as atribuições abaixo:

var begin

Num : integer; Num := 5;

Soma, X : real; X := 2;

Simbolo : char; Cod := True;

Nome, Cor, Dia : string; Soma := 5;

Cod, Teste, Tudo : boolean; Nome := ‘SQL’;

end.

Assinalar os comandos de atribuição não permitidos:

( ) Simbolo := 5; ( ) X := X + 1;

( ) Soma := Num + 2 * X; ( ) Num := ‘ABC’;

( ) Teste := Cod or ( Sqr ( X ) < > Soma ); ( ) Dia := ‘Segunda’;

( ) Tudo := Soma; ( ) Soma + 2 := Sqr ( X ) – Sqrt ( Num );

( ) Cor := ‘preto’- Sqr ( X ); ( ) X := Nome >= Cod;

2. Com as mesmas declarações do exercício 1, quais serão os valores armazenados em Soma, Nome

e Tudo, supondo-se que Num, X, Dia, Teste e Cod valham, respectivamente, 5, 2.5, ‘terca’, false e

true?

a) Nome := Dia;

b) Soma := Sqr ( Num ) / X + Round ( X + 1 );

c) Tudo := not Teste or Cod and ( Soma < X );

3. Fazer um programa para ler um valor real e mostrar:

a) o valor absoluto c) a parte inteira

b) a parte fracionária d) o valor arredondado

4. Fazer um programa para ler uma frase e mostrar:

a) o tamanho da frase

b) a 1

ª

posição que ocorre a letra ‘A’ na frase

c) os dez primeiros caracteres da frase

d) os cinco últimos caracteres da frase

5. Escrever um programa para ler os valores dos catetos ( b e c ) de um triângulo e mostrar qual é o

valor da hipotenusa ( a ) desse triângulo. Regra: a

2

= b

2

• c

2

, isole a variável A.

____________________________________________________________________ Gilene Borges Gomes ___

_____ http://www.gomeshp.com _______________________________________________________________________________

3. Comando de alternativa simples e composta ( if .. then .. else )

A instrução if tem por finalidade tomar uma decisão e efetuar um desvio no processamento,

dependendo, é claro, da condição atribuída ser Verdadeira ou Falsa.

Sendo a condição Verdadeira, será executada a instrução que estiver escrita após a instrução

then. Caso seja necessário executar mais de uma instrução para uma condição verdadeira, estas

deverão estar mencionadas dentro de um bloco (definido com o uso das instruções begin e end ).

Sendo a condição Falsa, será executada a instrução que estiver escrita após a instrução else. Se

não existir a instrução else , será executada a instrução definida após a instrução then. Caso seja

necessário executar mais de uma instrução para uma condição falsa, estas deverão também estar

mencionadas dentro de um bloco.

Alternativa simples

if condição

then C

1

; { único comando }

if condição

then begin { mais de um comando é necessário }

C

1

; { begin e end }

C

2

end;

Alternativa composta

if condição

then C 1

else C a

if condição

then begin

C

1

C

2

end

else begin

C

a

C

b

end;

____________________________________________________________________ Gilene Borges Gomes ___

_____ http://www.gomeshp.com _______________________________________________________________________________

Exemplo: Fazer um programa para ler um número e mostrar se é igual a zero,

positivo ou negativo. O fundo de tela deve estar em azul e as letras em amarelo.

Program Lista03a;

uses crt ;

var num : real ;

begin

textbackground (Blue);

clrscr ;

textcolor (Yellow);

write (‘Digite um numero: ‘); readln (num);

if num = 0

then writeln (‘Igual a zero.‘)

else if num > 0

then writeln (‘Numero positivo.‘)

else writeln (‘Numero negativo.‘);

readkey ;

end.

Exemplo: Fazer um programa para ler duas notas, calcular e mostrar a média e

mostrar também se o aluno foi: reprovado (média inferior a 5.0); aprovado (média igual ou

superior a 7.0); indicado para 3

ª

avaliação (média entre 5.0 e 6.9). O fundo de tela deve

estar em cinza e as letras em azul.

Program Lista03b;

uses crt ;

var not1, not2, med : real ;

begin

textbackground (LightGray);

clrscr ;

textcolor (Blue);

writeln ; writeln ;

write ('Digite 1a. nota: '); readln (not1);

write ('Digite 2a. nota: '); readln (not2);

writeln ; writeln ;

med := (not1 + not2) / 2;

write ('Media: ',med:5:2);

if med < 5

then writeln (' - Aluno(a) reprovado(a).')

else if med >= 7

then writeln (' - Aluno(a) aprovado(a).')

else writeln (' - Aluno(a) indicado(a) para 3a. avaliação.');

readkey ;

end.

____________________________________________________________________ Gilene Borges Gomes ___

_____ http://www.gomeshp.com _______________________________________________________________________________

10. Uma faculdade atribui menções aos alunos conforme a faixa de notas que tenha atingido:

9,0 a 10: SS (superior) 7,0 a 8,9: MS (médio superior)

5, 0 a 6,9: MM (médio) 3,0 a 4,9: MI (médio inferior)

0,1 a 2,9: II (inferior) 0 : SR (sem rendimento).

Elaborar um programa para ler a nota e informar a menção.

11. Fazer um programa para ler três números diferentes e colocá-los em ordem crescente. Coloque o

fundo de tela com azul e os números crescentes em amarelo, marrom e vermelho, respectivamente.

12. Fazer um programa para ler os valores dos três lados de um triângulo (A, B, C). Verificar e

mostrar se é um triângulo ou não e qual é o tipo.

Dica 1: Triângulo é uma forma geométrica (polígono) composta por três lados, onde cada lado é

menor que a soma dos outros dois lados.

Dica 2: Um triângulo é: a) isósceles quando possui dois lados iguais e um diferente; b) escaleno

quando possui todos os lados diferentes; e c) equilátero quando possui todos os lados iguais.

13. DESAFIO : Construir um programa que seja capaz de concluir qual dentre os animais seguintes foi

escolhido, através de perguntas e respostas. Animais possíveis: leão, cavalo, homem, macaco,

morcego, baleia, avestruz, pingüim, pato, águia, tartaruga, crocodilo e cobra.

Exemplo:

É mamífero? Sim.

É quadrúpede? Sim.

É carnívoro? Não.

É herbívoro? Sim.

Então o animal escolhido foi o cavalo.

Utilize as seguintes classificações:

Quadrúpede Carnívoro Leão

Herbívoro Cavalo

Bípede Onívoro Homem

Frutífero Macaco

Voadores Morcego

Mamíferos

Aquáticos Baleia

Não-voadores Tropical Avestruz

Polar Pingüim

Nadadoras Pato

Aves

De rapina Águia

Com casco Tartaruga

Carnívoro Crocodilo

Répteis

Sem patas Cobra

____________________________________________________________________ Gilene Borges Gomes ___

_____ http://www.gomeshp.com _______________________________________________________________________________

4. Comando de múltipla escolha ( case )

A instrução case tem por finalidade tomar uma decisão baseando-se no conteúdo de uma

variável ou no resultado de uma expressão. Esta instrução pode simplificar o uso da instrução if.

A instrução case é assim definida:

case seletor of

lista-de-alvos : C 1

lista-de-alvos : C n

else Comando;

end;

case seletor of

lista-de-alvos : begin

C

a

C

b

end;

lista-de-alvos : begin

C

a

C

b

end;

else C 1

C

2

C

n

end;

seletor é qualquer expressão cujo valor seja de um tipo escalar (não é aceito real nem string ).

lista-de-alvos é uma lista de variáveis, separadas por vírgula, do mesmo tipo do seletor.

begin .. end devem ser utilizados se existir mais de um comando para uma determinada lista-

de-alvos, não sendo necessário na cláusula else.

Exemplo de lista-de-alvos: 1 .. 3 ( um até três )

6, 9 ( seis ou nove )

10 .. 30, 50 ( dez até trinta ou cinqüenta )

____________________________________________________________________ Gilene Borges Gomes ___

_____ http://www.gomeshp.com _______________________________________________________________________________

4.A. Exercícios ( case )

1. Fazer um programa para ler um número de 1 a 7 e mostrar o dia da semana correspondente na cor

azul, sendo domingo o dia de número 1. Se o número não corresponder a um dia da semana, é

mostrada uma mensagem de erro na cor vermelha. O fundo deve estar na cor cinza.

2. Fazer um programa para ler a letra inicial do estado civil de uma pessoa e mostrar a descrição de

acordo com a tabela abaixo:

C – Casado(a) S – Solteiro(a) V – Viúvo(a)

Q – Desquitado(a) D – Divorciado(a) qualquer outra letra – Inválido

3. Uma faculdade atribui menções aos alunos conforme a faixa de notas que tenha atingido:

90 a 100: SS (superior) 70 a 89: MS (médio superior)

50 a 69: MM (médio) 30 a 49: MI (médio inferior)

01 a 29: II (inferior) 0 : SR (sem rendimento).

Elabore um programa que lê a nota e informa a menção.

4. Elaborar um programa que, dada a idade de um nadador, classifique-o em uma das seguintes

categorias:

Não aceito : 0 – 4 anos Juvenil A : 11 – 13 anos

Infantil A : 5 – 7 anos Juvenil B : 14 – 17 anos

Infantil B : 8 – 10 anos Sênior : maiores de 17 anos

Mostrar uma mensagem de erro se a idade for negativa ou maior que 70 anos.

5. Construir um programa que, tendo como dados de entrada o preço de um produto e um código de

origem, mostre o preço junto de sua procedência ( Ex.: R$ 500.00 – Sul). Caso o código não seja

nenhum dos especificados, o produto deve ser encarado como importado.

Código de origem:

1 – Sul 5 ou 6 – Nordeste

2 – Norte 7 ou 8 ou 9 – Sudeste

3 – Leste 10 até 20 – Centro Oeste

4 – Oeste 25 até 50 – Nordeste

6. Fazer um programa para ler um número inteiro de 1 a 12 em vermelho e informar o mês

correspondente em verde, sendo janeiro o mês de número 1. Se o número não corresponder a um

mês válido, é mostrada uma mensagem de erro em azul.

7. Fazer um programa para solicitar o dia, mês e ano (em números) como entrada para o usuário e

mostrar a data no seguinte formato:

Exemplo: 10 12 2002 «=» 10 de Dezembro de 2002.

____________________________________________________________________ Gilene Borges Gomes ___

_____ http://www.gomeshp.com _______________________________________________________________________________

5. Repetição c/ teste no início ( while )

Esta estrutura de repetição, caracteriza-se por efetuar um teste lógico no início de um looping

6

verificando se o bloco de comandos será executado.

O controle da repetição é realizado pela condição

7

. Através deste comando (while), o bloco de

comandos será executado enquanto a condição for Verdadeira. No momento em que esta condição se

torna Falsa, o processamento do bloco é desviado para fora do looping. Sendo a condição Falsa logo

no início do looping, as instruções do bloco são ignoradas.

Para o comando while pode ser utilizado o bloco de comandos, quando se tem mais de um

comando a ser repetido; ou quando se tem apenas um comando não é necessário o uso de begin e end.

A instrução while é assim definida:

while condição do

begin

C

1

C

2

C

n

end;

E

E

n

n q

q u

u a

a n

n t

t o

o a

a c

c o

o n

n d

d i

i ç

ç ã

ã o

o f

f o

o r

r v

v e

e r

r d

d a

a d

d e

e i

i r

r a

a ,

o

o b

b l

l o

o c

c o

o d

d e

e c

c o

o m

m a

a n

n d

d o

o s

s é

é e

e x

x e

e c

c u

u t

t a

a d

d o

o .

Q

Q

u

u a

a n

n d

d o

o a

a c

c o

o n

n d

d i

i ç

ç ã

ã o

o f

f o

o r

r f

f a

a l

l s

s a

a ,

a

a r

r e

e p

p e

e t

t i

i ç

ç ã

ã o

o é

é f

f i

i n

n a

a l

l i

i z

z a

a d

d a

a .

SSeennddoo aa ccoonnddiiççããoo ffaallssaa nnoo iinníícciioo,, ooss ccoommaannddooss nnããoo ssããoo eexxeeccuuttaaddooss nneennhhuummaa vveezz..

Observações:

1. No exemplo abaixo, o ; (ponto e vírgula) após o comando do faz com que o programa entre

em loop eterno

8

, se a condição for verdadeira.

while condição do;

begin

C

1

C

n

end;

6

Trecho de programa executado repetidamente um número definido de vezes ( for ), ou até que uma condição

seja verdadeira ( repeat ), ou até que uma condição seja falsa ( while ).

7

Também conhecida como condição de parada.

8

Loop eterno - a condição nunca se torna falsa para que a repetição seja finalizada.

____________________________________________________________________ Gilene Borges Gomes ___

_____ http://www.gomeshp.com _______________________________________________________________________________

Exemplo: Fazer um programa para ler o sexo de dez pessoas e mostrar a

quantidade de pessoas do sexo masculino e do sexo feminino, separadamente.

Program Lista05c;

Digite o sexo [ F/M ]: F

Digite o sexo [ F/M ]: f

Digite o sexo [ F/M ]: M

Digite o sexo [ F/M ]: F

Digite o sexo [ F/M ]: M

Digite o sexo [ F/M ]: m

Digite o sexo [ F/M ]: f

Digite o sexo [ F/M ]: M

Digite o sexo [ F/M ]: F

Digite o sexo [ F/M ]: f

6 – mulheres.

4 – homens.

uses crt ;

var sxm, sxf, c : integer ;

sexo : char ;

begin

clrscr ;

c := 0; sxm := 0; sxf := 0;

while c < 10 do begin

write ( ‘Digite o sexo [ F/M ]: ‘ );

readln (sexo);

sexo := upcase (sexo);

if sexo = ‘F’

then sxf := sxf + 1

else if sexo = ‘M’

then sxm := sxm + 1;

c := c + 1;

end ;

writeln ;

writeln ( sxf, ‘ - mulheres. ‘ );

writeln ( sxm, ‘ - homens. ‘ );

readkey ;

end.

Exemplo: Fazer um programa para mostrar o produto de vários valores fornecidos

como entrada. O último valor será 999.

Program Lista05d;

999 para Finalizar

Digite um número: 2

Digite outro número: 3

Digite outro número: 10

Digite outro número: 2

Digite outro número: 1

Digite outro número: 999

Produto: 120.

uses crt ;

var prod, num : real ;

begin

clrscr ;

prod := 1;

writeln ( ‘ 999 para Finalizar ‘ );

write ( ‘ Digite um número: ‘ );

readln ( num );

while num < > 999 do begin

prod := prod * num;

write ( ‘ Digite outro número: ‘ );

readln ( num );

end ;

writeln ( ‘ Produto: ‘, prod:5:2 );

readkey ;

end.

____________________________________________________________________ Gilene Borges Gomes ___

_____ http://www.gomeshp.com _______________________________________________________________________________

5.A. Exercícios ( while )

1. Após a execução do programa abaixo, o que terá sido apresentado na tela? Faça o teste de mesa e

apresente os valores das variáveis.

Program Ex01;

uses crt ;

var a, b, c : integer ;

begin

clrscr ;

a := 1; b := 5; c := 5;

while c >= 1 do

begin

writeln ( a, ‘ – ‘, b );

inc ( a );

dec ( b );

dec ( c );

end ;

end.

2. Fazer um programa individual para cada um dos itens abaixo para calcular e mostrar:

a) os números inteiros de 1 a 100, inclusive.

b) os números inteiros de 1 a 20, inclusive; ordem decrescente.

c) os números pares de 100 a 200, inclusive.

d) a tabuada de multiplicação de um número fornecido como entrada.

e) o fatorial de um número inteiro fornecido como entrada (N!). Ex.: 5! = 5 x 4 x 3 x 2 x 1.

3. Elaborar um programa individual para cada um dos itens abaixo para calcular e mostrar:

a) a soma parcial de 7 números fornecidos como entrada.

b) o produto de 10 números fornecidos como entrada.

c) a média de 5 números fornecidos como entrada.

d) a quantidade de pessoas maiores de idade ( >= 18 ), dentre 10 idades lidas.

e) os n primeiros termos de uma progressão aritmética (P.A.) de elemento inicial a e razão r.

f) a média dos números pares, dentre 10 números lidos. Pode ocorrer que nem todos os números

sejam pares.

4. Construir um programa individual para cada um dos itens abaixo para calcular e mostrar:

a) a soma de vários valores inteiros e positivos fornecidos como entrada. O último valor será –1.

b) o soma de vários números pares fornecidos como entrada. O último valor será –1.