hg S’enregistrer Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie

Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie  forum informatique Tunisie Index du Forum

hg Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Rechercher Rechercher Membres Membres Groupes Groupes Profil Profil Se connecter pour vérifier ses messages privés Messages Privés Connexion Connexion


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum, vous devez
 
inscrire sur notre forum a partir d'ici
 
  NB :
Les membres ''zéro messages'' seront supprimés automatiquement après un nombre de jours donné !!!!
             
   
 
  
forum d'aide informatique : internet, réseau, programmation informatique ...
Une série
 
 
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> Aidez-moi
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
najouta


Hors ligne

Inscrit le: 22 Nov 2008
Messages: 20
Féminin
Point(s): 227
Moyenne de points: 0

Posté le: Sam 22 Nov - 14:50 (2008)    Sujet du message: Une série Répondre en citant

PublicitéSupprimer les publicités ?
Le programme suivant utilise une fonction qui calcule la série

Code:
program serie;

var i, nombre, exposant : integer;

function puissance(x:real; p:integer):real;
  var i : integer;
      res : real;
  begin
    res:=1;
    for i:=1 to p do
        res:=res*x;
    puissance:=res;
  end;

function S(n, k : integer):real;
   var i : integer;
       som : real;
   begin
     som:=0;
     for i:=1 to n do
         som:=som+puissance(1/i,k);
     S:=som;
   end;

begin
    writeln('entrez n et k, s.v.p');
    readln(nombre);
    readln(exposant);
    writeln('Le resultat est ',S(nombre,exposant));
end.


 
Revenir en haut
abdellaoui.info


Hors ligne

Inscrit le: 23 Nov 2008
Messages: 4
Masculin
Point(s): 51
Moyenne de points: 0

Posté le: Dim 23 Nov - 14:14 (2008)    Sujet du message: Une série Répondre en citant

ou es le probleme ici ?

 
Revenir en haut
elyes


Hors ligne

Inscrit le: 22 Nov 2008
Messages: 17
Masculin
Point(s): 95
Moyenne de points: 0

Posté le: Mar 2 Déc - 17:46 (2008)    Sujet du message: Une série Répondre en citant

j'ai besoin d'une proposition de devoir reseaux (3si)

 
Revenir en haut
elyes


Hors ligne

Inscrit le: 22 Nov 2008
Messages: 17
Masculin
Point(s): 95
Moyenne de points: 0

Posté le: Mar 2 Déc - 17:47 (2008)    Sujet du message: Une série Répondre en citant

j'ai besoin d'une proposition de devoir de synthese reseaux (3si)

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 14:42 (2016)    Sujet du message: Une série

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> Aidez-moi Toutes les heures sont au format GMT + 1 Heure
 
Page 1 sur 1

 
Sauter vers:  
Index | créer forum gratuit | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation