Você não está conectado. Conecte-se ou registre-se

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1 Criando Uma tabuada Em Delphi em Qua Fev 16, 2011 7:33 am

mistiyoda

Membro
Membro

avatar
Olá galera,
Hoje eu vim trazer um tultorial que eu achei em uma apostila de como criar uma tabuada no delphi.
Enquanto X < Y faça
<instruções>

* X - Variavel integer
* Y - Até o numero da tabuada que quiser, exemplo: 100. A tabuada vai até 100.

Então vamos a obra ...
Adicione os componentes:

1 Listbox
1 Edit
1 Button

Coloque no button:

var
Num, i, mult: integer;
Begin
Num := StrToInt(Edit1.text);
i := 1;
While i <= 10 do
Begin
Mult := Num * i;
ListBox1.items.Add(IntToStr(Mult));
i := i + 1;
End;

Só isto, o número que esta no edit1, multiplica ate o Y ( no caso 10 ).
Qualquer coisa só avisar !

http://www.portalmaker.co.cc

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum