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 ...
Calcul d'intégrale
 
 
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 -> Algorithmes d'approximations
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Ven 19 Fév - 22:10 (2010)    Sujet du message: Calcul d'intégrale Répondre en citant

PublicitéSupprimer les publicités ?
Ecrire un programme qui permet de donner une valeur approchée de l'intégrale d'une fonction  par la méthode des rectangles.La fonction f est défini par: f(x)=1/1+x² .

Correction Pascal:
program integration_rectangle;
uses wincrt;
var k,a,b:real;
     n:integer;

function f(x:real):real;
begin
f:=1/(1+x*x)
end;

function rectangle(a,b:real;n:integer):real;
var k:integer;
    h,x,s:real;
begin
 s:=0.0;
    h:=(b-a)/n;
      x:=a+h/2;
         for k:=1 to n do
           begin
            s:=s+f(x);
             x:=x+h;
          end;
rectangle:=s*h;
end;

 {programme principale}
 begin
  writeln('Intégration par la méthode des rectangles');
 write('Borne inférieur(a): ');
 read(a);
 writeln;

 repeat
 write('Borne supérieur(b): ');
 read(b);
 writeln;
 until b>a;

  repeat
 write('Nombre d"intervalle: ');
 read(n);
 writeln;
 until n>0;
 k:=rectangle(a,b,n);
 writeln('Valeur de l"intégrale est = ',k);
 end.


 
Revenir en haut
staticroof


Hors ligne

Inscrit le: 21 Nov 2009
Messages: 7
Point(s): 6
Moyenne de points: 0

Posté le: Jeu 29 Avr - 08:33 (2010)    Sujet du message: Calcul d'intégrale Répondre en citant

SVP j'ai pas compris pourquoi x+h/2 et non x+h
 x:=a+h/2; ?


 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 21:36 (2016)    Sujet du message: Calcul d'intégrale

 
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 -> Algorithmes d'approximations 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