Just BASIC

Un article de Wikipédia, l'encyclopédie libre.

Sommaire

[modifier] Présentation

Just BASIC, est une variante du langage de programmation BASIC (une version structurée du BasicA).

L'environnement de développement intégré Just BASIC est un logiciel propriétaire de Shoptalk Systems, intégrant entre autre un éditeur et un compilateur BASIC.

Le compilateur permet de générer des exécutables .exe 32 bits à l'aide d'un compilateur.

Ce programme fonctionne parfaitement avec windows XP dans sa version 32 et 64 bits, car c'est une application 32 bits.

Just BASIC est une version allégée et gratuite de Liberty BASIC qui permet cependant la création de programmes complets et autonomes.

Just BASIC et Liberty BASIC étant tous les deux des compilateurs 32 bits, ils ont l'avantage d'être plus rapide que QBasic auquel ils ont succédé.

[modifier] Caractéristiques techniques

  • Fonctionne sur toute les versions de Windows
  • Version totalement gratuite
  • Livré avec une foule de petits programmes
  • Une communauté active sur internet pour vous aider
  • Éditeur de code avec coloration Syntaxique
  • Outil visuel pour créer vos fenêtres Windows
  • Livré avec un outil de debuggage efficace
  • Création de Fonctions et de sous routines

[modifier] Hello World

PRINT "Hello World"

[modifier] Exemple de programme sous Just BASIC

Voici un programme codé en Just BASIC.

  • Développement de (a+b)^n :
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'                           TriPascal.bas : Black Templar - 15/05/06                             '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'  Ce petit programme permet de connaître les coefficients de la formule développé : (a + b)^n.   '
'  Il utilise l'algorithme du triangle de Pascal.                                                '
'                                                                                                '
'                                                                                                '
'  1  1                    1+ 1                   (a + b)^1 = 1*a + 1*b                          '
'                             =                                                                  '
'  1  2  1                 1  2  1                (a + b)^2 = 1*a^2 + 2*a*b + 1*b^2              '
'                                                                                                '
'  1  3  3  1              1  3+ 3  1             (a + b)^3 = 1*a^3 + 3*a^2*b + 3*a*b^2 + 1*b^3  '
'                                =                                                               '
'  1  4  6  4  1           1  4  6  4  1          (a + b)^4 = 1*a^4 + 4*a^3*b + 6*a^2*b^2 + ...  '
'                                                                                                '
'  1  5 10 10 5  1         1  5 10 10  5  1       (a + b)^5 = 1*a^5 + 5*a^4*b + 10*a^3*b^2 + ... '
'                                                                                                '
'  Vous pourrez l'utiliser dans le théorème du binôme de Newton. En effet, les coefficients sont   '
'  en fait les valeurs des combinaisons dans la formule :                                        '
'                                                                                                '
'                    n     p                                                                     '
'                  somme( C  * a^(p) * b^(m-p) )                                                 '
'                   p=0    n                                                                     '
'                                                                                                '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

   [start]
   print "(a + b)^n avec n > 0"
   input "n = ";n
   if n < 1 or n <> int(n) then
       cls
       goto [start]
   end if

   dim liste(2)
   liste(1) = 1
   liste(2) = 1
   coef = 2
   for bcl = 2 to n

       dim liste1(coef)
       for z = 1 to coef
           liste1(z) = liste(z)
       next

       coef = coef + 1
       dim liste(coef)
       liste(1) = 1

       for nb = 2 to coef-1
           liste(nb) = liste1(nb-1) + liste1(nb)
       next
       liste(coef) = 1
   next

   cls
   print "(a + b)^";n;" = ";
   for z = 1 to coef
       if liste(z) <> 1 then print liste(z);"*";
       print "(";
       if coef - z <> 0 then print "a^";coef - z;
       if coef - z <> 0 and z - 1 <> 0 then print "*";
       if z - 1 <> 0 then print "b^";z - 1;
       print ")";
       if z <> coef then print " + ";
   next

   end


Ce script n'est évidemment qu'un aperçu du langage.

[modifier] Voir aussi

[modifier] Liens externes