TABLEAUX DE MULTIPLICATION

japee Messages postés 1727 Date d'inscription vendredi 27 décembre 2002 Statut Modérateur Dernière intervention 6 novembre 2021 - 5 déc. 2003 à 09:34
pandar Messages postés 2 Date d'inscription dimanche 2 novembre 2003 Statut Membre Dernière intervention 6 décembre 2003 - 6 déc. 2003 à 17:53
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/18369-tableaux-de-multiplication

pandar Messages postés 2 Date d'inscription dimanche 2 novembre 2003 Statut Membre Dernière intervention 6 décembre 2003
6 déc. 2003 à 17:53
Merci mais g fé cette source pour les extra débutant....
japee Messages postés 1727 Date d'inscription vendredi 27 décembre 2002 Statut Modérateur Dernière intervention 6 novembre 2021 8
5 déc. 2003 à 09:34
Plutôt que 10 lignes de :

Memo1.Lines.Add(inttostr(x)+' × '+'1'+' = '+FloatToStr(x*1));
Memo1.Lines.Add(inttostr(x)+' × '+'2'+' = '+FloatToStr(x*2));
Memo1.Lines.Add(inttostr(x)+' × '+'3'+' = '+FloatToStr(x*3));
Memo1.Lines.Add(inttostr(x)+' × '+'4'+' = '+FloatToStr(x*4));
Memo1.Lines.Add(inttostr(x)+' × '+'5'+' = '+FloatToStr(x*5));
Memo1.Lines.Add(inttostr(x)+' × '+'6'+' = '+FloatToStr(x*6));
Memo1.Lines.Add(inttostr(x)+' × '+'7'+' = '+FloatToStr(x*7));
Memo1.Lines.Add(inttostr(x)+' × '+'8'+' = '+FloatToStr(x*8));
Memo1.Lines.Add(inttostr(x)+' × '+'9'+' = '+FloatToStr(x*9));
Memo1.Lines.Add(inttostr(x)+' × '+'10'+' = '+FloatToStr(x*10));

essaye plutôt ceci :

for i := 1 to 10 do
Memo1.Lines.Add(IntToStr(x)+' × '+IntToStr(i)+' = '+FloatToStr(x*i));

Tu vois ce que je veux dire ? ;)

Bon courage pour la suite...
Rejoignez-nous