1ª PP 3 anoGabarito

Prévia do material em texto

ASSINATURA_____________________________________N0 ___________ TURMA ______
INFORMÁTICA III – 02 QUESTÕES
1ª Questão (valor 10,0 pontos)
Observe o programa.
 
1.1)Identifique o comando com erro de sintaxe e reescreva-o corretamente. (valor 2,0 pontos)
________________________________________________________________
1.2)Complete a procedure “imprime” com os comandos necessários para que os dados do vetor sejam exibidos na tela. (valor 3,5 pontos).
________________________________________________________________
________________________________________________________________
________________________________________________________________
________________________________________________________________
�
Observe o programa correspondente a questão 1.3.
1.3)Identifique que figura será apresentada na tela para um valor de x igual a 10.(valor 4,5 pontos).
________________________________________________________________
________________________________________________________________
�
2ª Questão (valor 10,0 pontos)
Pedro possui uma coleção de discos de vinil. Ele precisa de um programa que o auxilie quando desejar ouvir suas músicas preferidas. Para ajudá-lo você deve construir um programa em Pascal com as seguintes características:
a)O programa receberá uma variável que poderá conter opções: 1- consulta ou 2- inclusão ou 3- exclusão ou 4- Fim da execução do programa. Qualquer outro valor de variável deve ser informado ao Pedro um erro e o programa deve retornar para obter uma opção válida.
b)Obtida a opção de inclusão, o aplicativo deve abrir o arquivo texto, obter do teclado o titulo do disco, a faixa e a música, e em seguida adicionar estes dados ao arquivo aberto. O nome do arquivo deve ser “musicas.txt” e estará no mesmo diretório do programa pascal. 
c)Obtida a opção de consulta, o aplicativo deve abrir o arquivo texto de discos, o mesmo utilizado no procedimento de inclusão, e exibir na tela todos os registros com o título do disco, as faixas e a música de cada faixa.
d)Obtida a opção de exclusão, crie o procedimento necessário, mas sem nenhum comando, apenas para não dar erro de compilação no programa.
 
	
Resposta:
�
Gabarito:
1.1
 	 while not eof (logico) do
1.2 
	for i:= 1 to qtde do
 	writeln (' ',v[i,1],' ',v[i,2]); 
1.3
Será escrito um losando com x de tamanho dos lados
2. 
program q2;
var
opc:integer;
logico:text;
fisico:string;
titulo,musica:string[10];
faixa:integer;
procedure cons;
begin
reset (logico);
 while not eof (logico) do
 begin
 readln(logico,titulo,faixa,musica);
 writeln(titulo,' ',faixa,' ',musica);
 end;
close(logico);
end;
procedure inc;
begin
append(logico);
writeln('digite o tiluto');
readln(titulo);
writeln('digite a faixa');
readln(faixa);
writeln('digite a musica');
readln(musica);
writeln(logico,titulo,' ',faixa,' ',musica);
close (logico);
end;
procedure exc;
begin
end;
begin
fisico:='d:\musicas.txt';
assign(logico,fisico);
writeln('digite a opção: 1-consulta 2-inclusão 3-exclusão 4-fim');
readln(opc);
while opc <> 4 do
 begin
 if opc = 1 then
 cons
 else
 if opc = 2 then
 inc
 else
 if opc = 3 then
 exc
 else
 writeln('você digitou uma opção inválida');
 writeln('digite a opção: 1-consulta 2-inclusão 3-exclusão 4-fim');
 readln(opc);
 end;
end.