Ecriture fonctions en pascal
Fermé
bild
Messages postés
52
Date d'inscription
lundi 17 mars 2008
Statut
Membre
Dernière intervention
12 janvier 2017
-
19 juil. 2008 à 15:12
KX Messages postés 16752 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 31 août 2024 - 23 juil. 2008 à 23:15
KX Messages postés 16752 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 31 août 2024 - 23 juil. 2008 à 23:15
A voir également:
- Ecriture fonctions en pascal
- Écriture facebook - Guide
- Turbo pascal download - Télécharger - Édition & Programmation
- Ecriture en gras - Guide
- My pascal - Télécharger - Édition & Programmation
- Écriture miroir - Guide
2 réponses
bild
Messages postés
52
Date d'inscription
lundi 17 mars 2008
Statut
Membre
Dernière intervention
12 janvier 2017
23 juil. 2008 à 20:22
23 juil. 2008 à 20:22
voici ce que j'ai cherché pour le CAS1
procédure décompbin(nombre:integer; var nbbin:nombrebinaire);
const N=10
var
i:integer; {copie du nbre}
n ch:integer; {nbre de chiffre}
BEGIN
n bis:=nombre;
while nombre>0 do
BEGIN
n ch:=n ch+1;
nombre[n ch]:=nombre*mod2;
nombre:=nombre*div2;
nombrebinaire[i]:=nombre;
end;
end;
procédure décompbin(nombre:integer; var nbbin:nombrebinaire);
const N=10
var
i:integer; {copie du nbre}
n ch:integer; {nbre de chiffre}
BEGIN
n bis:=nombre;
while nombre>0 do
BEGIN
n ch:=n ch+1;
nombre[n ch]:=nombre*mod2;
nombre:=nombre*div2;
nombrebinaire[i]:=nombre;
end;
end;
KX
Messages postés
16752
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
31 août 2024
3 019
23 juil. 2008 à 23:15
23 juil. 2008 à 23:15
Il vaudrait mieux que tu poursuives ton raisonnement là où tu l'as commencé (ici).
Enfin moi je dis ça...
Enfin moi je dis ça...