Testes de avaliação de 1 a 4

Nome 
N.° Turma Ano Data Professor
(Perimetro).
(Area).
(Perimetro = 2 x (Comp + Larg)).
Variável Constante
Var N1, N2: inteiro
Const H = 60
Var Nome: string
Const A = 6
inteiro;
37
e)
;
num = 5 Então
h)
”)
g)
f)
Então
d)
c)
Ler (
b)
Escrever
a)
acum <- 0
i <- 1
False
acum <- acum + num
i <- i + 1
38
(B)
False
soma <- 0
idade <- 0
soma <- soma + idade
acum <- 0
False
acum <- acum + num
end;
d)
c)
do
b)
var i, num,
a)
= ,
Teste de avalia??o 3.doc
Teste de Avaliação 3
1. Crie um programa em Pascal que permita efetuar a leitura de uma quantidade indeterminada de números
reais. 
Os valores lidos vão sendo somados e, por cada valor lido, é apresentado o subtotal resultante. A leitura 
dos valores termina quando digitar o número zero, sendo, depois, apresentado o total final e a média dos
números lidos. 
Por exemplo, para os valores abaixo apresentados (4, 7.5, 0.5, 0), seriam mostradas as seguintes saídas de
dados.
Digite um número real
4
Subtotal
Digite um número real
7.5
Subtotal
Digite um número real
0.5
Subtotal
Digite um número real
0
Total final = 12.000000
Média = 4.000000
2. Crie um programa em Pascal que permita efetuar a leitura de um número real e listar os dez números de
valor inferior ou igual ao lido com decrementos de 0.2. 
Por último, apresente a soma dos valores listados. 
Por exemplo, para o valor lido 4 seria apresentada a seguinte saída de dados.
4
3.800000
…
2.000000
Soma = 29.000000
Teste de Avaliação 3
3. Considere o programa seguinte.
Program Sub_Rotinas1;
Var comp, larg:real;
Function area:real;
Begin
area := comp * larg;
End;
Function perimetro:real;
Var c1: real;
Begin
c1 := comp + larg;
perimetro := 2 * c1;
End;
Procedure lista_dados;
Begin
Writeln('Dados de entrada');
Writeln('Medida do comprimento do retângulo = ', comp);
Writeln('Medida da largura do retângulo = ', larg);
End;
Begin
Writeln('Digite a medida do comprimento do retângulo');
Readln(comp);
Writeln('Digite a medida da largura do retângulo');
Readln(larg);
lista_dados;
Writeln('Perímetro do retângulo = ', perimetro);
Writeln('Área do retângulo = ', area);
End.
3.1. Indique o número de sub-rotinas utilizadas no programa.
3.2. Indique a designação e a finalidade das funções utilizadas.
3.3. Indique a designação e a finalidade do procedimento utilizado.
3.4. Transcreva as instruções utilizadas para chamar as funções e o procedimento.
3.5. Identifique as variáveis globais e locais utilizadas no programa.
4. Desenvolva um programa, em Pascal, que permita declarar a variável “texto_titulo” do tipo cadeia de
caracteres, permitindo inserir um número variável de caracteres, tendo no máximo 255 caracteres. 
O programa tem de permitir:
• inserir o título de um livro à sua escolha para a variável “texto_titulo”;
• apresentar o número de caracteres existentes no título do livro;
• apresentar em maiúsculas o título do livro;
• apresentar a posição em que surge o primeiro carácter “p”, no título do livro.
Teste de Avaliação 3
Pretende-se registar o número de travessias diárias efetuadas numa ponte por veículos automóveis
ligeiros de passageiros realizadas em sete dias consecutivos.
• Declare um vetor “travessia” com sete elementos para registar o número de travessias.
• Crie o procedimento InsiraTrav, de forma a permitir ao utilizador registar o número de travessias
diárias.
• Crie a função TotalTrav, permitindo calcular o número total de travessias realizadas.
Considere o programa seguinte.
Program Passagem_Arg;
Var n1,n2:real;
Procedure Dobro(var x,y:real);
Begin
x := x * 2;
y := y * 2;
End;
Function Soma(a,b:real):real;
Begin
Soma := a + b;
End;
Begin
writeln('Indique um número inteiro ');
readln(n1);
writeln('Indique outro número inteiro ');
readln(n2);
Dobro(n1, n2);
writeln('Dobro dos números indicados = ', n1,' e ', n2);
writeln('Soma dos números ', n1,' com ', n2,' = ', Soma(n1, n2));
End.
6.1. Identifique os parâmetros que recebem os valores passados de argumentos por referência.
6.2. Identifique os parâmetros que recebem os valores passados de argumentos por valor.
6.3. Acrescente ao programa o procedimento Igual_Menor, de forma a determinar se os valores são iguais
ou, caso sejam diferentes, apresentar o menor dos valores n1 e n2.
Escola Ano letivo 
Nome 
N.° Turma Ano Data Professor
= 12.000000
= 11.500000
= 4.000000
41
5.
6.
Teste de avalia??o 4.doc
Teste de Avaliação 4
Grupo 1: Programação orientada aos eventos
1. Crie um projeto no Visual Basic, com um formulário semelhante ao apresentado na figura 1, que permita
ao utilizador indicar um valor entre 1 e 10 e, de seguida, ao clicar no botão de comando “Calcular”, é 
apresenta a tabuada correspondente ao valor inserido (Fig. 2). 
Fig. 1
Fig. 2
Teste de Avaliação 4
2. Considere o seguinte código em Visual Basic.
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.load
Dim mes As Integer
mes = Val(InputBox(“Introduza um valor entre 1 e 12 inclusive.”))
If mes = 1 Then
MsgBox(“Janeiro”)
End If
If mes = 2 Then
MsgBox(“Fevereiro”)
End If
If mes = 3 Then
MsgBox(“Março”)
End If
If mes = 4 Then
MsgBox(“Abril”)
End If
If mes = 5 Then
MsgBox(“Maio”)
End If
If mes = 6 Then
MsgBox(“Junho”)
End If
If mes = 7 Then
MsgBox(“Julho”)
End If
If mes = 8 Then
MsgBox(“Agosto”)
End If
If mes = 9 Then
MsgBox(“Setembro”)
End If
If mes = 10 Then
MsgBox(“Outubro”)
End If
If mes = 11 Then
MsgBox(“Novembro”)
End If
If mes = 12 Then
MsgBox(“Dezembro”)
End If
Close()
End Sub
Crie um projeto no Visual Basic, substituindo a estrutura de seleção encadeada por uma estrutura de
seleção múltipla. 
Teste de Avaliação 4
3. Crie um projeto no Visual Basic, com um formulário semelhante ao apresentado na figura 3, que permita
ao utilizador inserir um determinado valor e o converta de seguida em horas, minutos e segundos. 
Fig. 3
4. Crie um projeto no Visual Basic, que permita ao utilizador inserir 10 valores e, de seguida, mostre quantos
números são superiores a 25 e quantos são inferiores a 25.
5. Crie um projeto no Visual Basic, com um formulário semelhante ao apresentado na figura 4, que realize
a conversão da temperatura de graus Celsius para graus Fahrenheit e vice-versa, conforme pressione 
o respetivo botão de conversão.
O botão “Celsius” deverá iniciar inativo. Utilize um procedimento que alterne o modo habilitado/
desabilitado dos botões “Celsius” e “Fahrenheit”.
Fig. 4
Escola Ano letivo 
Nome 
N.° Turma Ano Data Professor