Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1774 connectés 

  FORUM HardWare.fr
  Programmation
  Delphi/Pascal

  Besoin d'aide svp

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Besoin d'aide svp

n°1703081
Atomic41
OH QUE OUI !!!!!
Posté le 16-03-2008 à 17:51:34  profilanswer
 

Je dois faire un programme qui est composé ainsi :
 
Je dois entrer 3 températures (une à 2h, une à 11h et une à 23h et ainsi de suite pour les 7 jours de la semaine) (ces 3 valeurs entrent dans un tableau). Par la suite, je dois afficher ce tableau dans un ListBox.
 
Voici l'étape où j'ai de la difficulté, c'est que il faut que je choisisse parmi toutes ces températures qui sont dans ce tableau en appuyant sur un bouton la température la plus haute de la semaine et un autre bouton pour la température la plus basse de la semaine.
 
 
Comment vous vous y prendriez ??
 
merci de l'aide

mood
Publicité
Posté le 16-03-2008 à 17:51:34  profilanswer
 

n°1703663
Flagad'awa​re
c pô moi, j'ai pas touché!
Posté le 17-03-2008 à 20:49:54  profilanswer
 

Salut
 
t'a "juste" à faire deux boucles qui parcourent tout ton tableau (plutôt que de parcourir le listbox) et qui reprend chaque valeurs
 
en gros, pour les maximas:

Temp:=-30;
 
for i= 1 to (la longeur du tab, et -1 si y faut) do if Tab[i]>Temp then Temp:=Tab[i];


 
une fois la boucle finie, t'auras (dans Temp) la plus grande valeur trouvée dans ton tableau Tab :)
 
après faut voir ce que t'utilise comme tableau et adapter en conséquence mais ce principe doit pas être trop mauvais

Message cité 1 fois
Message édité par Flagad'aware le 17-03-2008 à 20:51:02
n°1703843
Atomic41
OH QUE OUI !!!!!
Posté le 18-03-2008 à 01:20:37  profilanswer
 

Flagad'aware a écrit :

Salut
 
t'a "juste" à faire deux boucles qui parcourent tout ton tableau (plutôt que de parcourir le listbox) et qui reprend chaque valeurs
 
en gros, pour les maximas:

Temp:=-30;
 
for i= 1 to (la longeur du tab, et -1 si y faut) do if Tab[i]>Temp then Temp:=Tab[i];


 
une fois la boucle finie, t'auras (dans Temp) la plus grande valeur trouvée dans ton tableau Tab :)
 
après faut voir ce que t'utilise comme tableau et adapter en conséquence mais ce principe doit pas être trop mauvais


n°1703844
Atomic41
OH QUE OUI !!!!!
Posté le 18-03-2008 à 01:22:52  profilanswer
 

ok d'accord mais mon tableau est de 2 dimension de longueur (7 pour les 7 jours de la semaines et de 3 pour les 3 différentes température pendant cette journée )

 

et ensuite je dois prendre cette température la plus basse de mon tableau et aller la mettre dans un label.

 

Donc, Est-ce que je m'y prend comme suis ???

 


procedure TForm1.TempBasseClick(Sender: TObject);
var i : integer;
  begin
    for i:= 0 to 6 do
      begin
        if Ttemp[i] < temp1 and temp2 and temp3 then
        textbasse.Caption:= StrtoInt(Ttemp[i]);

 

 end;


Message édité par Atomic41 le 18-03-2008 à 01:25:00
n°1704265
Flagad'awa​re
c pô moi, j'ai pas touché!
Posté le 18-03-2008 à 20:09:47  profilanswer
 

:heink:  
 
if Ttemp[i] < temp1 and temp2 and temp3 c'est certainement pas bon
 
mais tu utilise quoi exactement comme tableau?, donne plus de précisions
 
si il a bien 2 dimension ça devrait donner:
 
var  
Ttemp:array [1..7,1..3] of integer;
i:integer;
temp:integer;
 
 
si c'est ça tu doit faire une boucle (de 1 à 3) dans une autre boucle (1 à 7)
 
pour faire ce qui doit donner:
if Ttemp[1,1] < (ou > ) temp then...
if Ttemp[1,2] < (ou > ) temp then...
if Ttemp[1,3] < (ou > ) temp then...
if Ttemp[2,1] < (ou > ) temp then...
if Ttemp[2,2] < (ou > ) temp then...
...etc jusqu'à Ttemp[7,3]
 
 
je t'avais donné le nom de variable temp comme "temporaire" au fait, pendant toute la boucle c'est lui qui stock (et est modifié à chaque nouveau mini ou maxi trouvé) jusqu'à la fin


Message édité par Flagad'aware le 18-03-2008 à 20:11:43

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Delphi/Pascal

  Besoin d'aide svp

 

Sujets relatifs
Une image, decoupé en 9, puzzle => besoin d'aide :)besoin d'aide pour associer les touches clavier
[SQL] Besoin d'aide pour un UpdateBesoin d aide sur des tables access
Besoin d'aide pour lightbox.Oracle - besoin d'aide pour un outer join
Besoin d'aide sur les ID[PERL] besoin de votre aide pour comprendre une variable
Besoin d'aide pour un script JSbesoin d'aide xhtml / css
Plus de sujets relatifs à : Besoin d'aide svp


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR