IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

 Delphi Discussion :

Indemnité d’expérience professionnelle


Sujet :

Delphi

  1. #1
    Futur Membre du Club
    Homme Profil pro
    Inscrit en
    Avril 2010
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Algérie

    Informations forums :
    Inscription : Avril 2010
    Messages : 10
    Points : 7
    Points
    7
    Par défaut Indemnité d’expérience professionnelle
    Bonjour
    je voudrais développer une petite application qui calcule IEP (Indemnité d’expérience professionnelle) .mon problème que j'ai pas trouver l'algorithme qui convient pour mieux comprendre voici le tableaux ci dessus, je veux avoir le résultat de la case (Nouv) en vert
    merci
    Nom : barem.png
Affichages : 2071
Taille : 15,0 Ko
    Fichiers attachés Fichiers attachés

  2. #2
    Membre chevronné

    Profil pro
    Inscrit en
    Août 2005
    Messages
    1 011
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2005
    Messages : 1 011
    Points : 2 078
    Points
    2 078
    Par défaut
    Bonjour,
    Il n'y a pas forcement besoin de connaître l'algorithme. Pourquoi ne pas tout simplement importer les informations dans une base de donnée ? ou les lire dans un fichier texte ou directement dans Excel ?

    Compte tenu du très faible nombre de données n'importe quel type de fichier pour stocker les données fera l'affaire. Il pourra également y avoir une procédure pour importer les données a partir du fichier Excel.

  3. #3
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique retraité
    Inscrit en
    Janvier 2007
    Messages
    15 044
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique retraité
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2007
    Messages : 15 044
    Points : 40 962
    Points
    40 962
    Billets dans le blog
    62
    Par défaut
    Bonjour,

    la solution fichier permet de ne pas graver dans le programme (hardcoding) , j'allais dire "sur le marbre" le barème .

    sinon une simple boucle avec à l'intérieur un case pourrait fonctionner

    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
    function  IEP (nbr_annees : word) : double;
    var i : word;
    begin
      result:=0;
      for i:=1 to nbr_annees do
      begin
        case i of 
          01..10 : result:=result+2;
          11..15 : result:=result+2.5;
          16..20 : result:=result+3;
          21..32 : result:=result+3.5;
          33..40 : result:=result+4;
        end; // end case
      end; // end for
    end; // function
    [edit] après avoir fait un essai , je m’aperçoit que la ligne 31 et plus ne correspondent pas
    soit la valeur nouv avancement est fausse pour 31 et 32 (et devrait être égale à 4) , soit la valeur nouv à partir de 31 ainsi que toutes les suivantes sont fausses
    si le tableau est faux !!
    voici les résultats en appliquant les valeurs indiquées en nouv avancement
    2
    4
    6
    8
    10
    12
    14
    16
    18
    20
    22,5
    25
    27,5
    30
    32,5
    35,5
    38,5
    41,5
    44,5
    47,5
    51
    54,5
    58
    61,5
    65
    68,5
    72
    75,5
    79
    82,5
    86
    89,5
    93,5
    97,5
    101,5
    105,5
    109,5
    113,5
    117,5
    121,5
    pour obtenir le résultat de la colonne nouv il faut modifier le case ainsi
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     
          ..
          21..30 : result:=result+3.5;
          31..40 : result:=result+4;
         ..
    MVP Embarcadero
    Delphi installés : D3,D7,D2010,XE4,XE7,D10 (Rio, Sidney), D11 (Alexandria), D12 (Athènes)
    SGBD : Firebird 2.5, 3, SQLite
    générateurs États : FastReport, Rave, QuickReport
    OS : Window Vista, Windows 10, Windows 11, Ubuntu, Androïd

  4. #4
    Futur Membre du Club
    Homme Profil pro
    Inscrit en
    Avril 2010
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Algérie

    Informations forums :
    Inscription : Avril 2010
    Messages : 10
    Points : 7
    Points
    7
    Par défaut
    merci beaucoup c'est résolu grace à vous

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Détecter Windows 2000 Professionnel
    Par FW-S dans le forum Delphi
    Réponses: 9
    Dernier message: 03/11/2006, 23h02
  2. [Licence] Serveur Web en milieu professionnel
    Par tripop dans le forum Plateformes (Java EE, Jakarta EE, Spring) et Serveurs
    Réponses: 1
    Dernier message: 22/10/2004, 14h10
  3. Logiciel professionnel de reconnaissance vocale
    Par samyl dans le forum Applications et environnements graphiques
    Réponses: 2
    Dernier message: 01/04/2004, 14h11
  4. Composants communs entre Ver Entreprise et Professionnelle
    Par bakaneko dans le forum C++Builder
    Réponses: 2
    Dernier message: 22/03/2004, 13h07
  5. Utilisation compte ADSL derrière ligne professionnelle
    Par Johnbob dans le forum Développement
    Réponses: 2
    Dernier message: 11/02/2004, 18h54

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo