Charles Diogo123

Galera, meu notebook a bateria viciou e já não funciona mais já faz alguns anos, de lá pra cá só uso o notebook conectado na energia, mais nós últimos dias notei que quando eu conecto o cabo no note ele liga sem apertar o botão Power, isso é uma coisa para se preocupar ou teria alguma forma de reverter isso? Procurei na internet e achei um comando que digita no CMD mais não funciona, formatar o HD resolveria de alguma forma? Meu notebook é core i5 4210u, ram: 6gb, Windows 8 pro, uso um SSD de 120gb Kingston a400 e um HD 500GB como hd externo comprado recentemente, desde já agradeço a ajuda

Bom dia, estava escrevendo um codigo para o meu curso e surgiu um erro em uma linha do codigo que não consigo resolver, alguem podia me ajudar.... Código: o erro seria nessa linha que tem esse codigo: "\nEndereco:"+pa.getEndereco()+ import java.awt.*; import java.awt.event.*; import javax.swing.*; import java.util.*; public class Cadastro extends JFrame implements ActionListener{ private JTextField Nome,Telefone,Telefone2,Telefone3,Endereco,Cpf,Rg,Email,Numero,Complemento,cidade,bairro,cep,data_nascimento; private JButton cadas,consul,limpa; private JLabel nome,endere,tele,tele1,tele2,Cadastro_de,cpf,email,rg,numb,comple,cid,bair,cp,dt_nasc; private JComboBox city; public Pessoa pa[] = new Pessoa[10]; Scanner s = new Scanner(System.in); private String n1,n2,n3; int contador=0; public Cadastro() { super("Cadastro de Clientes"); setSize(400,400); setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE); getContentPane() .setLayout(null); cadas = new JButton("Cadastro"); consul = new JButton("Consulta"); limpa = new JButton("Limpar"); nome = new JLabel("Nome"); endere = new JLabel("Endereco"); tele = new JLabel("Fone Com:"); tele1 = new JLabel("Fone Res:"); tele2 = new JLabel("Fone Cel:"); Cadastro_de = new JLabel("Cadastro Exercicio Lp2"); numb = new JLabel("Numero"); comple = new JLabel("Complemento"); bair = new JLabel("Bairro"); cid = new JLabel("Cidade"); cp = new JLabel("CEP"); dt_nasc = new JLabel("Data de Nascimento"); rg = new JLabel("RG"); cpf = new JLabel(" CPF"); Numero = new JTextField(); Complemento = new JTextField(); bairro = new JTextField(); cidade = new JTextField(); cep = new JTextField(); city = new JComboBox(); //city = new JTextField(); data_nascimento = new JTextField(); //Adiciona cidades ao combobox city.addItem("Vitoria da Conquista"); city.addItem("Itapetinga"); city.addItem("Barra do choça"); city.addItem("Brumado"); city.addItem("Poçoes"); getContentPane().add(cadas); getContentPane().add(consul); getContentPane().add(Nome); getContentPane().add(Endereco); getContentPane().add(Telefone); getContentPane().add(Telefone2); getContentPane().add(Telefone3); getContentPane().add(nome); getContentPane().add(tele); getContentPane().add(tele1); getContentPane().add(tele2); getContentPane().add(endere); getContentPane().add(Cpf); getContentPane().add(rg); getContentPane().add(Email); getContentPane().add(Numero); getContentPane().add(numb); getContentPane().add(comple); getContentPane().add(Complemento); getContentPane().add(bair); getContentPane().add(bairro); getContentPane().add(cep); getContentPane().add(cep); getContentPane().add(cidade); getContentPane().add(cid); getContentPane().add(city); getContentPane().add(dt_nasc); getContentPane().add(data_nascimento); getContentPane().add(rg); getContentPane().add(cpf); Nome .setBounds(60,60,430,20); Endereco .setBounds(60,90,160,20); //Telefone .setBounds(60,120,300,20); nome .setBounds(0,60,120,20); endere .setBounds(0,90,120,20); //tele .setBounds(0,120,120,20); Cadastro_de .setBounds(120,20,200,20); Nome .setBounds(60,60,430,20); Endereco .setBounds(60,90,160,20); //Telefone .setBounds(60,120,300,20); nome .setBounds(0,60,120,20); endere .setBounds(0,90,120,20); //tele .setBounds(0,120,120,20); Cadastro_de .setBounds(120,20,200,20); cid .setBounds(0,150,60,20); city .setBounds(60,150,120,20); //dt_nasc .setBounds(0,180,120,20); //data_nascimento .setBounds(120,180,100,20); tele .setBounds(0,210,120,20); tele1 .setBounds(140,210,120,20); tele2 .setBounds(270,210,120,20); Telefone .setBounds(60,210,70,20); Telefone2 .setBounds(200,210,70,20); Telefone3 .setBounds(290,210,70,20); rg .setBounds(0,180,120,20); Rg .setBounds(20,180,100,20); Cpf .setBounds(145,180,100,20); dt_nasc .setBounds(250,180,120,20); data_nascimento .setBounds(370,180,120,20); cadas .setBounds(90,250,120,20); consul .setBounds(220,250,120,20); Cadastro_de.setForeground(Color.RED); nome.setForeground(Color.RED); endere.setForeground(Color.RED); tele.setForeground(Color.RED); cadas.addActionListener(this); consul.addActionListener(this); Nome.addActionListener(this); Telefone.addActionListener(this); Telefone2.addActionListener(this); Telefone3.addActionListener(this); Cpf.addActionListener(this); Rg.addActionListener(this); Email.addActionListener(this); city.addActionListener(this); Complemento.addActionListener(this); bairro.addActionListener(this); Numero.addActionListener(this); } public static void main (String args[]) { Cadastro obj = new Cadastro(); obj.setVisible(true); } public void actionPerformed(ActionEvent acao) { if(acao.getSource()==cadas) { Pessoa p = new Pessoa(); p.setNome(Nome.getText()); p.setEndereco(Endereco.getText()); p.setNumero1(Numero.getText()); p.setTelefone(Telefone.getText()); p.setTelefone4(Telefone2.getText()); p.setTelefone5(Telefone3.getText()); p.setEmail(Email.getText()); p.setRG(Rg.getText()); p.setCpf1(Cpf.getText()); p.setBairro1(bairro.getText()); p.setComplemento(Complemento.getText()); if(contador==0) { pa[0]=p; contador++; } else { pa[contador]=p; contador++; } } if(acao.getSource()==consul) { for(int i=0;i<contador;i++) { JOptionPane.showMessageDialog(null,"---------------------------" +"\nNome:"+pa[i].getNome()+ "\nEndereco:"+pa[i].getEndereco()+ "\nNumero:"+pa[i].getNumero1()+ "\nBairro:"+pa[i].getBairro1()+ "\nTelefone Residencial:"+pa[i].getTelefone4()+ "\nTelefone Comercial:"+pa[i].getTelefone1()+ "\nTelefone Celular:"+pa[i].getTelefone5()); }}} protected class Pessoa { private String nome1,endereco1,telefone1,telefone4,telefone5,rg1,cpf1,email1,cidade1,bairro1,numero1,complemento1,cep1; Pessoa(){ nome1=endereco1=telefone1=telefone4=telefone5=bairro1=cidade1=rg1=cpf1=email1=numero1=complemento1=cep1=""; } Pessoa(String complemento1, String nome1, String endereco1, String telefone1, String Telefone4, String Telefone5, String bairro1, String cidade1, String rg1, String cpf1, String email1, String numero1) { this.nome1=nome1; this.endereco1=endereco1; this.telefone1=telefone1; this.telefone4=telefone4; this.telefone5=telefone5; this.rg1=rg1; this.cpf1=cpf1; this.email1=email1; this.bairro1=bairro1; this.cidade1=cidade1; this.numero1=numero1; this.complemento1=complemento1; this.cep1=cep1; } public void setNome(String nome1) { this.nome1=nome1; } public String getNome() { return nome1; } public void setEndereco(String endereco1) { this.endereco1=endereco1; } public String getendereco() { return endereco1; } public void setTelefone(String telefone1) { this.telefone1=telefone1; } public String getTelefone1() { return telefone1; } public void setTelefone4(String telefone4) { this.telefone4=telefone4; } public String getTelefone4() { return telefone4; } public void setTelefone5(String telefone5) { this.telefone5=telefone5; } public String getTelefone5() { return telefone5; } public void setEmail(String email1) { this.email1=email1; } public String getEmail() { return email1; } public void setRG(String rg1) { this.rg1=rg1; } public String getRG() { return rg1; } public void setCpf1(String cpf1) { this.cpf1=cpf1; } public String getCpf1() { return cpf1; } public void setCidade1(String cidade1) { this.cidade1=cidade1; } public String getCidade1() { return cidade1; } public void setBairro1(String bairro1) { this.bairro1=bairro1; } public String getBairro1() { return bairro1; } public void setComplemento(String complemento1) { this.complemento1=complemento1; } public String getComplemento1() { return complemento1; } public void setNumero1(String numero1) { this.numero1=numero1; } public String getNumero1() { return numero1; } public void setCp1(String cp1) { this.cep1=cep1; } public String getCp1() { return cep1; }}}

Bom dia, hj usei meu notebook normalmente tive que fazer algumas coisas e deixei ele ligado quando voltei o touchpad não está funcionando, tentei de tudo e nada resolve segui um tutorial que era para entrar nas configurações do touchpad mais aparece isso (imagem a baixo) como se o touch pad não estivesse instalado ou nem estivesse conectado ao Notebook, se alguém puder me ajudar agradeceria muito, Meu note é um Asus X550ln, core i5 e 6gb de ram Windows 8, e tem outra coisa tenho um outro hd com o Windows 8.1 instalado e nesse HD o touchpad não funciona também será que pode ser problema mesmo no touchpad??

Bom dia, Estou fazendo um projeto do meu curso que é criar um bando de dados para cadastrar cobranças de clientes, estava seguindo o que está na apostila a risca pra não ter erro, mas quando chega na hora de digitar os dados dos clientes acontece isso: Na primeira imagem é os dados que devo colocar no programa e na segunda imagem é o erro que acontece, o que parece é que só acontece o erro quando digito palavras quando digito números não acontece, alguém pode me ajudar?

@devair1010 Var Aries, Touro, Gemeos, Cancer, Libra, Escorpiao, Sargitario, Capricornio, Aquario, Peixes, virgem, Leao, Resultado1: Integer; Formato: string; begin If (Aries.Checked) then Resultado1:=Áries são as pessoas que nascem entre 21 de março e 19 de abril; If (Touro.Checked) then Resultado1:=Touro são as pessoas que nascem entre 20 de abril a 20 de maio; If (Gemeos.Checked) then Resultado1:= Gemeos são as pessoas que nascem entre 21 de abril a 21 de junho; If (Cancer.Checked) then Resultado1:=Cancer são as pessoas que nascem entre 22 de junho a 20 de julho; If (Leao.Checked) then Resultado1:=Leao são as pessoas que nascem entre 23 de julho a 22 de agosto; If (Virgem.Checked) then Resultado1:=Virgem são as pessoas que nascem entre 23 de agosto a 23 de setembro; If (Libra.Checked) then Resultado1:=Libra são as pessoas que nascem entre 23 de setembro a 20 de outubro; If (Escorpiao.Checked) then Resultado1:=Escorpiao são as pessoas que nascem entre 23 de outubro a 21 de novembro; If (Sargitario.Checked) then Resultado1:=Sargitario são as pessoas que nascem entre 22 de novembro a 21 de dezembro; If (Capricornio.Checked) then Resultado1:=Capricornio são as pessoas que nascem entre 22 de dezembro a 19 de janeiro; If (Aquario.Checked) then Resultado1:=Aquario são as pessoas que nascem entre 20 de janeiro a 18 de fevereiro; If (Peixes.Checked) then Resultado1:=Peixes são as pessoas que nascem entre 19 de fevereiro a 20 de março; O que eu fiz até agora, me diz o que está certo ou se falta ou se esqueci de colocar alguma coisa...

Olá, tenho um exercício para fazer que tem que fazer um programa de signos: é assim: Faça um programa de signo, onde o usuario escolhe o nome do signo e depois clica em um botao para mostrar e aparece em outra caixa falando sobre o signo dele. Nome dos Signos:Aires,Touro, Gemeos, Cancer, Libra, Escorpiao, Sargitario, Capricornio, Aquario, Peixes, virgem, Leao. Gostaria de uma ajuda pra começar a escrever o código do programa, se alguem puder me ajudar eu agradeço... Montei uma parte do programa, gostaria de me ajudar com o codigo do programa...

Pessoal hj estava usando meu Notebook e caiu a energia, como a bateria dele estragou uso ele conectado direito na tomada, quando liguei novamente para ligou normal, então usei o Crystaldiskinfo pra ver se deu nenhum problema quando abri o programa estava em Alerta (em amarelo), usei o chkdisk pra verificar o erro e verificou quando acabou disse que iria reiniciar o PC mais não reiniciou esperei uns 30min e nada aí desliguei e liguei pelo botão aí agora não carrega mais o windows fica na tela preta com uma sete piscando no canto superior esquerdo tentando ligar algumas vezes aparece isso: reboot and select proper boot device, na BIOS em vez em enquanto reconhece o HD mais quando reinício o windows não carrega, alguém pode me ajudar a resolver?? Coloquei um dvd de instalação do Windows pra vê se reconhece por la e reconhece, na parte onde seleciona o HD pra formatar tem uma mensagem que fala que "o windows não pode ser instalado nesse disco. O hardware do computador pode não oferecer suporte a inicialização neste disco. Verifique se o controlador de disco está habilitado no menu BIOS do computador". Se eu Clico pra criar a particao da esse erro: " Não foi possível criar uma nova particao. [Erro: 0x80070002]. Alguém pode me ajudar??? adicionado 9 minutos depois

Olá! Estou com um exercício em que devo criar um algoritmo para o seguinte problema : Uma empresa decidiu fazer um levantamento em relação aos candidatos que se apresentarem para preenchimento de vagas no seu quadro de funcionários. Supondo que você seja o programador dessa empresa, faça um programa que: -> Leia, para cada candidato, a idade, o sexo ( M e F ) e a experiência no serviço ( S ou N). Para encerrar a entrada de dados digite zero para a idade. Calcule e mostre: -> o número de candidatos do sexo feminino; -> o número de candidatos do sexo masculino; ->O numero de homens que ja possui experencia no serviço; -> O número de Homens que não possui experiencia no serviço; ->O número de mulheres que já possui experiencia no serviço; ->O numero de mulheres que não possui experiencia no serviço; ->O nome do candidato com maior tempo de experiencia no serviço; ->Soma de todas as idades; ->A media de todas as idades; ->A média de todas as idades do sexo feminino; ->A média de todas as idades do sexo masculino; Consegui fazer esse começo, mais não consigo terminar, alguém poderia me ajudar, comecei o curso de programação faz pouco tempo... var i, idade, masculino, feminino, maior, menor, exp_masc, exp_fem, funcionarios, soma: integer; media: real; sexo, experiencia: char; Begin soma:= 0; media:= 0; exp_fem:= 0; exp_masc:= 0; feminino:= 0; masculino:= 0; readln(funcionarios); For I:= 1 to funcionarios do Writeln ('Entre com a idade do funcionario'); readln(idade); maior:= idade; menor:= idade; Writeln ('Agora com o sexo do funcionario <M ou F>'); readln (sexo); if sexo = 'F' then feminino:= feminino + 1 Else masculino:= masculino + 1 end.

Não consigo resolver esta questão: Elabore um algoritmo que observando a idade dada de um jogador, clasifique-o em uma das categorias, seguindo a tabela abaixo. Feito isso, mostre as mensagens de acordo com a classificação. Tabela: Idade Classificação infantil 5 a 10 anos Juvenil 11 a 17 anos Adulto Maiores que 18 anos se o usuario digitar uma idade menor que 5 anos, entao mostre a seguinte mensagem: 'A idade digitada e de uma criança'. Faça o algoritmo usando o comando CASE. Fiz o algoritmo mais da um erro que não consigo resolver o erro é: ';' não esperado! Var Idade: integer; Begin Writeln('Digite a sua idade'); readln(idade); Case Idade of 5..10: Writeln('voce e infantil'); end; Case Idade of 11..17: Writeln('voce e Juvenil'); end; Case Idade of 18..1000; Writeln('voce e Adulto'); end; Case Idade of 0..5: Writeln('A idade digitada e de uma crianca'); end; End. Fiz pelo pascalzim...

var nome, nome_mais_velha, nome_mais_nova: char; idade, idade_mais_velha, idade_mais_nova, i: integer; begin for i:= 1 to 4 do writeln('Informe o nome da ', i, 'ª pessoa: '); readln(nome); writeln('Informe a idade da ', i, 'ª pessoa: '); readln(idade); if (i = 1) then nome_mais_velha := nome; idade_mais_velha := idade; nome_mais_nova := nome; idade_mais_nova := idade; if (idade > idade_mais_velha) then nome_mais_velha := nome; idade_mais_velha := idade; if (idade < idade_mais_nova) then nome_mais_nova := nome; idade_mais_nova := idade; writeln('Mais velha: ', nome_mais_velha, ' com ', idade_mais_velha, ' anos'); writeln('Mais nova: ', nome_mais_nova, ' com ', idade_mais_nova, ' anos') end. Bom dia, estou fazendo um exercicio e ele pede para fazer um algoritmo que receba o nome e a idade de um determinado numero de pessoas e mostre o nome da pessoa mais velha e o nome da pessoa mais nova, primeiro fiz em portugol e usei o programa visualg e o algoritmo funcionou corretamente depois converti o algoritmo para o pascal que é este daqui mais quando uso o programa (Pascalzim) quando o programa executa ele le nao da a opcao pra digitar o nome e a idade da pessoa ele le tudo de uma vez, o que eu errei?? No portugol ficou assim var nome, nome_mais_velha, nome_mais_nova: caracter idade_mais_velha, idade_mais_nova, i: inteiro idade: inteiro inicio para i de 1 ate 4 faca escreva("Informe o nome da ", i, "ª pessoa: ") leia(nome) escreva("Informe a idade da ", i, "ª pessoa: ") leia(idade) se (i = 1) entao nome_mais_velha <- nome idade_mais_velha <- idade nome_mais_nova <- nome idade_mais_nova <- idade senao se (idade > idade_mais_velha) entao nome_mais_velha <- nome idade_mais_velha <- idade fimse se (idade < idade_mais_nova) entao nome_mais_nova <- nome idade_mais_nova <- idade fimse fimse fimpara escreval("Mais velha: ", nome_mais_velha, " com ", idade_mais_velha, " anos") escreval("Mais nova: ", nome_mais_nova, " com ", idade_mais_nova, " anos") fimalgoritmo no pascal o programa le assim:

adicionado 7 minutos depois type t_idades = array[1..5] of integer; var idade :t_idades; qtdMaiores, qtdMenores :integer; i :integer; begin writeln('Insira as 5 idades:'); for i:=1 to 5 do begin write ('Idade ',i,': '); readln(idade[i]); end; for i:=1 to 5 do if (idade[i] > 18) then qtdMaiores:= qtdMaiores + 1; if (idade[i] < 18) then qtdMenores:= qtdMenores - 1; Writeln('o total de maiores de 18 anos e:', qtdMaiores); Writeln('o total de menores de 18 anos e:', qtdMenores); readln; end. Então assim seria o algoritmo completo, mas o problema quando mostra as idades maiores e menores que 18, por exemplo digito 3 idades de menores que 18 e 2 idades maiores 18, o algoritmo deveria mostrar assim: "o total de idades menores de 18 anos e: 3 e assim: "o total de idades maiores de 18 anos e: 2 , mais não mostra, mostra outra numeração, o que eu fiz de errado nesse final?

Type Idades = array[1..5] of string; Var Idade: Idades; maiores, menores: integer; Soma, I: integer; Begin Soma:=0; For I := 1 to 5 do Begin Writeln('informe a idade:', I); readln(Idade[I]); Bom dia, tenho um Exercício para fazer mais não consigo termina-lo alguem poderia me ajudar? Exercicio: Em Pascal faça um algoritmo que armazene a idade das pessoas e ao final mostre o total das idades sendo divididos: os maiores de 18 anos e o menores de 18 anos. Utilize o Comando TYPE. Não consigo fazer a parte que mostra quais são os maiores de 18 e os menores de 18.

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.

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.

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?

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.

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)

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.

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.

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...

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'.