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 un nombre entier quelconque en base
dix. Trouver la somme et le produit de ses chiffres.
Utilisation de EDITALGO
Liste des variables utilisées
Algorithme
Les programmes correspondants
Langage Pascal
Program SomProd;
Uses Wincrt;
VAR
n :Integer; { Nombre saisi (entrée) }
s :Integer; { Somme des chiffres de n }
p :Integer; { Produit des chiffres de n }
d :Integer; { Duplicata de n pour les calculs }
u :Integer; { Reste de la division de d par 10 }
BEGIN
Writeln('Donner n');
Readln(n);
d := n;
s := 0;
p := 1;
Repeat
u := d mod 10;
d := d div 10;
s := s+u;
p := p*u
Until d=0;
Writeln('s = ',s,' p = ',p)
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 n; /* Nombre saisi (entrée) */
int s; /* Somme des chiffres de n */
int p; /* Produit des chiffres de n */
int d; /* Duplicata de n pour les calculs */
int u; /* Reste de la division de d par 10 */
void main(void)
{
printf("%s\n","Donner n");
scanf("%d",&n);
d = n;
s = 0;
p = 1;
do
{
u = d % 10;
d = d / 10;
s = s+u;
p = p*u;
}
while ( d!=0);
printf("%s %d %s %d \n","s = ",s," p = ",p);
}
Langage Basic
'Program SomProd
'Complétez les lignes suivantes si nécessaire (pas d'accent)
'DefInt (liste des variables entieres -premiere lettre)
'DefDbl (liste des variables reelles - premiere lettre)
'DefStr (liste des variables chaines -premiere lettre)
PRINT "Donner n"
INPUT n
d = n
s = 0
p = 1
DO
u = d MOD 10
d = d \ 10
s = s + u
p = p * u
LOOP UNTIL d = 0
PRINT "s = ", s, " p = ", p
