Les instructions générales

Commande de compilation...
Commande d'exécution...
Fichier source...

upscmp Source=insgen.upl

Revenir en haut de la page...

insgen

Revenir en haut de la page...

Source Composant "Exemple sur les instructions générales" Version 1.0.0;

Principal
/*******/
Variable Debut
Pour A=1 JusquA 5 Faire Fin Pour
Ecran.Ecrire("\n");
A=1;
TantQue A<5 Faire Fin TantQue
Ecran.Ecrire("\n");
A=1;
Faire JusquA Fin Faire
Ecran.Ecrire("\n");
B=A;
Si B==1.0 Alors SinonSi B==2.0 Alors Sinon Fin Si
Si A==1 Alors SinonSi A==2 Alors Sinon Fin Si

Selon B+1 Faire Fin Selon
Selon A+1 Faire Fin Selon
C=(A==1);
Si C Alors Sinon Fin Si
Ecran.Ecrire("\n");

Pour AN=1 JusquA 5 Faire Fin Pour
Ecran.Ecrire("\n");
AN=1;
TantQue AN<5 Faire Fin TantQue
Ecran.Ecrire("\n");
AN=1;
Faire JusquA Fin Faire
Ecran.Ecrire("\n");
BN=AN;
Si BN==1.0 Alors SinonSi BN==2.0 Alors Sinon Fin Si
Si AN==1 Alors SinonSi AN==2 Alors Sinon Fin Si
Selon BN+1 Faire Fin Selon Selon AN+1 Faire Fin Selon
CN=(AN==1);
Si CN Alors Sinon Fin Si
Ecran.Ecrire("\n");
B=3.0;
Pour A=1 JusquA 5 Faire Fin Pour
Ecran.Ecrire("\n");

Pour A=1 JusquA 5 Faire Fin Pour
Fin Principal

Revenir en haut de la page...