[Help!] Turbo pascal

Discussion dans 'Web, design' créé par [nrshadow], 12 Juin 2007.

Statut de la discussion:
Fermée.
  1. Offline
    [nrshadow] Touriste
    quelqu'un aurait l'algorithme du modulo 10 et du Modulo 23 en pascal? (tri de nombre,...)
    merci d'avance
    [nrshadow], 12 Juin 2007
    #1
  2. Offline
    kokotchY Elite
    Ces noms ne me disent rien du tout !
    Tu ne pourrais pas expliciter un peu ce que tu cherches ?
    kokotchY, 12 Juin 2007
    #2
  3. Offline
    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 ?
    null, 12 Juin 2007
    #3
  4. Offline
    kokotchY Elite
    En pascal, le modulo se représente par mod : 4 mod 2 = 0 par exemple
    kokotchY, 12 Juin 2007
    #4
  5. Offline
    [nrshadow] Touriste
    :oops:
    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 :)
    [nrshadow], 12 Juin 2007
    #5
  6. Offline
    BelZe *
    modulo, si je me souviens bien et comme ça a été dit, c'est simplement le résultat d'une division avec reste.
    BelZe, 12 Juin 2007
    #6
  7. Offline
    Tchaikovsky ex membre
    oui, ou une affaire de classes latérales dans les structures algebriques :-9
    Tchaikovsky, 12 Juin 2007
    #7
  8. Offline
    gogoprog Oprahiste vaudou
    Aurais-tu enfin compris quelque chose?! :D
    gogoprog, 12 Juin 2007
    #8
  9. Offline
    BelZe *
    Tu feras le malin quand t'auras coder tout un morpion avec interface graphique en Pascal, pas avant :p


    Ce qui n'est pas le cas de tout el monde :-D
    BelZe, 12 Juin 2007
    #9
  10. Offline
    Douby Elite
    Oui, vive le pascal :baille:
    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.
    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
    Douby, 12 Juin 2007
    #10
  11. Offline
    [nrshadow] Touriste
    en fait cetait sa que je voulais :D
    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.
    [nrshadow], 12 Juin 2007
    #11
  12. Offline
    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 !
    kokotchY, 12 Juin 2007
    #12
  13. Offline
    [nrshadow] Touriste



    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
    [nrshadow], 12 Juin 2007
    #13
  14. Offline
    kokotchY Elite
    Ils ne servent à rien ouais :p

    Ta prof te fait étudier des algos par coeur et ils ne servent à rien oO
    kokotchY, 12 Juin 2007
    #14
Statut de la discussion:
Fermée.