Ir ao conteúdo
  • Cadastre-se

Charles Diogo123

Membros Juniores
  • Total de itens

    10
  • Registro em

  • Última visita

  • Qualificações

    N/D
  1. Faça um algoritmo que receba a idade de 10 pessoas e mostre a menor e a maior idade digitada fiz o algoritmo mais quando digito as idades o resultado não mostra a maior e a menor digitada, o que estou fazendo de errado? Var idade, cont, maior, menor: integer; Begin writeln('Digite a primeira idade:'); read(idade); maior:= idade; menor:= idade; for Cont:= 1 to 10 do begin writeln('proxima idade:'); read(idade); if idade > maior then; begin maior:= idade end; begin if idade < menor then begin menor:= idade end; end; end; writeln('O maior numero é:', maior); writeln('O menor numero é:', menor); End.
  2. 1 - Faça um algoritmo que receba o Nome de e a idade de 3 pessoas, e mostre o nome e a idade da pessoa com maior idade. Se a idade for igual ao da idade digitada anteriormente, mantém-se a primeira idade digitada. eu fiz o algoritmo mais quando digito os valores no programa o resultado mostra o nome e a idade com maior idade errada, poderia me dizer o que estou fazendo de errado?? VAR Idade, contagem, Idade_recebida: Integer; Nome, Nome_recebido : String; begin CONTAGEM:=1; Idade_recebida:= 0; Idade:=0; Repeat writeln('Digite seu Nome'); Readln(Nome_recebido); writeln('Qual sua idade'); Readln(Idade_recebida); IF CONTAGEM = 1 THEN BEGIN Nome:= Nome_recebido; Idade:= Idade_recebida; END ELSE BEGIN IF Idade_recebida > IDADE THEN BEGIN Nome:= Nome_recebido; Idade:= Idade_recebida; END; END; CONTAGEM:= CONTAGEM + 1; UNTIL CONTAGEM = 4; Writeln('A maior Idade foi de : ', Nome_recebido); Writeln('A idade digitada foi: ', Idade_recebida); READLN; end.
  3. 1. Faça um algoritmo que receba as idades de 10 pessoas e some as idades pares. Use o comando REPEAT 2. Faça o mesmo algoritmo só que somando também as idades ímpares e somando todas as idades ímpares + pares juntas. O Algoritmo é esse: var lista:array[1..10]of integer; pessoas, par:integer; begin; pessoas :=0; repeat writeln(' digite idade '); pessoas:=pessoas + 1; readln(lista[pessoas]); until (pessoas =10); pessoas:=0; par:=0; repeat pessoas:=pessoas + 1; if((lista[pessoas] mod 2)=0) then par:=par+lista[pessoas] ; until (pessoas =10); writeln('soma das idades pares é ',par); end. Por exemplo: para calcular somente as idades ímpares era só mudar mod 2 = 0 para mod 2 = 1 então como eu faria para colocar a soma dos idades ímpares no algoritmo acima e como faria para somar as idades ímpares e pares?
  4. faça um algoritmo que receba a idade de 5 pessoas e mostre na tela a soma das idades dos maiores ou iguais a 18 anos não estou conseguindo terminar pois na hora que digito os dados no programa os resultados não batem com a resposta, podem me dizer o estou fazendo de errado (Fiz o algoritmo no Pascalzim) Program Pzim ; Var i, idade, total: integer; Begin For i:=1 to 5 do begin Writeln('Digite a idade:'); read(idade); if (idade>=18) then total:=total + 1 end; Writeln('A soma das idades maiores de 18 anos é ', total); if (idade=18) then total:=total - 1; Writeln('A soma das idades iguais a 18 anos é ', total); End.
  5. Faça um algoritmo que mostre a quantidade de pessoas que são do sexo masculino e feminino e a soma das idades de cada sexo e mostre a porcentagem de pessoas do sexo feminino e masculino e o total de pessoas usadas no algoritmo. Eu só consegui fazer o algoritmo somando as idades de cada sexo, alguém poderia ajudar a terminar o exercício? var cont,soma_f,soma_m,idade, soma: integer; sexo: string; Begin For cont:= 1 to 5 do begin Writeln('Informe o sexo (com a letra minuscula):'); read(sexo); Writeln('Informe a idade:'); read(idade); if (sexo='m') then soma_m:= soma_m + idade else if (sexo='f') then soma_f:= soma_f + idade; end; Writeln('Soma das idades do sexo masculino: ',soma_m); Writeln('Soma das idades do sexo feminino: ',soma_f); end. (FIZ O ALGORITMO NO PASCALZIM)
  6. fiz isso ate aqui: esta certo? o que falta pra terminar? Program Pzim ; var idade, soma: integer; ida_maior, ida_menor: integer; Cont: integer; Begin For Cont:= 1 to 5 do begin Writeln('Informe as idades:'); read(idade); end; if (idade mod 2 = 0) then ida_maior := ida_maior + 1; soma:= ida_maior + idade; End.
  7. Um algoritmo que possua a idade de 5 pessoas e soma as idades das pessoas que forem maiores que 18 anos, e também mostre a soma das idades das pessoas que forem menores de idade.
  8. Alguns trabalhadores terão aumento salarial e é o patrão que o calculará. Calcule também a sua idade e os anos trabalhados, seguindo as tabelas: O Algoritmo deverá receber o salario atual do funcionário, sua idade e mostrar: seu antigo salario, a porcentagem de aumento recebida e seu novo salario. Eu consegui fazer até essa parte:(Se estiver certo é claro) Begin Writeln('Digite sua idade'); readln(idade); Writeln('Digite seu salario'); readln(salario); Writeln('Digite a quantidade de Anos trabalhados'); readln(anos trabalhados); CASE IDADE OF 0..25: Begin CASE Anos_trabalhados OF 0..3: Porcentagem:=5; 4..6: Porcentagem:=10; Else Porcentagem:=15; End; End; 26..35: Begin CASE Anos_trabalhados OF 0..9: Porcentagem:=20; 10..15: Porcentagem:=25; Else Porcentagem:=30; End; End; Else Begin CASE Anos_trabalhados OF 0..10: Porcentagem:=30; 11..20: Porcentagem:=40; 21..30: Porcentagem:=50; 31..40: Porcentagem:=60; Else Porcentagem:=70; End; End; End; End. Falta os cálculos que não consigo fazer... ESSA TABELA UTILIZADA PARA FAZER O ALGORITMO...
  9. Faça um algoritmo que receba um caractere qualquer do teclado e mostre a seguintes mensagens: se for uma letra do alfabeto, a mensagem mostrada deverá ser: 'Esse caractere e uma letra do alfabeto', caso seja um numero ela deverá ser: 'Esse caractere e um numero', e caso seja outro caractere, deverá aparecer essa outra mensagem: 'Esse caractere é um outro caractere qualquer'. Esse algoritmo também deve mostrar o caractere digitando dessa maneira: 'O caractere digitado foi: CARACTERE'.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×