Méthode pour la construction de mon algo ou boucle

Version imprimable

02/04/2017, 21h33
Masterkey42

Méthode pour la construction de mon algo ou boucle

Bonjour tous le monde,

Je ne sais pas trop si je suis sur le bon forum mais bon je me lance.

Mise en situation :
Je suis en train d'assembler des médias pour l'affichage sur des écrans.
Chaque écran fait 100x100 pixels.
J'ai 4 grappes d'écrans : 1 grappe de 2, 1 grappe de 3, 1 grappe de 4 et 1 grappe de 5
Donc maximum d'écrans : 5
Maximum de médias en entrée : 5
Je programme en pascal sur Lazarus.
Je n'encode pas forcément pour toutes les grappes et mon nombre de média est variable de 1 à 5.
J'encode grappe par grappe.
J'ai une variable "NbEcranGrappe" qui me permet de savoir combien j'ai d'écrans dans ma grappe.
J'ai une variable "NbMediaSource" qui me permet de savoir combien j'ai de médias source.
Je cherche une solution (Surement un Algo) pour faire suivant le nombre d'écrans et le nombre de médias l'assemblage.

Exemple 1 :
5 écrans 1 médias
Sortie 500x100 pixels soit 5 fois le médias 1

Exemple 2 :
5 écrans 2 médias
Sortie 500x100 pixels soit média 1 + média 2 + média 1 + média 2 + média 1

Exemple 3 :
4 écrans 3 médias
Sortie 400x100 pixels soit média 1 + média 2 + média 3 + média 1

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
public class main {
    public static void main(String[] args) {
        assemblage(5, 1);
        assemblage(5, 2);
        assemblage(4, 3);
    }
 
    private static void assemblage(int NbEcranGrappe, int NbMediaSource) {
        for (int i = 0; i < NbEcranGrappe; ++i) {
            System.out.print(" + média " + (i % NbMediaSource + 1));
        }
        System.out.println();
    }
}

salut
une simple boucle avec la fonction mod (le reste d'une division) devrais largement suffire

Code:

1
2
3
4
5
6
7
8
9
10
 
Procedure assemblage(NbEcranGrappe,NbMediaSource : Integer);
var 
  ibGrappe : integer; 
begin
    st := '';
    for ibGrappe := 0 to pred(NbEcranGrappe) do 
        st :=  st+ Format(' média %d +',[((i mod NbMediaSource) + 1)]);
    writeln(copy(st,1,length(st)-1)); // ici on enlève le dernier + 
end;

03/04/2017, 14h16
CliffeCSTL

Sans vouloir être méchant, ça m'inquiète un peu lorsque je vois un développeur ne sachant pas écrire une fonction de 3 lignes 8O
03/04/2017, 17h45
Masterkey42

Salut et merci a vous deux pour vos réponses.

Je vais tester vos méthodes.

CliffeCSTL :
Aucun problème pour moi. J'ai juste utilisé une autre méthode mais qui ne faisais pas 3 lignes donc pour optimiser je demande et j'apprends.