[Ajuda] Program Par

[Talaram 0]

Pede-se que, Escreva um programa para mostrar os números pares de 1 a 20. O resultado deverá ser mostrado na caixa de mensagem "ShowMessage" em linhas diferentes. Para verificar se o número é impar, deverá ser usada uma função MOD. Poderá ser usada qualquer estrutura de repetição. Criar uma variável de nome "resposta" para receber todos os valores pares. Inserir uma quebra de linha a cada final de número impresso. Para isso use o caractere #13 (qubra de linha). :eek:

 

Gerei o seguinte código :

 

unit numrespar;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Borland.Vcl.StdCtrls, System.ComponentModel;

 

type

TArray = array[1..20] of Integer;

TForm1 = class(TForm)

Button1: TButton;

Label1: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

Resultado: TArray;

X,Y: Integer;

implementation

 

{$R *.nfm}

 

procedure TForm1.Button1Click(Sender: TObject);

begin

X:=0;

For Y:= 1 to 20 do

begin

X:=X+1;

 

if (X mod 2) = 0 then

 

Resultado[Y]:=X;

end;

ShowMessage(' Números pares: ' + #13+ IntToStr(Resultado[2]) +#13+ IntToStr(Resultado[4]) +#13+ IntToStr(Resultado[6]) +#13+ IntToStr(Resultado[8]) +#13+ IntToStr(Resultado[10]) +#13+ IntToStr(Resultado[12]) +#13+ IntToStr(Resultado[14]) +#13+ IntToStr(Resultado[16]) +#13+ IntToStr(Resultado[18]) +#13+ IntToStr(Resultado[20]));

end;

 

end.

 

Aonde na tela de minha Unit tenho apensa um botão!

 

Gostaria de saber se alguem conhece uma forma mais simples ! Desde já Obrigado !