ActiveDelphi

[Katatau]

[b] [/b]Estou desenvolvendo um trabalho em q tenha que realizar um trecho de programa para demonstrar a seguinte froma e sequencia.

10
10 9
8 9 10
10 9 8 7
6 7 8 9 10
10 9 8 7 6 5
4 5 6 7 8 9 10
10 9 8 7 6 5 4 3
2 3 4 5 6 7 8 9 10
10 9 8 7 6 5 4 3 2 1

estou usando laços de reptição, mas falta algo segue os comandos q usei:

procedure TForm1.TONTOClick(Sender: TObject);
var
soma,cont,tudo:integer;
begin
soma:=10;

for cont:=0 to 10 do
begin
tudo:=soma;
soma:=(soma-cont);
listbox1.Items.add( inttostr(soma)+\' \'+inttostr(tudo));

end;

ja tentei o downto..e não estou conseguindo colocar em ordem decerscente

[gustavocco]

tentai...
[quote]
procedure TForm1.Button1Click(Sender: TObject);
var
texto: string;
j, numero, digitos:integer;
begin
for digitos := 1 to 10 do begin
texto := \'\';
numero := 10;
if digitos mod 2 <> 0 then
numero := 10 - digitos + 1;
for j := 1 to digitos do begin
texto := texto +\' \'+inttostr(numero);
if j = digitos then
ListBox1.Items.Add(texto);
if digitos mod 2 <> 0 then
numero := numero + 1
else
numero := numero - 1;
end;
end;

end;
[/quote]
flw ai...
_________________
Top System - www.topsystem.com.br

[Katatau]

[quote] [b] [/b]Estou desenvolvendo um trabalho em q tenha que realizar um trecho de programa para demonstrar a seguinte froma e sequencia.

10
10 9
8 9 10
10 9 8 7
6 7 8 9 10
10 9 8 7 6 5
4 5 6 7 8 9 10
10 9 8 7 6 5 4 3
2 3 4 5 6 7 8 9 10
10 9 8 7 6 5 4 3 2 1

estou usando laços de reptição, mas falta algo segue os comandos q usei:

procedure TForm1.TONTOClick(Sender: TObject);
var
soma,cont,tudo:integer;
begin
soma:=10;

for cont:=0 to 10 do
begin
tudo:=soma;
soma:=(soma-cont);
listbox1.Items.add( inttostr(soma)+\' \'+inttostr(tudo));

end;

ja tentei o downto..e não estou conseguindo colocar em ordem decerscente [/quote]

tá louco..quando eu ia descobrir isso...meu professor disse que con cinco linhas ou seis eu fazia isso...até uma certa parte eu entendi o processo, mas qual o fundamento do texto na operação?

[Editado em 14/4/2006 por Katatau]

[gustavocco]

Olah... esse codigo q coloquei ai fiz d bobeira hj nem liguei muito pra reduzir linhas e tals.. ateh dah pra se fazer alguma coisa... mas isso fica pra ti hehehe... o objetivo da variavel texto eh de apenas guardar os valores... pois se vc for jogando diretamente no listbox ele vai inserir um abaixo do outro e nao na mesma linha....

funcionou??? era isso q vc precisava ????
qqr coisa posta novamente ai...

flw.
_________________
Top System - www.topsystem.com.br

[Katatau]

[quote]Olah... esse codigo q coloquei ai fiz d bobeira hj nem liguei muito pra reduzir linhas e tals.. ateh dah pra se fazer alguma coisa... mas isso fica pra ti hehehe... o objetivo da variavel texto eh de apenas guardar os valores... pois se vc for jogando diretamente no listbox ele vai inserir um abaixo do outro e nao na mesma linha....

funcionou??? era isso q vc precisava ????
qqr coisa posta novamente ai...

flw. [/quote]

[b] pode crê cara ..depois fiquei pensando a finalidade do texto string..dai me deu um, prisco e é ..claro ele guarda os valores e depois joga no list box...
show cara sem palavras,valeu!
Beleza a idéia era essa mesmo.[/b]

[Editado em 14/4/2006 por Katatau]

[gustavocco]

hehehe.. blz.. precisando posta ai...

flw..
_________________
Top System - www.topsystem.com.br