Unconfigured Ad Widget

Collapse

Anúncio

Collapse
No announcement yet.

Duvida exercicios pascal

Collapse
X
 
  • Filter
  • Tempo
  • Show
Clear All
new posts

  • Font Size
    #1

    Duvida Duvida exercicios pascal

    Eae parceiros, tenho uma duvido de um exercicio de Pascal em que tenho que resolve-lo utilizando o comando TYPE.

    É o seguinte: Preciso fazer um programa que armazene a idade das pessoas e no final mostre separadamente quem é maior de 18 e quem é menor de 18. Lmebrando que tem que usar o TYPE.

    Alguem pode me ajudar?

    Desde já agradeço a todos.
    Similar Threads

  • Font Size
    #2
    Ta!

    Mano Esse codigo ele calcula a idade :[/SIZE]
    var
    idade : integer;
    begin
    try
    idade := 0;
    strtodate(edit3.text);
    idade := trunc((date - strtodate(edit3.text))/365.25);
    edit4.text := inttostr(idade) + ' anos';
    except
    messagedlg('Ocorreu um erro!', MTERROR, [MBOK], 0);
    edit3.setfocus;
    abort;
    end;
    end


    Mais agora se você quiser para que ele so aceite maior de 18 é so colocar :

    [SIZE="6"]If edit4.Text < '18' then begin
    Showmessage(Você é menor de idade, so aceitamos maiores de 18 anos);
    end;


    Last edited by ForeverIstalone; 02-12-2014, 16:20.

    Comment


    • Font Size
      #3
      Postado Originalmente por PaggiaPG Ver Post
      Eae parceiros, tenho uma duvido de um exercicio de Pascal em que tenho que resolve-lo utilizando o comando TYPE.

      É o seguinte: Preciso fazer um programa que armazene a idade das pessoas e no final mostre separadamente quem é maior de 18 e quem é menor de 18. Lmebrando que tem que usar o TYPE.

      Alguem pode me ajudar?

      Desde já agradeço a todos.
      Código:
      program Project;
      
      {$APPTYPE CONSOLE}
      
      uses
        Windows,
        SysUtils,
        Classes;
      
      type
       TPessoas = record
        name :string;
        idade:integer;
       end;
      
      var
       Pessoas:Array of TPessoas;
       Item, I:Integer;
      
      Procedure AddPessoa(Nome:String;Idade:Integer);
      begin
       Item:=Length(Pessoas);
       SetLength(Pessoas, Item+1);
       Pessoas[Item].name :=Nome;
       Pessoas[Item].idade:=Idade;
      end;
      
      procedure Armazenar;
      var
        Nome:String;
        Idade:Integer;
      begin
        while true do begin
           WriteLn('Digite o nome de uma pessoa: ');
           readln(Nome);
           if Nome = 'Exit' then Break;
           WriteLn('Digite a idade de ' + Nome);
           readln(Idade);
           if Nome = 'Exit' then Break;
           AddPessoa(Nome ,Idade);
        end;
      end;
      
      procedure Separar;
      var
       StrListMax18:TStringList;
       StrListMin18:TStringList;
      begin
       StrListMax18:=TStringList.Create;
       StrListMin18:=TStringList.Create;
       for I:=0 to Length(Pessoas)-1 do begin
         if Pessoas[i].idade > 18 then
          StrListMax18.Add(Pessoas[i].name);
         if Pessoas[i].idade < 18 then
          StrListMin18.Add(Pessoas[i].name);
       end;
       WriteLn('Pessoas que tem Mais de 18 anos.');
        For i:=0 to StrListMax18.Count-1 do
         WriteLn(StrListMax18[i]);
       WriteLn('Pessoas que tem Menos de 18 anos.');
        For i:=0 to StrListMax18.Count-1 do
         WriteLn(StrListMin18[i]);
      end;
      
      begin
        WriteLn('{Para parar de armazenar digite Exit}');
        Armazenar;
        WriteLn('Armazenamento Finalizado') ;
        WriteLn('________________Idade Separada________________');
        Separar;
        Readln;
      end.

      Comment

      X
      Working...
      X