Je me propose de réunir ici quelques exemples de code pour Algebrus XPascal. Si vous voulez contribuer, n'hésitez pas !
Qu'est-ce qu'Algebrus ? Pour résumer, je dirais que c'est une sorte de calculatrice programmable en Pascal. Cette calculatrice a des fonctions graphiques. Elle peut lire et écrire des fichiers.
Quant au langage XPascal, pour ce que j'en ai vu, il ajoute au Pascal classique 1° des fonctions d'affichage amélioré 2° des types de variable, comme le type Vector.
Le programme suivant calcule des valeurs approchées de racine de 2 jusqu'à ce que la meilleure approximation soit atteinte. Les résultats sont ajoutés au fur et à mesure dans un vecteur.
Ce qui donne l'affichage suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48 // Algebrus XPascal program racine_de_2; function U(a, n: Integer): Real; // Approximations de la racine carrée de a // "n" est le nombre d'itérations var i: Integer; temp: Real; begin temp := a; for i:= 1 to n do begin temp := 0.5 * (temp + a / temp); end; result := temp; end; var resultat, precedent: Real; i : Integer; stop : Boolean; vecteur : Vector; begin precedent := 0; i := 0; stop := False; SetLength(vecteur, 0); // repeat resultat := U(2, i);// racine de 2 if resultat = precedent then begin stop := True; end else begin vecteur := Append(vecteur, resultat); precedent := resultat; i := i + 1; end; until stop; // Write(vecteur); end.
On peut remplacer write() par ShowVec() pour un affichage en colonne avec certaines options.{2, 1.5, 1.4166667, 1.4142157, 1.4142136, 1.4142136}
Un bémol toutefois. Comme Simicro l'a déjà signalé dans sa présentation, le produit n'est plus mis à jour et il a quelques bugs. Je me suis enregistré pour pouvoir essayer toutes les fonctionnalités : certaines sont restées bloquées malgré la clé. Ce n'était pas une très bonne idée, apparemment.
Partager