Vetor

[arthur1919 0]

var

Form1: TForm1;

L:array[1..2]of integer;

i,Total:integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

for i:= 1 to 2 do

L:=StrToInt(InputBox('Lucros','Digite o valor de lucros referente ao bimestre!',''));

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Total:=L+L

ShowMessage('O total de lucros é:'+IntToStr(Total))

end;

end.

DEU ESSES PROBLEMAS!

O QUE SIGNIFICA ISSO!

[dcc32 Warning] Unit1.pas(35): W1019 For loop control variable must be simple local variable

[dcc32 Error] Unit1.pas(44): E2066 Missing operator or semicolon

[dcc32 Fatal Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas'

[Ådriano 9]

procedure TForm1.Button1Click(Sender: TObject);

begin

Total:=L[1]+L[2];

 

 

ShowMessage('O total de lucros é:'+IntToStr(Total))

 

[arthur1919 0]

Muito Obrigado!

[Ådriano 9]

Beleza.....Cuidado qdo somar moedas...tracar o ponto é essencial...rsrsrsr....

 

E no seu loop que está no CREATE do seu form....declara a variavel "localmente"...é muito mais seguro....

 

E não se esqueça de dar um pontinho...rsrsrs