apostila

(Na˜o use multiplicac¸a˜o. Apenas operac¸o˜es
de soma):
1 x N
2 x N
3 x N
4 x N
5 x N
Isto e´, suponha que N=3. Enta˜o a sa´ıda deve ser:
3
6
9
12
15
Outro exemplo, para N=6
6
12
18
24
30
4. Dado um nu´mero inteiro que representa uma quantidade de segundos, determi-
nar o seu valor equivalente em graus, minutos e segundos. Se a quantidade de
segundos for insuficiente para dar um valor em graus, o valor em graus deve ser
0 (zero). A mesma observac¸a˜o vale em relac¸a˜o aos minutos e segundos. Por
exemplo: 3.600 segundos = 1 grau, 0 minutos, 0 segundos. ; 3.500 segundos =
0 graus, 58 minutos e 20 segundos.
5. Dadas duas frac¸o˜es ordina´rias a/b e c/d, determinar a sua soma e o seu produto,
no formato de frac¸o˜es. A entrada de dados deve ser constitu´ıda de duas linhas,
cada uma contendo dois inteiros, uma para a e b outra para c e d. A sa´ıda
devera´ ser tambe´m de duas linhas cada uma contendo um par que representa o
numerador e o denominados da soma e produto calculadas.
50 CAPI´TULO 5. CONCEITOS ELEMENTARES
6. Ler uma sequeˆncia de N nu´meros e imprimir a me´dia aritme´tica.
7. Calcular o produto dos nu´meros ı´mpares de N1 a N2 (incluindo ambos), onde
N1 ≤ N2 sa˜o lidos do teclado.
8. Calcule o valor da soma dos quadrados dos primeiros 50 inteiros positivos na˜o
nulos.
9. Ler uma massa de dados onde cada linha conte´m um nu´mero par. Para cada
nu´mero lido, calcular o seu sucessor par, imprimindo-os dois a dois em listagem
de sa´ıda. A u´ltima linha de dados conte´m o nu´mero zero, o qual na˜o deve ser
processado e serve apenas para indicar o final da leitura dos dados.
10. Ler uma massa de dados onde cada linha conte´m um valor nume´rico do tipo
real. O programa deve calcular a me´dia aritme´tica dos diversos valores lidos,
imprimindo cada valor lido e, ao final, a me´dia calculada. A u´ltima linha de
dados conte´m o u´nico nu´mero zero. Este zero na˜o deve ser considerado no
ca´lculo da me´dia.
11. Ler uma massa de dados contendo a definic¸a˜o de va´rias equac¸o˜es do segundo
grau da forma Ax2 + Bx + C = 0. Cada linha de dados conte´m a definic¸a˜o de
uma equac¸a˜o por meio dos valores de A, B e C do conjunto dos nu´meros reais. A
u´ltima linha informada ao sistema conte´m 3 (treˆs) valores zero (exemplo 0.0 0.0
0.0). Apo´s a leitura de cada linha o programa deve tentar calcular as duas ra´ızes
da equac¸a˜o. A listagem de sa´ıda, em cada linha, devera´ conter sempre os valores
de A, B e C lidos, seguidos dos valores das duas ra´ızes reais. Considere que o
usua´rio entrara´ somente com valores A, B e C tais que a equac¸a˜o garantidamente
tem duas ra´ızes reais.
12. Dados dois nu´meros inteiros positivos determinar quantas vezes o primeiro di-
vide exatamente o segundo. Se o primeiro na˜o divide o segundo o nu´mero de
vezes e´ zero.
13. Fac¸a um programa em Pascal que imprima exatamente a sa´ıda especificada na
figura 1 (abaixo) de maneira que, em todo o programa, na˜o aparec¸am mais do
que treˆs comandos de impressa˜o.
14. Fac¸a um programa em Pascal que imprima exatamente a mesma sa´ıda solicitada
no exerc´ıcio anterior, mas que use exatamente dois comandos de repetic¸a˜o.
15. Fac¸a um programa em Pascal que receba dois nu´meros inteiros N e M como
entrada e retorne como sa´ıda N MOD M usando para isto apenas operac¸o˜es de
subtrac¸a˜o. O seu programa deve considerar que o usua´rio entra com N sempre
maior do que N .
16. Adapte a soluc¸a˜o do exerc´ıcio anterior para que a sa´ıda seja exatamente con-
forme especificada na figura 2 (abaixo).
5.10. EXERCI´CIOS 51
17. Fac¸a um programa em Pascal que receba uma massa de dados contendo o saldo
banca´rio de alguns clientes de um banco e imprima aqueles que sa˜o negativos.
O u´ltimo saldo, que na˜o corresponde a nenhum cliente (e portanto na˜o deve ser
impresso), conte´m o valor –999.999,99.
1
121
12321
1234321
123454321
12345654321
1234567654321
123456787654321
12345678987654321
Figura 1
1
121
12321
1234321
123454321
12345654321
1234567654321
123456787654321
12345678987654321
Figura 2
18. Para cada uma das expresso˜es aritme´ticas abaixo, determine o tipo de dados
da varia´vel que esta´ no lado esquerdo do comando de atribuic¸a˜o bem como o
resultado da expressa˜o que esta´ no lado direito:
(a) A := 1 + 2 ∗ 3;
(b) B := 1 + 2 ∗ 3/7;
(c) C := 1 + 2 ∗ 3 DIV 7;
(d) D := 3 DIV 3 ∗ 4.0;
(e) E := A+B ∗ C −D
19. Indique qual o resultado das expresso˜es abaixo, sendo:
a=6; b=9.5; d=14; p=4; q=5; r=10; z=6.0 ; sim= TRUE
• ((z/a)+b*a)-d DIV 2
• p*(r MOD q)-q/2
• NOT sim AND (z DIV y + 1 = x)
• (x + y > z) AND sim OR (y >= x)
20. Indique qual o resultado das expresso˜es abaixo, sendo:
a=5; b=3; d=7; p=4; q=5; r=2; x=8; y=4; z=6; sim=TRUE
(a) (z DIV a + b * a) - d DIV 2
(b) p / r MOD q - q / 2
(c) (z DIV y + 1 = x) AND sim OR (y >= x)
21. Escrever um programa em Pascal que leia do teclado uma sequeˆncia de nu´meros
inteiros ate´ que seja lido um nu´mero que seja o dobro ou a metade do anterior-
mente lido. O programa deve imprimir na sa´ıda os seguintes valores:
52 CAPI´TULO 5. CONCEITOS ELEMENTARES
• a quantidade de nu´meros lidos;
• a soma dos nu´meros lidos;
• os dois valores lidos que forc¸aram a parada do programa.
Exemplos:
Entrada
-549 -716 -603 -545 -424 -848
Saı´da
6 -3685 -424 -848
Entrada
-549 -716 -603 -545 -424 646 438 892 964 384 192
Saı´da
11 679 384 192
22. Escreva um programa que troque o conteu´do de duas varia´veis inteiras sem
utilizar varia´veis auxiliares.
23. Escreva em Pascal as seguintes expresso˜es aritme´ticas usando o mı´nimo poss´ıvel
de pareˆnteses:
(a) W
2
Ax2+Bx+C
(b)
P1+P2
Y−Z R
W
AB
+R
24. Tente compilar este programa. Procure descobrir qual(is) e´ (sa˜o) o(s) erro(s) e
corrigi-lo(s).
(∗ programa que le um numero e retorna o ultimo algarismo ∗)
(∗ escrito por Marcos Castilho em 22/10/2002, com erros . ∗)
program ultalgarismo ;
begin
read (A)
writeln (A mod 10, A div 10) ;
end.
25. Seja o seguinte programa em Pascal :
program Misterio ;
var nota1 ,nota2 ,media: integer ;
begin
readln(nota1 ,nota2)
while nota1 <> 0 do
media:=nota1+nota2/2;
writeln(nota1 ,nota2 ,media) ;
readln(nota1 ,nota2) ;
end.
5.10. EXERCI´CIOS 53
(a) Quantos sa˜o, e quais sa˜o, os erros de compilac¸a˜o deste programa?
(b) Considerando que voceˆ corrigiu os erros de compilac¸a˜o corretamente, o que
faz este programa?
(c) Considerando a estrutura do programa, os nomes das varia´veis e a en-
dentac¸a˜o usada, podemos afirmar que o programador cometeu alguns erros
de lo´gica. Quantos sa˜o e quais sa˜o estes erros?
(d) O que faz o programa faz apo´s estas correc¸o˜es?
26. Enumere e explique todos os erros contidos no seguinte co´digo Pascal :
program misterio2 ;
var
m, g: real ;
N1, N2: integer ;
begin
readln(N1, N2) ;
i f (N1 > N2) then
m := N2
else
m := N1;
g:= 1;
while g do
begin
if (N1 mod m = 0) AND (N2 mod m = 0) then
g := 0;
else
m := m− 1;
end;
i f (m := N1) then
writeln(’O valor resultante eh: ’ m) ;
end.
27. Dado o programa abaixo, mostre o acompanhamento de sua execuc¸a˜o para treˆs
valores de entrada (valores pequenos). Em seguida, descreva o que o programa
faz, comprovando suas afirmac¸o˜es.
program questao1(input , output) ;
var
x: integer ;
y, m: longint ;
begin
read(x) ;
y := 0;
m := 1;
while x > 0 do
begin
y := y + (x mod 2) ∗ m;
x := x div 2;
m := m ∗ 10;
end;
writeln(y)
end.
54 CAPI´TULO 5. CONCEITOS ELEMENTARES
28. Uma ageˆncia governamental deseja conhecer a distribuic¸a˜o da populac¸a˜o do pa´ıs
por faixa salarial. Para isto, coletou dados do u´ltimo censo realizado e criou um
arquivo contendo, em cada linha, a idade de um cidada˜o particular e seu sala´rio.
As idades variam de zero