Fórum Somente pares ou ímpares #233189

19/05/2004

0

Delphi

Olá.. sou iniciante no Delphi

sera que alguem poderia me dizer como eu consigo listar de 0 a 100
pegando só os pares ou impares??

valeussss

[b:50b6dbfd75][color=red:50b6dbfd75]Editado pelo Moderador (AZ) - Removido: ´COISA SIMPLES - NUMEROS IMPARES OU PARES´[/color:50b6dbfd75][/b:50b6dbfd75]


Nettopassaro

Nettopassaro

Responder

Posts

19/05/2004

Otto

eu faria assim:
Pares:

var
 i,ii : integer;
begin
  ii := 0;
  for i:=1 to 50 do
    begin
      Memo1.Lines.Add(IntToStr(ii));
      ii := ii+2;
    end;




Impares:

var
 i,ii : integer;
begin
  ii := 1;
  for i:=1 to 50 do
    begin
      Memo1.Lines.Add(IntToStr(ii));
      ii := ii+2;
    end;



Responder

Gostei + 0

20/05/2004

Aroldo Zanela

Colega,

Solte dois Memos e um button no Form.
No manipulador de evento OnClick do button, adicione o seguinte código:

procedure TForm1.Button1Click(Sender: TObject);
var I: Integer;
begin
  mPar.Lines.Clear;
  mImpar.Lines.Clear;
  For I := 1 to 100 do
  begin
    if Odd(I) then // Se é ímpar
      mImpar.Lines.Add(IntToStr(I))
    else
      mPar.Lines.Add(IntToStr(I));
  end;
end;


Ou então, crie uma nova aplicação, selecione o código abaixo e pressione Ctrl + C e sobre o formulário pressione Ctrl + V para ´desenhar´ o modelo que utilizei para testar o código acima.

  object Label1: TLabel
    Left = 294
    Top = 46
    Width = 27
    Height = 13
    Caption = ´Pares´
  end
  object Label2: TLabel
    Left = 492
    Top = 46
    Width = 37
    Height = 13
    Caption = ´Ímpares´
  end
  object mImpar: TMemo
    Left = 492
    Top = 60
    Width = 185
    Height = 377
    Lines.Strings = (
      ´mImpar´)
    TabOrder = 0
  end
  object mPar: TMemo
    Left = 294
    Top = 62
    Width = 185
    Height = 377
    Lines.Strings = (
      ´mPar´)
    TabOrder = 1
  end
  object Button1: TButton
    Left = 20
    Top = 58
    Width = 75
    Height = 25
    Caption = ´Button1´
    TabOrder = 2
    OnClick = Button1Click
  end



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar