![[nrshadow]](/data/avatars/m/0/774.jpg?1404045267){kind=avatar}
[nrshadow]
Touriste
quelqu'un aurait l'algorithme du modulo 10 et du Modulo 23 en pascal? (tri de nombre,...)
merci d'avance
merci d'avance
[Help!] Turbo pascal
- Statut
kokotchY
Elite
Ces noms ne me disent rien du tout !
Tu ne pourrais pas expliciter un peu ce que tu cherches ?
Tu ne pourrais pas expliciter un peu ce que tu cherches ?
null
ose();
Tu veux le reste de la division entière de 10 et de 23 ?
Il n'y a pas de "%" en Turbo Pascal ?
Il n'y a pas de "%" en Turbo Pascal ?
kokotchY
Elite
En pascal, le modulo se représente par mod : 4 mod 2 = 0 par exemple
1er
OP
[nrshadow]
Touriste
en fait je sais plus trop bien ce que c'est
je vais essayé de me renseigner avant de vous donnez de nouvelles indications
merci qd mm pour vos réponse
BelZe
*
modulo, si je me souviens bien et comme ça a été dit, c'est simplement le résultat d'une division avec reste.
T
Tchaikovsky
ex membre
oui, ou une affaire de classes latérales dans les structures algebriques :-9BelZe a dit:
gogoprog
Oprahiste vaudou
Aurais-tu enfin compris quelque chose?!BelZe a dit:
BelZe
*
Tu feras le malin quand t'auras coder tout un morpion avec interface graphique en Pascal, pas avantTchaikovsky a dit:
Ce qui n'est pas le cas de tout el monde :-Dgogoprog a dit:Aurais-tu enfin compris quelque chose?!
Oui, vive le pascal
On a dû faire un sudoku en pascal cette année à la fundp -_-"
Ecrira normalement 1 si je me suis pas trop gourré :$, c'est il y a deux mois le passage du projet et je suis déjà paumé.
Pour celui qui veut mon sudoku + rapport avec les ordinnogrammes et invariants.
http://www.advalnet.com/dl/cours/1.zip
On a dû faire un sudoku en pascal cette année à la fundp -_-"
Code:
program test;
var
a,b,c : integer
begin
a:=2;
b:=5;
c:=a mod(b);
writeln(c);
readln;
readln;
end.Pour celui qui veut mon sudoku + rapport avec les ordinnogrammes et invariants.
http://www.advalnet.com/dl/cours/1.zip
1er
OP
[nrshadow]
Touriste
en fait cetait sa que je voulais
mais merci vous mavez au moin remis en tete de quoi sa
parlais sa a aidé au recherche
Méthode 1,3,7 modulo 10
Program modulo*;
Uses crt*;
Type table=array[1..10] of integer*;
Var t*:table*;
Num,cle*:string*;
L,i,p,q,s,r,code*:integer*;
Begin
Clrscr*;
Write(‘entrer l’’indicatif’)*;readln(num)*;
L*:=length(num)*;
For i*:=1 to l do
Val(copy(num,l-i+1,1),t,code)*;
P*:=2*;
While p<=l do
Begin
T[p]*:=t[p]*3*;
P*:=p+3*;
End*;
P*:=3*;
While p<=l do
Begin
T[p]*:=t[p]*7*;
P*:=p+3*;
End*;
Méthode alphabétique 23
Program alpha23*;
Uses crt*;
Const alpha=’ABC…Z’*;
Var reste,code,n*:integer*;
Num,cle*:string*;
Begin
Clrscr*;
Repeat
Write(‘entrez le numéro*:’)*;readln(num)*;
Val(num,n,code)*;
Until code=0*;
Reste*:=n mod 23*;
Cle*:=copy(alpha,reste+1,1)*;
Num*:=num+cle*;
Writeln(‘nouveau num*:’,num)*;
Readln*;
End.
mais merci vous mavez au moin remis en tete de quoi sa
parlais sa a aidé au recherche
Méthode 1,3,7 modulo 10
Program modulo*;
Uses crt*;
Type table=array[1..10] of integer*;
Var t*:table*;
Num,cle*:string*;
L,i,p,q,s,r,code*:integer*;
Begin
Clrscr*;
Write(‘entrer l’’indicatif’)*;readln(num)*;
L*:=length(num)*;
For i*:=1 to l do
Val(copy(num,l-i+1,1),t,code)*;
P*:=2*;
While p<=l do
Begin
T[p]*:=t[p]*3*;
P*:=p+3*;
End*;
P*:=3*;
While p<=l do
Begin
T[p]*:=t[p]*7*;
P*:=p+3*;
End*;
Méthode alphabétique 23
Program alpha23*;
Uses crt*;
Const alpha=’ABC…Z’*;
Var reste,code,n*:integer*;
Num,cle*:string*;
Begin
Clrscr*;
Repeat
Write(‘entrez le numéro*:’)*;readln(num)*;
Val(num,n,code)*;
Until code=0*;
Reste*:=n mod 23*;
Cle*:=copy(alpha,reste+1,1)*;
Num*:=num+cle*;
Writeln(‘nouveau num*:’,num)*;
Readln*;
End.
kokotchY
Elite
C'est normal que ce code est vraiment mal foutu ?
Tu as des * partout (pas syntaxiquement correct), il manque un end. dans le premier code, ...
Tu aurais aussi pu utiliser les balises de code, ca fait plus serieux.
De plus, je ne vois absolument pas à quoi ces codes peuvent servir !
Tu as des * partout (pas syntaxiquement correct), il manque un end. dans le premier code, ...
Tu aurais aussi pu utiliser les balises de code, ca fait plus serieux.
De plus, je ne vois absolument pas à quoi ces codes peuvent servir !
1er
OP
[nrshadow]
Touriste
kokotchY a dit:
ben serieusement ces codes ne servent quasiment a rien ds la vie courante ( dun utilisateur de pascal lol ) mais ma prof veux k je connaisse sa pr reussir mon exam donc jve lui faire plaisir lol
kokotchY
Elite
Ils ne servent à rien ouais
Ta prof te fait étudier des algos par coeur et ils ne servent à rien oO
Ta prof te fait étudier des algos par coeur et ils ne servent à rien oO
- Statut
![[Clad]](/data/avatars/s/0/257.jpg?1648905584){kind=avatar}
