Multiplication russe en pascal
Fermé
samspess
-
7 juin 2005 à 19:04
Xenor Messages postés 3312 Date d'inscription dimanche 11 août 2002 Statut Contributeur Dernière intervention 22 juin 2015 - 9 juin 2005 à 14:49
Xenor Messages postés 3312 Date d'inscription dimanche 11 août 2002 Statut Contributeur Dernière intervention 22 juin 2015 - 9 juin 2005 à 14:49
A voir également:
- Multiplication russe en pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev-pascal - Télécharger - Édition & Programmation
- Application multiplication - Télécharger - Études & Formations
- Site russe de téléchargement logiciel - Accueil - Outils
5 réponses
random
Messages postés
1612
Date d'inscription
vendredi 26 novembre 2004
Statut
Membre
Dernière intervention
30 mars 2006
155
9 juin 2005 à 09:54
9 juin 2005 à 09:54
program mslave;
var truc:longint;
function mult(x,y:longint):longint;
var rep:longint;
begin
if x>y then
begin
rep:=x;
x:=y;
y:=rep;
rep:=0;
end;
rep:=0;
while (x>=1) do
begin
rep:=rep + (y * (x mod 2));
x:=x div 2;
y:=y*2;
end;
mult:=rep;
end;
begin
writeln(mult(143,117));
end.
var truc:longint;
function mult(x,y:longint):longint;
var rep:longint;
begin
if x>y then
begin
rep:=x;
x:=y;
y:=rep;
rep:=0;
end;
rep:=0;
while (x>=1) do
begin
rep:=rep + (y * (x mod 2));
x:=x div 2;
y:=y*2;
end;
mult:=rep;
end;
begin
writeln(mult(143,117));
end.
jpdelx
Messages postés
18
Date d'inscription
mardi 7 juin 2005
Statut
Membre
Dernière intervention
9 juin 2005
9 juin 2005 à 13:39
9 juin 2005 à 13:39
Bonjour
Tu auras la solution sur http://jpdelx.club.fr/inf2.html
@lpf
Tu auras la solution sur http://jpdelx.club.fr/inf2.html
@lpf
Angel25
Messages postés
4693
Date d'inscription
lundi 18 avril 2005
Statut
Membre
Dernière intervention
14 juin 2006
119
9 juin 2005 à 13:46
9 juin 2005 à 13:46
oh t'as pas bientot fini de mettre ton site partout !!!!!
jpdelx
Messages postés
18
Date d'inscription
mardi 7 juin 2005
Statut
Membre
Dernière intervention
9 juin 2005
9 juin 2005 à 13:55
9 juin 2005 à 13:55
Bonjour
Tiens je pensai que le but du forum était d'aider...
Je me suis sûrement trompé... dommage :o(
@lpf
Tiens je pensai que le but du forum était d'aider...
Je me suis sûrement trompé... dommage :o(
@lpf
Dinheru
Messages postés
1019
Date d'inscription
mercredi 20 avril 2005
Statut
Membre
Dernière intervention
17 avril 2009
67
9 juin 2005 à 13:57
9 juin 2005 à 13:57
Tu peux aider sans faire ta pub perso !!
Si tu as la réponse sur ton site tu fais un copier/coller. Sinon ton site perso il doit rester dans ton profil point bar !!!!
Si tu as la réponse sur ton site tu fais un copier/coller. Sinon ton site perso il doit rester dans ton profil point bar !!!!
Angel25
Messages postés
4693
Date d'inscription
lundi 18 avril 2005
Statut
Membre
Dernière intervention
14 juin 2006
119
9 juin 2005 à 14:06
9 juin 2005 à 14:06
encore faut-il avoir remplit le profil !
jpdelx
Messages postés
18
Date d'inscription
mardi 7 juin 2005
Statut
Membre
Dernière intervention
9 juin 2005
>
Angel25
Messages postés
4693
Date d'inscription
lundi 18 avril 2005
Statut
Membre
Dernière intervention
14 juin 2006
9 juin 2005 à 14:22
9 juin 2005 à 14:22
Bonjour
Encore faudrait-il le pouvoir !!! :o(
@lpf
Encore faudrait-il le pouvoir !!! :o(
@lpf
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
jpdelx
Messages postés
18
Date d'inscription
mardi 7 juin 2005
Statut
Membre
Dernière intervention
9 juin 2005
9 juin 2005 à 13:59
9 juin 2005 à 13:59
Demat dit, Dinheru
OK
Ce n'est pas de la pub perso car cela ne me rapporte strictement rien ;o)
Ma philosophie (et mon job) est d'aider les autres...
Ken bremaik, a kalon.
OK
Ce n'est pas de la pub perso car cela ne me rapporte strictement rien ;o)
Ma philosophie (et mon job) est d'aider les autres...
Ken bremaik, a kalon.
Xenor
Messages postés
3312
Date d'inscription
dimanche 11 août 2002
Statut
Contributeur
Dernière intervention
22 juin 2015
51
9 juin 2005 à 14:49
9 juin 2005 à 14:49
Tu auras la solution sur http://www.google.fr