Bonjour, bonjour,
J'ai réaliser une procédure en pascal qui fait appel à des fonctions, presque semblables.
Est-ce quelqu'un saurait m'aider à généraliser ces fonctions???
C'est super urgent
Merci bcp
Bonjour, bonjour,
J'ai réaliser une procédure en pascal qui fait appel à des fonctions, presque semblables.
Est-ce quelqu'un saurait m'aider à généraliser ces fonctions???
C'est super urgent
Merci bcp
Salut
Ceci est base de la programmation. Je te conseille de commencer par lire des cours et des tutoriels. Dans ton cas, une simple procedure ou fonction avec parametres suffit.
Et, ca ne sert a rien de dire que c'est urgent, ca ne nous donne pas trop envie de répondre ...
Bonne chance
Mick605
Articles :
Création d'un système de chat en Pascal
Programmes :
Défi Pascal 2011 - Mon Tetris
Défi Pascal 2010 - Mon système de chat
Défi Delphi 2009 - Mon Sudoku Solver
Retrouvez mes différents projets sur ma page personnelle.
Bah en fait, c'est parce que je dois rendre mon travail mardi
Mais j'ai eu les cours, et je ne comprends pas très bien! Ce n'est pas mon option principal, je ne fais pas informatique!
J'ai fait la procédure avec les quatre fonctions que je dois généraliser, pour les insérer dans la procédure principale.
Je publie ce que j'ai fait, au cas où quelqu'un saurait m'aider
C'est une procédure qui consiste à voir, le nombre de jeton aligné de mm couleur verticalement(0,1), horizontalement(1,0), obliquement décroissante(1,1), et obliquement croissante(-1,1).
Merci de votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103 procedure elementsAlignes(var tab:grille; lgtab:coord, elt, direction: coord; var elementAlignes:integer; x:integer; y:integer; begin begin elementAlignes:=1 x:=elt.col y:=elt.lig case (???)of direction.col=0 and direction.lig=1; fctverticale ((x,y), elementsAlignes) direction.col=1 and direction.lig=0; fcthorizontale ((x,y), elementsAlignes) direction.col=-1 and direction.lig=1; fctobliquedecrois ((x,y), elementsAlignes) direction.col=1 and direction.lig=1; fctobliquecrois ((x,y), elementsAlignes) end; procedure fctverticale ((x,y), elementsAlignes) var b:boolean; temporaire:integer; begin b:=true temporaire:=y while (y>1) and (b:=true) do begin if tab[y,x].couleur= tab[y-1,x].couleur then elementAlignes:= elementAlignes+1 y:=y-1 end; else begin b:=false y:=temporaire b:=true while (y<lgTab.lig) and (b:=true) do begin if tab[y,x].couleur= tab[y+1,x].couleur then elementAlignes:=elementAlignes+1 y:=y+1 end; else begin b:=false end; end; procedure fcthorizontale ((x,y), elementsAlignes) var b:boolean; temporaire:integer; begin b:=true temporaire:=y while (x>1) and (b:=true) do begin if tab[y,x].couleur= tab[y,x-1].couleur then elementAlignes:= elementAlignes+1 x:=x-1 end; else begin b:=false y:=temporaire b:=true while (y<lgTab.lig) and (b:=true) do begin if tab[y,x].couleur= tab[y,x+1].couleur then elementAlignes:=elementAlignes+1 x:=x+1 end; else begin b:=false end; end; procedure fctdecrois ((x,y), elementAlignes) var b:boolean; temporaire1:integer; temporaire2:integer; begin b:=true temporaire1:=x temporaire2:=y while (y>1) and (b:=true) and (y<lgTab.lig) do begin if tab[y,x].couleur= tab[y-1,x-1].couleur then elementAlignes:= elementAlignes+1 x:=x-1 y:=y-1 end; else begin b:=false x:=temporaire1 y:=temporaire2 b:=true while (x<lgTab.col) and (b:=true) and (y>1) do begin if tab[y,x].couleur= tab[y+1,x+1].couleur then elementAlignes:=elementAlignes+1 x:=x+1 y:=y+1 end; else begin b:=false end;
Normalement, si tu as eu des cours, tu dois être capable de le faire. Je t'ai donné la solution dans mon premier message. Il te suffit d'utiliser une procedure avec parametres. Si tu ne sais pas ce que c'est, cherche, et regarde les cours : http://pascal.developpez.com/cours/p...age_13#LXIII-C
En voyant ton code, je me dis que tu dois être capable d'ajouter cette procedure avec parametres toute seule. Pour t'aider, les paramètres à donner à ta procedure sont la direction de la ligne à vérifier, selon X et Y.
Articles :
Création d'un système de chat en Pascal
Programmes :
Défi Pascal 2011 - Mon Tetris
Défi Pascal 2010 - Mon système de chat
Défi Delphi 2009 - Mon Sudoku Solver
Retrouvez mes différents projets sur ma page personnelle.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager