Lista 03a - DCC/UFMG

More documents

Recommendations

Info

program l3p056;varC, CODSEXO,NMULHER: integer;ALTURA,MAIOR,MENOR: real;SOMAMULHER,MEDIAMULHER: real;SOMATURMA,MEDIATURMA: real;beginNMULHER := 0;SOMAMULHER := 0;SOMATURMA := 0;for C := 1 to 50 dobeginwrite('Entre com a altura: ');readLn(ALTURA);write('Entre com o codigo do sexo (1(M),2(F)): ');readLn(CODSEXO);if ( C = 1) then beginMAIOR := ALTURA; { primeira leitura }MENOR := ALTURA; endelseif ALTURA > MAIOR then { leituras posteriores }MAIOR := ALTURAelseif ALTURA < MENOR thenMENOR := ALTURA;if ( CODSEXO = 2 ) then beginNMULHER := NMULHER + 1;SOMAMULHER := SOMAMULHER + ALTURA; end;SOMATURMA := SOMATURMA + ALTURA;end;MEDIAMULHER := SOMAMULHER / NMULHER;MEDIATURMA := SOMATURMA / 50;writeLn('Maior altura da turma: ',MAIOR:3:2);writeLn('Menor altura da turma: ',MENOR:3:2);writeLn('Media de altura das mulheres: ',MEDIAMULHER:3:2);writeLn('Media de altura da turma: ' ,MEDIATURMA :3:2);end.%C, CODSEXO,NMULHER: integer;%ALTURA,MAIOR,MENOR: real;%SOMAMULHER,MEDIAMULHER: real;%SOMATURMA,MEDIATURMA: real;NMULHER = 0;SOMAMULHER = 0;SOMATURMA = 0;for C = 1 : 50ALTURA = input('Entre com a altura: ');CODSEX = input('Entre com o codigo do sexo (1(M),2(F)): ');if ( C == 1) % primeira leituraMAIOR = ALTURA;MENOR = ALTURA;elseif ( ALTURA > MAIOR ) % leituras posterioresMAIOR = ALTURA;elseif ( ALTURA < MENOR )MENOR = ALTURA;endendendif ( CODSEX == 2 )NMULHER = NMULHER + 1;SOMAMULHER = SOMAMULHER + ALTURA;endSOMATURMA = SOMATURMA + ALTURA;endMEDIAMULHER = SOMAMULHER / NMULHER;MEDIATURMA = SOMATURMA / 50;fprintf(1,'Maior altura da turma: %f\n',MAIOR);fprintf(1,'Menor altura da turma: %f\n',MENOR);fprintf(1,'Media de altura das mulheres: %f\n',MEDIAMULHER);fprintf(1,'Media de altura da turma: %f\n',MEDIATURMA);UFMG – ICEx – DCC – Programação de Computadores – 2º. Sem 2005 – David Menoti 66
57) Escreva um algoritmo em PORTUGOL que:- leia 100 fichas, onde cada ficha contém o número de matrícula e a nota de cada alunode um determinado curso;- determine e imprima as duas maiores notas, juntamente com o número de matrícula doaluno que obteve cada uma delas;- Suponha que não exista dois ou mais alunos com a mesma nota.algoritmo L3P057;varinteiro: C, NMAT,MNMAT1,MNMAT2;real: NOTA,MNOTA1,MNOTA2;iníciopara C de 1 até 100 façaleia(NMAT);leia(NOTA);se ( C = 1 ) ou ( NOTA > MNOTA1 ) entãoMNOTA2 ← MNOTA1;MNMAT2 ← MNMAT1MNOTA1 ← NOTA;MNMAT1 ← NMAT;senãose ( C = 2 ) ou ( NOTA > MNOTA2 ) entãoMNOTA2 ← NOTA;MNMAT2 ← NMAT;fim-sefim-sefim-paraimprima("Número de Matrícula: ",MNMAT1," tem a maior nota: ",MNOTA1);imprima("Número de Matrícula: ",MNMAT2," tem a segunda maior nota: ",MNOTA2);fimalgoritmo L3P057B;varinteiro: C, NMAT,MNMAT1,MNMAT2;real: NOTA,MNOTA1,MNOTA2;inícioleia(NMAT);leia(NOTA);MNOTA1 ← NOTA;MNMAT1 ← NMAT;leia(NMAT);leia(NOTA);se ( NOTA > MNOTA1 ) entãoMNOTA2 ← MNOTA1;MNMAT2 ← MNMAT1MNOTA1 ← NOTA;MNMAT1 ← NMAT;senãoMNOTA2 ← NOTA;MNMAT2 ← NMAT;fim-separa C de 3 até 100 façaleia(NMAT);leia(NOTA);se ( NOTA > MNOTA1 ) entãoMNOTA2 ← MNOTA1;MNMAT2 ← MNMAT1MNOTA1 ← NOTA;MNMAT1 ← NMAT;senãose ( NOTA > MNOTA2 ) entãoMNOTA2 ← NOTA;MNMAT2 ← NMAT;fim-sefim-sefim-paraimprima("Número de Matrícula: ",MNMAT1," tem a maior nota: ",MNOTA1);imprima("Número de Matrícula: ",MNMAT2," tem a segunda maior nota: ",MNOTA2);fimUFMG – ICEx – DCC – Programação de Computadores – 2º. Sem 2005 – David Menoti 67
Page 6 and 7:
6) Escreva um algoritmo em PORTUGOL
Page 10 and 11:
10) Escreva um algoritmo em PORTUGO
Page 12 and 13:
Page 14 and 15:
Page 16 and 17: 16) Criar um algoritmo em PORTUGOL
Page 29 and 30: 29) Escreva um algoritmo em PORTUGO
Page 41 and 42: 41) A série de Fibonacci é formad
Page 43 and 44: 43) A série de FETUCCINE é gerada
Page 45 and 46: 44) Seja a seguinte série:1, 4, 9,
Page 47 and 48: 46) Sendo H = 1 + 21 + 31 + 41 + ..
Page 49 and 50: 48) Faça um algoritmo em PORTUGOL
Page 51 and 52: 50) Faça um algoritmo que:- leia u
Page 53 and 54: 51) O valor aproximado do número
Page 55 and 56: program l3p052;varI, J: integer;X,
Page 57 and 58: 53) Implementar um algoritmo em POR
Page 59 and 60: % I: integer;% X, CS, FAT: real;fpr
Page 61 and 62: program l3p054b;varI: integer;X, E,
Page 63 and 64: program l3p055;varI, J, N: integer;
Page 65: 56) Escreva um algoritmo em PORTUGO
Page 69 and 70: %C, NMAT,MNMAT1,MNMAT2: integer;%NO
Page 71 and 72: algoritmo L3P058;varinteiro: C, IDA
Page 73 and 74: % C, IDADE,NOTIMO,NRUIM,NPESSIMO,NB
Page 75 and 76: algoritmo L3P059;varinteiro: C, NAM
Page 77 and 78: % C, NAM,NAV,NAN,NBM,NBV,NBN,NCM,NC
Page 79: program l3p060;varC,CPF,NDEP: integ
show all

Lista 03a - DCC/UFMG

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?