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
Enoncé
On se donne deux nombres entiers n1 et n2 Trouver la somme de tous les nombres x tels que n1<=
x <= n2.
Mathématiquement il n'y a pas de problème, car nous avons
ainsi à calculer la somme des termes d'une progression arithmétique
de raison 1 de premier terme n1 et de dernier terme n2. La formule existe.
s=(n1+n2)(n2-n1+1)/2. Elle servira donc à vérifier les résultats
donnés par notre algorithme et des programmes qui en découlent.
Utilisation de EDITALGO
Liste des variables utilisées
Algorithme
Les programmes correspondants
Langage Pascal
Program SomN1N2;
Uses Wincrt;
VAR
n1 :Integer; { Nombre où commence la somme }
n2 :Integer; { Nombre où se termine la somme }
s :Integer; { Calcul de la somme }
i :Integer; { indice de la boucle }
BEGIN
Writeln('Quel est le premier nombre');
Readln(n1);
Writeln('Quel est le second nombre');
Readln(n2);
s := 0;
For i := n1 to n2 do s := s+i;
Writeln('s=',s)
END.
/* Complétez ci-dessous la liste de vos variables ( exemple int
a,b ou char *c,*d;) */
/* Pour les variables chaînes de caractères, remplacez
%d par %s */
/* Pour les variables réelles, (float x,y;) remplacez %d par
%f */
/* Il n'existe pas de type boolean en C. IL faut le définir :
enum boolean {false,true} */
int n1; /* Nombre où commence la somme */
int n2; /* Nombre où se termine la somme */
int s; /* Calcul de la somme */
int i; /* indice de la boucle */
void main(void)
{
printf("%s\n","Quel est le premier nombre");
scanf("%d",&n1);
printf("%s\n","Quel est le second nombre");
scanf("%d",&n2);
s = 0;
for ( i = n1 ; i <= n2 ; i ++)
s = s+i;
printf("%s %d \n","s=",s);
}
Langage Basic
'Program SomN1N2
DefInt A-Z
PRINT "Quel est le premier nombre"
INPUT n1
PRINT "Quel est le second nombre"
INPUT n2
s = 0
FOR i = n1 TO n2
s = s + i
NEXT
PRINT "s=", s
