Maj le 30/10/2001

Téléchargement de EditAlgo.ZIP
Nouvelle compilation d'EditAlgo le 30/10/2001.

Vous pouvez aussi télécharger IPCUTE.EXE (interpréteur et compilateur Pascal de François Bret) à l'adresse suivante :
http://www.ipcute.com

Vous avez créé des algorithmes avec EditAlgo. Ayez la gentillesse de me les faire parvenir en courrier joint à l'adresse
jean.thiou@free.fr merci.

Le binôme


On se donne deux variables réelles et on cherche les l'algorithme de résolution du binôme. Comme il est difficiel pour des débutants de transformer des nombres en chaînes de caractères, j'ai préféré afficher les résultats dans le traitement, ce qui évitait la concaténation dans une variable s, de l'ensemble solution.	Au premier niveau <Traiter> et <Afficher> sont regroupés. Le seul bouton utilisé au niveau 1 est (<>) correspondant à une action non formalisée. Les boutons utilisés au niveau 2 sont : Lire Ecrire Si

Programme Pascal correspondant

Program Binome;

VAR
a :Real; { coefficient de x (ax+b) }
b :Real; { ax+b=0 }

BEGIN
   Writeln('a ?');
   Readln(a);
   Writeln('b ?');
   Readln(b);
   If a=0
   Then
   Begin
     If b=0
     Then Writeln('S=R') Else Writeln('S={}')
   End
   Else Writeln('S={',-b/a,'}')
END.

Programme C correspondant

/* Program Binôme*/

/* Supprimer ci-dessous les bibliothéques inutiles */
#include <stdio.h>
#include <conio.h>
#include <string.h>
#include <math.h>

float a; /* coefficient de x (ax+b) */
float b; /* ax+b=0 */

void main(void)
{
   printf("%s\n","a ?");
   scanf("%f",&a);
   printf("%s\n","b ?");
   scanf("%f",&b);
   if (a==0)
   {
     if (b==0)
       printf("%s\n","S=R");
     else
       printf("%s\n","S={}");
   }
   else
     printf("%s %f %s \n","S={",-b/a,"}");
}

Programme Basic correspondant

'Program Bin¶me

DEFDBL A-B

   PRINT "a ?"
   INPUT a
   PRINT "b ?"
   INPUT b
   IF a = 0 THEN
     IF b = 0 THEN
       PRINT "S=R"
     ELSE
       PRINT "S={}"
     END IF
   ELSE
     PRINT "S={", -b / a, "}"
   END IF

Retour au sommaire