Pouvez-vous m'expliquer moi ce code svp ?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Pouvez-vous m'expliquer moi ce code svp ?

greeeg

Voilà, mon prof m'a donné le code du tri par insertion, et il y a une chose que je comprends pas :

Pourquoi dans la 2ème boucle for, il commence de k:=2 et non k :=1 ?

Code :

PROGRAM Ins_Lin;
USES CRT;
TYPE ATrier = BYTE;
VAR N, k, i : BYTE;
Tmp : ATrier;
A : ARRAY[1..100] OF ATrier;
PROCEDURE Affiche;
VAR i : BYTE;
BEGIN
FOR i:=1 TO N DO
WRITE (A[i]:4);
WRITELN
END;
BEGIN
CLRSCR;
N:=99; {nb d'élément ds mon tableau}
RANDOMIZE;
FOR k:=1 TO N DO {remplissage du tableau}
A[k]:=RANDOM(50);
WRITELN('Avant le tri:');
Affiche;
FOR k:=2 TO N DO
BEGIN
Tmp:=A[k];
i:=k-1;
WHILE NOT ((A[i]<=Tmp) OR (i=1)) DO
BEGIN
A[i+1]:=A[i];
DEC(i)
END;
IF A[1]>Tmp THEN BEGIN
A[2]:=A[1];
i:=0
END;
A[i+1]:=Tmp;
END;
WRITELN('Apr?s le tri:');
Affiche
END.

Merci beaucoup

Message édité par greeeg le 06-02-2003 à 01:07:39

Publicité

os2

va voir sur mon site web, tu auras la réponse

---------------
Borland rulez: http://pages.infinit.net/borland

antp

Super Administrateur
Champion des excuses bidons

voyant tout les mots-clé en majuscule j'avais cru à de l'assembleur ou du cobol :lol: je suis pas habitué à voir du pascal écrit comme ça :sweat:

[SDF]Poire

Vive Grumly

greeeg a écrit :

Voilà, mon prof m'a donné le code du tri par insertion, et il y a une chose que je comprends pas :

Pourquoi dans la 2ème boucle for, il commence de k:=2 et non k :=1 ?

Merci beaucoup

Prof de quoi ? si C ds le supérieur en info change d'école...

il commence par k:=2 becose sont tableau commence à 1 :ouch: et parce kil fait i := k-1 pour la comparaison (comme ça pour le test A[i] est bien un élément du tableau

:hello:

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

[SDF]Poire

Vive Grumly

os2 a écrit :

va voir sur mon site web, tu auras la réponse

ça C de la super réponse.... le forum est pas là pour promouvoir ton site web

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

antp

Super Administrateur
Champion des excuses bidons

os2 a écrit :

va voir sur mon site web, tu auras la réponse

à part une image et une liste de nouveautés je vois que dalle sur ton site :??:

JPA

-> antp : il y a un menu en haut...
t'as trop modéré cette nuit, tu as les yeux qui fatiguent :lol:

antp

Super Administrateur
Champion des excuses bidons

ha ouais je croyais que seul le site de rufo marche dans IE uniquement, on dirait que c'est le cas aussi du site d'os2
ça fait très pro tout ça

dans Opera y a pas de menu du tout

Message édité par antp le 06-02-2003 à 10:26:10

JPA

-> antp : exact, Opéra n'en veut pas.
Encore un site développé avec frontpage...

Moustaaki

.: ILITCH :. ésprit sibérie

JPA a écrit :

-> antp : exact, Opéra n'en veut pas.
Encore un site développé avec frontpage...

lol

Publicité

antp

Super Administrateur
Champion des excuses bidons

Moustaaki a écrit :

lol

remonter un topic juste pour ça c'est un peu abusé

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Moustaaki

.: ILITCH :. ésprit sibérie

bon, personne n'a répondu du coup...

j'avoue que j'ai un peu la flemme aussi... alors, j'vais juste de donner les outils pour mieux comprendre l'algo : suis l'algo en donnant des valeurs à tes variables... (hem. smal dit tt ça... bon, c encore plus chiant à expliquer comment comprendre ))) lol

bon, j'vais essayer :
FOR k:=1 TO N DO {remplissage du tableau}
A[k]:=RANDOM(50);

bon, apparement, ton tableau A est indexé de 1 à N (ok ?)
donc, si on essaye A[0] => ça correspond pas à une valeure que t'as inséré (ou ça plante (ArrayOutOfBound))

et là, regardes bien ce morceau :

FOR k:=2 TO N DO
BEGIN
Tmp:=A[k];
i:=k-1;
WHILE NOT ((A[i]<=Tmp) OR (i=1)) DO
BEGIN
A[i+1]:=A[i];
DEC(i)
END;

bon... tjs pas vu ??!

alors :
i := k-1;

si tu commences ta boucle à 1 :
tu aurrais :
i := 1-1;
soit i = 0 ^^

et donc ensuite, plus loin ds le code (en gras au dessus) :

A[i+1]:=A[i]; donnerais : A[1] := A[0] !!!!

On vient pas de dire que A[0] était une valeur incorrecte ?!
bah si... bah ouala. stout...

maintenant si c'est une explication de l'algo que tu veux... => demandes au prof, il est là pour ça

(belle explication pas concise et pas claire ))
dsl.

Message édité par Moustaaki le 18-02-2003 à 17:46:10

Moustaaki

.: ILITCH :. ésprit sibérie

antp a écrit :

remonter un topic juste pour ça c'est un peu abusé

la réponse était un peu longue à poster dsl.

antp

Super Administrateur
Champion des excuses bidons

ok t'es excusé

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

FORUM HardWare.fr

Programmation

Delphi/Pascal

Pouvez-vous m'expliquer moi ce code svp ?

Sujets relatifs
[VB] Cherche code source pour décompression LZH / YM	[newbie] inserer un code javascript dans du html
[html, js] pb de drag&drop : super code inside :) si ca peu aider...	[VB] Comment accéder au code source d'une page web ?
Comment je peux cacher la source de mon code html dans une page php ?	j arrive pas a compiler un code source recuperé sur le net
[java] le meilleur obfuscateur de code ?	[Python/C++] Cooperation code Python avec appli C++
code postal stocké en CHAR ou INT ?	code pour lancer l'execution d' un programme externe
Plus de sujets relatifs à : Pouvez-vous m'expliquer moi ce code svp ?

Page générée en 0.067 secondes