Aluno

Universidade Federal de Sergipe Centro de Ciências Exatas e Tecnologia Departamento de Computação Programação Imperativa Prof. Kenia Kodel

Resolução de Exercícios
ESTRUTURAS DE REPETIÇÃO

Para testar os programas-respostas: (a) acrescentar readln antes do end final; (b) reduzir os limites máximos das repetições, quando for o caso; (c) acrescentar as perguntas aos usuários e (d) excluir as acentuações dos identificadores, quando houver. 1. Escrever programa Pascal para exibir números de 1 a n, sendo n dado pelo usuário. a. aplicando a estrutura de repetição FOR b. aplicando a estrutura de repetição REPEAT c. aplicando a estrutura da repetição WHILE a) program UsandoFOR; var N, I: integer; begin readln(N); for I:=1 to N do writeln(I); end. b) program UsandoREPEAT; var N, I: integer; begin readln(N); I:=0; repeat I:=I+1; writeln(I); until (I=N); end. c) program UsandoWHILE; var I, N: integer; begin readln(N); I:=0; while IN do begin I:=I+1; writeln(I); end; end.

2. Escrever programa Pascal para ler números até que o usuário tenha inserido (digitado) 25 números divisíveis por 7. program DivisiveisPor7; var N, Q: integer; begin I:=0; while I25 do begin readln(N); if (N mod 7 = 0) then I:=I+1; end; end. 3. Escrever programação Pascal para ler notas de 100 alunos e identificar se cada foi aprovado. Considerar que há 8 avaliações e para obtenção de aprovação o aluno deve ter no mínimo 5 notas maior ou igual a 7. program Avalia; var Alunos, Av, {contador de avaliações} BNotas: integer; {quantidade de boas notas} Notas: real; begin for Alunos:=1 to 100 do begin BNotas:=0; for Av:=1 to 8 do begin readln(Notas); if Notas>=7 then BNotas:=BNotas+1; end; if BNotas >=5 then writeln(‘>>> Aprovado Reprovado > Aprovado >> Aprovado Reprovado Reprovado Nao ha termo anterior! S2) and (S1>S3) then writeln(‘Maior string alfabeticamente: ‘, S1) else if (S2>S3) then writeln(‘Maior string alfabeticamente: ‘,S2) else writeln(‘Maior string alfabeticamente: ‘,S3); end. 6. Faça um