[TPW][Débutant] Case avec instructions multiples

Bonsoir,
comment faire suivre plusieurs instructions par ligne dans un CASE... OF :
Cela ne marche pas, de même que la virgule :

Code:

---

1 2 3 4 5 6

case k of   1 : resultat1 := chr(tablon[11]) ; resultat2 := chr(tablon[12]); 2 : resultat2 := chr(tablon[21]) ; resultat2 := chr(tablon[22]); etc.

---

merci beaucoup

Gio,

Comme de partout en Pascal quand on veut exécuter plusieurs instructions simples : on crée un bloc d'instructions multiples.

Tu ne sais pas de quoi il s'agit ?

Mais si, c'est un bloc begin ... end;

C'est là du Pascal basique. :)

J'apprends sur le tas et je rencontre de multiples petits problèmes qui doivent paraître idiots à un pro. J'ai bien des bouquins mais ils ne traitent pas tous les cas de figure au même endroit. Et quand on ne sait pas, difficile de trouver la bonne page.
Votre aide m'est très précieuse, j'apprends petit à petit.
Je vous remercie beaucoup pour votre patience et votre amabilité à répondre à mes questions.

Hoe,

Normalement, un bouquin bien fait devrait te permettre de ne pas avoir besoin d'un concept avant de l'avoir appris.

Accessoirement, ton code

Code:

---

1 2 3 4 5 6

Case k < 9 OF 1 : resultat1 := chr(tablon[11]) ; resultat2 := chr(tablon[12]); 2 : resultat1 := chr(tablon[21]) ; resultat2 := chr(tablon[22]); etc.

---

que j'ai pris la liberté de corriger ?

est faux : k < 9 est une expression booléenne, et ne peut donc prendre que les valeurs false et true (et pas 1, 2...).

il faudrait faire

Code:

---

1 2 3 4 5 6 7 8

if k < 9 then begin case k of 1 : .... 2 : .... end; { le case k of } end;

---

ou

Code:

---

1 2 3 4 5 6

case k of 1 : .... 2 : .... else .... { traiter ici les cas avec k >= 9 } end; { le case k of }

---

Avec k <9, et si la suite est comme je l'imagine

Code:

---

1 2 3

... 3 : resultat1 := chr(tablon[31]) ; resultat2 := chr(tablon[32]); ...

---

alors on peut simplifier :

Code:

---

1 2 3 4 5

if k < 9 then begin resultat1 := Chr(tablon[k*10 +1]); resultat2 := Chr(tablon[k*10 +2]); end;

---

et plus besoin du case. :)

Et je pense qu'un tableau d'enregistrements (Record), ou un tableau à 2 dimensions seraient mieux adaptés.

Effectivement mon code était bien :

Code:

---

1 2 3 4 5 6

case k of 1 : resultat1 := chr(tablon[11]) ; resultat2 := chr(tablon[12]); 2 : resultat1 := chr(tablon[21]) ; resultat2 := chr(tablon[22]); etc.

---

Il s'agissait d'une erreur d'attention.
Merci pour la proposition de boucle.

Wie,

Citation:

---

Envoyé par dimi2

Effectivement mon code était bien :

Code:

---

1 2 3 4 5 6

case k of 1 : resultat1 := chr(tablon[11]) ; resultat2 := chr(tablon[12]); 2 : resultat1 := chr(tablon[21]) ; resultat2 := chr(tablon[22]); etc.

---

Il s'agissait d'une erreur d'attention.
Merci pour la proposition de boucle.

---

Ce n'est pas une boucle, on remplace un case of par un calcul d'indice : moins de code, et donc moins d'erreurs potentielles. :)