Charles Diogo123

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

3 horas atrás, devair1010 disse:

@Charles Diogo123     poste o código , assim poderemos ver como está e em podemos ajudar    .

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

9 minutos atrás, Charles Diogo da Silva disse:

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

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:

13 horas atrás, Simon Viegas disse:

Spoiler

 

 

Olá.

 

1#

É de suma importância manter o código organizado. Não tem motivo para ter esse espaçamento nas linhas. Ex.:

 

Ou o código ficaria assim (caso ainda não tenha aprendido sobre indentação):

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]);

ou fica com algo assim:

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]);

 

 

 

2#
Outra dica: ao implementar, sempre deixe trechos completos, ou seja, o seu código SEMPRE deve está NO MÍNIMO compilável, ou seja, você fala em:
 

Mas o trecho que você postou, não está nem lendo as idades. Entende? Siga um exemplo abaixo de como você pode ir fazendo:

 

 

A parte que "você já sabe fazer poderia ficar com algo assim":

program QuantidadeMaioresMenores;
{
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. 
}
type
  {Idades = array[1..5] of string;} //por que idade como string?
  t_idades = array[1..5] of integer;
  
var
  idades      :t_idades;
  qtdMaiores,
  qtdMenores  :integer;
  i           :integer;
   
begin
for i:=1 to 5 do
  begin
  writeln('Informe a idade ',i,' :');
  readln(idades[i]);
  end;
  
  
  
  
end.

Veja que a ideia é que fique apenas esperando a parte que não sabe fazer...

 

Independente de está certo ou não, se botar para compilar, não pode dar erro, ou seja, seu código NÃO DEVE TER ERROS DE SINTAXE (regras do Pascal)... enquanto não compilar, você ter que ver o que está acontecendo e corrigir. Não tem porque inserir uma coisa nova, sendo o que está fazendo ainda não está funcionando...  Veja, essa dica se refere apenas em "sempre deixar o código compilável", mas não necessariamente isso garante que está certo.. saber se o código está funcionando de acordo com o que você precisa é outra história.

 

Pronto... peguei esse código e rodei... após supostamente ler as idades, o programa fecha... ou seja, não tem como saber se leu certo ou não. Uma forma de verificar isso, seria mandar imprimir as idades. Ex.:
 

Após a leitura inseri o trecho abaixo:

whiteln('IDADES : ');
for i:=1 to 5 do
  begin
  writeln(idades[i]);
  end;

Repare que a ideia é deixar o trecho completo.  Se coloquei um begin no for, já coloco o seu end;. Depois dentro começo a inserir o que eu quero. No caso apenas uma linha que vai exibir a idade.

 

Esse trecho acima é só para testar se está lendo a idade ou não, certo?. Daí compila! Verás que vai dar erro... pois não vai reconhecer o comando whiteln (está escrito errado), ou seja, está com um erro de sintaxe. Vou lá e corrijo para writeln.. Em fim, até agora tenho isso:

program QuantidadeMaioresMenores;
{
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. 
}
type
  {Idades = array[1..5] of string;} //por que idade como string?
  t_idades = array[1..5] of integer;
  
var
  idades      :t_idades;
  qtdMaiores,
  qtdMenores  :integer;
  i           :integer;
   
begin
for i:=1 to 5 do
  begin
  writeln('Informe a idade ',i,' :');
  readln(idades[i]);
  end;
writeln('IDADES : ');
for i:=1 to 5 do
  begin
  writeln(idades[i]);
  end;
  


end.

Testei aqui, mas "após inseri as idades, o programa fecha sozinho sem mostrar as idades" :(, ou seja, aquilo que estou fazendo no momento não funcionou. Tá! mas já sabia que Isso aconteceu porque, após supostamente imprimir as idades, vai para o end. e fecha, no caso não dando tempo de ver as resposta... aí insiro um readln; antes do end. para resolver, pois desta forma o programa vai parar para "ler algo", dando tempo de ver a tela (até pressionar um ENTER). (obs.: se você usa PascalZim, esse problema não ocorrerá, pois a tela fica aberta, mesmo após finalizar).

 

 

 

3#

Sobre implementar:

Então, inicialmente já tem 2 pontos:

1) o enunciado não pede para "mostrar quais", mas sim "mostrar quantos". São coisas diferentes.

2) para "mostrar", é necessário antes "calcular/contar".

 

Então, já verificamos que conseguimos ler as idades. Agora, precisaria verificar se cada uma desses idades é maior igual a 18 e verificar se é menor que 18.

 

Após a parte que ler as idades, implementa essa parte que "conta quantas pessoas são maiores de 18" e "quantas pessoas são menores que 18".

 

Segue uma base:
Código:

  Ocultar conteúdo

program QuantidadeMaioresMenores;
{
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. 
}
type
  {Idades = array[1..5] of string;} //por que idade como string?
  t_idades = array[1..5] of integer;
  
var
  idades      :t_idades;
  qtdMaiores,
  qtdMenores  :integer;
  i           :integer;
   
begin
writeln('Insira as 5 idades:');
for i:=1 to 5 do
  begin
  write  ('Idade ',i,': ');
  readln(idades[i]);
  end;
for i:=1 to 5 do
  begin
  
  
  
  end;
readln;
end.

 

Ou seja, inicialmente declara lá no var as variáveis que vão armazenar essas quantidades que está buscando. Poderia usar por exemplo qtdMaiores e qtdMenores. Ambos do tipo integer.

 

Dentro do segundo for, implemente as duas estruturas de seleção.

se idade[i ] maior que 18, então qtdMaiores será igual a ela mesma mais 1.

se idade[i ] menor que 18, então qtdMaiores será igual a ela mesma menos 1.

 

Deixe essa verificação compilando... só depois, veja: SÓ DEPOIS DE ESTÁ COMPILANDO, implemente depois do segundo a parte que exibe a resposta, ou seja, o texto que diz "o total de maiores de 18 anos e o total de menores de 18 anos" (os valores estarão nessas duas variáveis novas).

 

***

 

Tem outro pontos a analisar... mas por enquanto seria isso.

 

Qualquer dúvida ou crítica é só postar.

 

No aguardo.

 

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