Somente pares ou ímpares

Delphi

19/05/2004

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

Curtidas 0

Respostas

Otto

Otto

19/05/2004

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;



GOSTEI 0
Aroldo Zanela

Aroldo Zanela

19/05/2004

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



GOSTEI 0
POSTAR