A maior rede de estudos do Brasil

Grátis
Testes de avaliação de 1 a 4

Pré-visualização | Página 1 de 3

Resolu??o dos testes.pdf
Soluções
A
IB
12
G
P 
©
 P
or
to
 E
di
to
ra
2. 
Comp Larg
Area<- 
Comp* Larg
Perimetro<- 
2*(Comp+Larg)
Saída
1.° 12
2.° 12 10
3.° 12 10
Area<-12*10 
120
4.° 12 10
Area<-12*10 
120
Perimetro<- 
2*(12+10)
44
5.° 12 10
Area<-12*10 
120
Perimetro<- 
2*(12+10)
44
Área = 120 
Perímetro= 
44
3. a) Variável b) Constante
 c) Variável d) Constante
4. Estrutura de seleção composta.
5. Estrutura de controlo do tipo repetição ou ciclo (Para).
6. 
 Program num_par_impar;
 var num:integer;
 Begin
 writeln('Digite um número inteiro ');
 readln(num);
 if num mod 2 = 0 then
 writeln(num,' é par')
 else
 writeln(num,' é ímpar'); 
 End.
 Program num_media;
 var i,n,soma,num:integer;
 media:real;
 Begin
 writeln('Indique quantos inteiros quer digitar');
 readln(n);
 soma:=0;
 for i:=1 to n do
 begin
 writeln('Indique um número inteiro ');
 readln(num);
 soma:=soma + num;
 end;
 media:=soma/n;
 writeln ('A média dos números indicados = ',media);
 End.
7.1. a) num b) num c) Então d) 2 e) Senão 
f) “Terça-feira” g) num=4 h) Se i) FimSe
7.2. O algoritmo permite ao utilizador indicar um número 
inteiro, apresentando de seguida o correspondente dia 
da semana.
Teste diagnóstico
3. Sequência finita de instruções descritas de forma lógica, 
ordenada, clara e precisa a fim de resolver o problema.
4. É um algoritmo codificado numa linguagem 
de programação. 
5. (B) 6. (A) 7. (B) 8. (D)
9. Os ficheiros de gráficos vetoriais baseiam-se em fórmulas 
matemáticas, enquanto que os ficheiros de gráficos 
bitmap baseiam-se em pequenos quadrados designados 
por pixéis.
12. BMP - Imagem bitmap
 JPG - Imagem bitmap
 MOV - Vídeo
 MP4 - Vídeo
 SVG - Desenho vetorial
 MP3 - Áudio
 WAV - Áudio
 CDR - Desenho vetorial
 XCF - Imagem bitmap
Teste de avaliação 1
1. 
(A) (B) 
(C) (D) 
(E) (F) 
(G) 
2. (A) Numérico (B) Texto
 (C) Numérico (D) Lógico
3. (A) False (B) True (C) False (D) True (E) True
4. (A) 17 (B) 17 (C) 1 (D) 32
Teste de avaliação 2
1.
Início
Perimetro <- 2 * (Comp + Larg)
Ler (Comp)
Ler (Larg)
Escrever (”Área =“, Area, ” Perímetro =“, Perimetro) 
Fim
Área <- Comp * Larg
AIB12GP_20141160_F04.indd 57 4/9/15 11:42 AM
Soluções
A
IB
12G
P ©
 Porto E
ditora
7.3. 
 Program Dias_semana;
 var num:integer;
 Begin
 writeln ('Indique um número inteiro entre 0 
e 6 ');
 readln(num);
 case num of
 0:writeln('Sábado');
 1:writeln('Domingo');
 2:writeln('Segunda-feira');
 3:writeln('Terça-feira');
 4:writeln('Quarta-feira');
 5:writeln('Quinta-feira');
 6:writeln('Sexta-feira'); 
 end; 
 End.
8. (A) Ciclo For (Para)
 (B) Ciclo Repeat (Repetir)
 (C) Ciclo While (Enquanto)
9.1. a) acum b) nj c) num d) media
9.2. O programa permite ao utilizador registar o número de 
adeptos a assistir a um determinado número de jogos 
de uma equipa, calculando e apresentado depois o total 
e a média dos valores.
9.3. 
Início
acum <- 0
acum <- acum + num
media <- acum / nj
Ler (nj)
Ler (num)
False
True
Escrever (”Total =“, acum) 
Escrever (”Indique a quantidade de jogos a registar“)
Escrever (”Média =“, media) 
Fim
i <- 1
i <- i + 1
i <= nj
Teste de avaliação 3
1. 
 Program Total_Subtotal;
 var n,soma,media:real;
 conta:integer;
 Begin
 soma:=0;
 conta:=0;
 repeat
 writeln('Digite um número real' );
 readln(n);
 soma := soma + n;
 writeln('Subtotal = ', soma);
 conta := conta + 1;
 until (n=0); 
 media := soma /(conta - 1);
 writeln('Total final = ', soma);
 writeln('Media = ', media); 
 End.
2. 
 Program Lista_10;
 var i:integer;
 num,soma:real;
 Begin
 writeln('Indique um valor inteiro');
 readln(num);
 for i:=1 to 10 do
 begin
 num := num - 0.2;
 writeln(num);
 soma := soma + num;
 end;
 writeln('Soma = ', soma); 
 End.
3.1. 3
3.2. area – calcula a medida da área do retângulo a partir 
das medidas indicadas pelo utilizador. 
perimetro – calcula a medida do perímetro do retângulo 
a partir das medidas indicadas pelo utilizador.
3.3. lista_dados – apresenta os dados da medida do 
retângulo, largura e comprimento, indicados pelo 
utilizador.
3.4. 
lista_dados;
Writeln ('Perímetro do retângulo = ', perimetro);
Writeln('Área do retângulo = ', area);
3.5. Globais: comp, larg
 Locais: c1
4. 
 Program Titulo_Texto;
 var texto_titulo:string;
 Begin
 writeln('Indique o título do livro ');
 readln(texto_titulo);
 writeln ('O título que indicou tem ', 
length(texto_titulo),' caracteres');
 writeln ('O título em maiúsculas = ', 
upcase(texto_titulo));
 writeln ('O primeiro carácter "p" surge em ', 
pos('p', texto_titulo));
 End.
AIB12GP_20141160_F04_3PCImg.indd 58 4/8/15 3:39 PM
Soluções
A
IB
12
G
P 
©
 P
or
to
 E
di
to
ra
5. 
 Program Trav_Ponte;
 var travessias:array[1..7] of integer;
 procedure InsiraTrav;
 var i:integer;
 begin
 for i:=1 to 7 do
 begin
 writeln ('Indique o número de travessias do 
dia ',i);
 readln(travessias[i]);
 end;
 end;
 function TotalTrav:integer;
 var i,t:integer;
 begin
 t:=0;
 for i:=1 to 7 do
 t := t + travessias[i];
 TotalTrav := t;
 end;
 Begin
 InsiraTrav;
 writeln ('Total de travessias registadas = ', 
TotalTrav); 
 End.
6.1. x e y no procedimento Dobro.
6.2. a e b na função Soma.
6.3. 
 Procedure Igual_Menor;
 begin
 if n1 = n2 then
 writeln (‘Indicou valores iguais’)
 else if n1 < n2 then
 writeln (‘O menor dos valores indicados 
é’ , n1)
 else
 writeln (‘O menor dos valores indicados 
é ’, n2);
 end;
Teste de avaliação 4
1.
Public Class Form 1
 Pr ivate Sub Button1_Click (sender As Object, e As 
EventArgs) Handles Button1.Click
 Dim a, i As Integer
 ListViwe1.Items.Clear()
 a = Val(MaskedTextBox1.Text)
 For i = 1 To 10
 ListViews1.Items.Add (a & “ x ” & i & “ = ” & 
i * a)
 Next
 End Sub
 Pr ivate Sub Form1_Load(sender As Object, e As 
EventArgs) Handles MyBase.Load
 End Sub
 Pr ivate Sub ListView1_SelectedIndexChanged (sender 
As Object, e As EventArgs) Handles 
ListView1.SelectIndexChanged
 End Sub
End Class
2.1. 
Private Sub Form1_Load(Sender As Object, e As 
EventArgs) Handles MyBase.Load
 Dim mes As Integer
 mes = Val(inputBox(“Introduza um valor ente 1 e 12 
inclusive.”))
 Select mês
 Case 1
 MsgBox(“Janeiro”)
 Case 2
 MsgBox(“Fevereiro”)
 Case 3
 MsgBox(“Março”)
 Case 4
 MsgBox(“Abril”)
 Case 5
 MsgBox(“Maio”)
 Case 6
 MsgBox(“Junho”)
 Case 7
 MsgBox(“Julho”)
 Case 8
 MsgBox(“Agosto”)
 Case 9
 MsgBox(“Setembro”)
 Case 10
 MsgBox(“Outubro”)
 Case 11
 MsgBox(“Novembro”)
 Case 12
 MsgBox(“Dezembro”)
 End Select
 Close()
End Sub
3. 
Private Sub MaskedTextBox1_TextChanged (sender As 
Object, e As EventArgs) Handles 
MaskedTextBox1.TextChanged
 If Val(MaskedTextBox1.Text) > 0 Then
 Button1.Enabled = True
 Else Button1.Enabled = False
 End If
Private Sub Button1_Click(sender As Object, e As 
EventArgs) Handles Button1.Click
 Dim valor, resto As Integer
 Label1.Text = “”
 valor = Val(MaskedTextBox1.Text)
 resto = valor Mod 60
 valor \= 60
 Label1.Text = resto & “ s ”
 Resto = valor Mod 60
 Valor \= 60
 Label1.Text = resto & “ m ” & Label1.Text
 Label1.Text = valor & “ h ” & Label1.Text
End Sub
AIB12GP_20141160_F04_3PCImg.indd 59 4/8/15 3:39 PM
Soluções
A
IB
12G
P ©
 Porto E
ditora
4. 
Private Sub Form1_Load(sender As Object, e As 
EventArgs) Handles MyBase.Load
 Dim a, maior, menor As Integer
 maior = 0
 menor = 0
 For a = 1 To 10
 If (Val(InputBox(“Introduza um número”))) < 25 
Then
 menor += 1
 Else maior += 1
 End If
 Next
 Label2.Text = maior
 Label4.Text = menor
End Sub
Private Sub Button1_Click(sender As Object, e As 
EventArgs) Handles Button1.Click
 Me.Close()
End Sub
5. 
Sub troca()
 Button1.Enabled = Not Button1.Enabled
 Button2.Enabled = Not Button2.Enabled
End

Crie agora seu perfil grátis para visualizar sem restrições.