Section courante

A propos

Section administrative du site

Voici un exemple d'un programme permettant d'afficher un triangle Pascal :

  1. Sub Main()
  2.      Dim I,J As Integer
  3.      For I=0 To 9
  4.           For J=0 To I
  5.                Print " " & Str$(J*I);
  6.           Next
  7.           Print
  8.      Next
  9.      ' Dessin Triangle
  10.      For I=0 To 12
  11.           For J=0 To 13-I
  12.                Print " ";
  13.           Next
  14.           Print "< ";
  15.           For J=0 To I+I
  16.                Print "x ";
  17.           Next
  18.           Print "*"
  19.      Next 
  20. End Sub

on obtiendra le résultat suivant :

0
0 1
0 2 4
0 3 6 9
0 4 8 12 16
0 5 10 15 20 25
0 6 12 18 24 30 36
0 7 14 21 28 35 42 49
0 8 16 24 32 40 48 56 64
0 9 18 27 36 45 54 63 72 81
                            < x *
                          < x x x *
                        < x x x x x *
                      < x x x x x x x *
                    < x x x x x x x x x *
                  < x x x x x x x x x x x *
                < x x x x x x x x x x x x x *
              < x x x x x x x x x x x x x x x *
            < x x x x x x x x x x x x x x x x x *
          < x x x x x x x x x x x x x x x x x x x *
        < x x x x x x x x x x x x x x x x x x x x x *
      < x x x x x x x x x x x x x x x x x x x x x x x *
    < x x x x x x x x x x x x x x x x x x x x x x x x x *

Voir également

Science - Mathématique

Dernière mise à jour : Dimanche, le 18 janvier 2015