45) Seja a seguinte série:1, 4, 4, 2, 5, 5, 3, 6, 6, 4, 7, 7, ...Escreva um algoritmo em PORTUGOL que seja capaz de gerar os N termos dessasérie. Esse número N deve ser lido do teclado.algoritmo L3P045;varinteiro: N, C;inícioleia(N);para C de 1 até N façase ( C mod 3 = 1 ) entãoimprima( ( C div 3 ) + 1 ); { 1º, 4º, 7º , ... }senão-se ( C mod 3 = 2 ) entãoimprima( ( C div 3 ) + 4 ); { 2º, 5º, 8º , ... }senãoimprima( ( C div 3 ) + 3 ); { 3º, 6º, 9º , ... }fim-sefim-parafimprogram l3p045;varN, C: integer;beginwrite('Digite o numero de termos: ');read(N);for C := 1 to N dobeginif ( C mod 3 = 1 ) thenwriteLn( ( C div 3 ) + 1 ) { 1o, 4o, 7o , ... }else if ( C mod 3 = 2 ) thenwriteLn( ( C div 3 ) + 4 ) { 2o, 5o, 8o , ... }elsewriteLn( ( C div 3 ) + 3 ); { 3o, 6o, 9o , ... }end;end.N = input('Digite o numero de termos: ');for C = 1 : Nif ( mod(C,3) == 1 )fprintf(1,'%d\n', floor( C / 3 ) + 1 ) % 1o, 4o, 7o , ...elseif ( mod(C,3) == 2 )fprintf(1,'%d\n', floor( C / 3 ) + 4 ); % 2o, 5o, 8o , ...elsefprintf(1,'%d\n', floor( C / 3 ) + 3 ); % 3o, 6o, 9o , ...endend<strong>UFMG</strong> – ICEx – <strong>DCC</strong> – Programação de Computadores – 2º. Sem 2005 – David Menoti 46
46) Sendo H = 1 + 21 + 31 + 41 + ... N1 , faça um algoritmo em PORTUGOL para gerar onúmero H. O número N é lido do teclado.algoritmo L3P046;varinteiro: N, C;real: H;inícioH ← 0;leia(N);para C de 1 até N façaH ← H + 1 / C;fim-paraimprima("H = ",H);fimprogram l3p046;varN, C: integer;H: real;beginwrite('Digite um numero: ');readLn(N);H := 0;for C := 1 to N doH := H + 1 / C;writeLn('H = ',H:5:4);end.% N, C: integer;% H: real;N = input('Digite um numero: ');H = 0;for C = 1 : NH = H + 1 / C;endfprintf(1,'H = %f\n',H);<strong>UFMG</strong> – ICEx – <strong>DCC</strong> – Programação de Computadores – 2º. Sem 2005 – David Menoti 47
- Page 6 and 7: 6) Escreva um algoritmo em PORTUGOL
- Page 10 and 11: 10) Escreva um algoritmo em PORTUGO
- Page 12 and 13: 12) Escreva um algoritmo em PORTUGO
- Page 14 and 15: 14) Escreva um algoritmo em PORTUGO
- Page 16 and 17: 16) Criar um algoritmo em PORTUGOL
- Page 18 and 19: 18) Criar um algoritmo em PORTUGOL
- Page 20 and 21: 20) Criar um algoritmo em PORTUGOL
- Page 23 and 24: 23) Criar um algoritmo em PORTUGOL
- Page 25 and 26: 25) Criar um algoritmo em PORTUGOL
- Page 27 and 28: 27) Criar um algoritmo em PORTUGOL
- Page 29 and 30: 29) Escreva um algoritmo em PORTUGO
- Page 31 and 32: 31) Escreva um algoritmo em PORTUGO
- Page 33 and 34: 33) Escreva um algoritmo em PORTUGO
- Page 35 and 36: 35) Escreva um algoritmo em PORTUGO
- Page 37 and 38: 37) Escreva um algoritmo em PORTUGO
- Page 39 and 40: 39) 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: 44) Seja a seguinte série:1, 4, 9,
- 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 and 66: 56) Escreva um algoritmo em PORTUGO
- Page 67 and 68: 57) 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