Aluno

Disponível somente no TrabalhosFeitos
  • Páginas : 5 (1016 palavras )
  • Download(s) : 0
  • Publicado : 27 de março de 2013
Ler documento completo
Amostra do texto
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 asacentuaçõ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 (Nmod 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 beginBNotas:=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 programa Pascal para ler 3 strings com até 50 caracteres e destacar a maior destas em números de letras. program MaiorStr; var S1, S2, S3: string[50]; begin readln(S1,S2,S3); if (length(S1)>length(S2)) and (length(S1)>length(S3)) then writeln(‘Maior string, em numero de letras: ‘, S1) else if (length(S2)>length(S3)) then writeln(‘Maior string, em numero de letras: ‘,S2) elsewriteln(‘Maior string, em numero de letras: ‘,S3); end.

7. Faça um programa Pascal para ler 50 strings com até 30 caracteres, e destacar a maior destas alfabeticamente. program MaiorStr; var S, Maior: string[30]; I: integer; begin readln(S); Maior:=S; for:=1 to 50 do begin readln(S); if S > Maior then Maior:=S; end; writeln(Maior); end;

8. Faça um programa Pascal para ler um nome, composto por nome esobrenome (separados por espaço em branco), e compor: SOBRENOME, Nome. Exemplo: Dado Bento Souza, o programa deve exibir: SOUZA, Bento. program DestacaSobrenome; var Pos, {Posicao do espaco em branco.} Aux: integer; {Contador auxiliar.} Nome, NovoNome: string[30]; begin readln(Nome); {Localizando a posicao do espaco em branco.} for Aux:=1 to length(Nome) do if Nome[Aux]=’ ‘ then begin Pos:=Aux;break; end; NovoNome:=’’; {Destacando o sobrenome.} for Aux:=Pos+1 to length(Nome) do NovoNome:=NovoNome+upcase(Nome[Aux]); {Acrescentando a vírgula e o sobrenome.} NovoNome:=NovoNome+’, ’; {Acrescentando o nome.} for Aux:=1 do Pos do NovoNome:=NovoNome+Nome[Aux]; writeln(NovoNome); end.

Outra Solução +=+=+=+=+=+=+ program DestacaSobrenome; var P, {Posicao do espaco em branco.} Aux:integer; {Contador auxiliar.} Nome, PreNome, Sobrenome: string[30]; begin readln(Nome); {Localizando o espaco em branco; usando a função pos.} P:=pos(‘ ‘,Nome); {Destacando o sobrenome; usando copy.} Sobrenome:= copy(Nome,P+1,length(Nome)-P); {Ajustando o sobrenome para maiúscula.} for Aux:=1 to length(Sobrenome) do Sobrenome[Aux]:= upcase(Sobrenome[Aux]); {Destacando o prenome; usando copy.}...
tracking img