hg S’enregistrer Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet

Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Index du Forum

hg Revision tunisie scolaire 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 révision tunisie , 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 ...
Ch4 - Leçon 2, ex 12 p142 (version2)
 
 
Poster un nouveau sujet   Répondre au sujet    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
KARIMOS
Administrateur

Hors ligne

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

Posté le: Sam 29 Nov - 13:31 (2008)    Sujet du message: Ch4 - Leçon 2, ex 12 p142 (version2) Répondre en citant

{Chapitre IV - Structures itératives }
{Type : Les algorithmes d'approximations}
{chercher une valeur approchée de x0 où f(x) admet un minimum}
{Affichage des valeurs encadrant x0}

Program recherche_x0;
uses wincrt;
var
pas,x,fx,x0,fx0:real;
cm :boolean; {changement de monotonie}
begin
write('Donner le pas d''avancement de x : ');
readln(pas);

cm:=false; {au début la pente de la courbe est décroissante}
x:=pas; {x vari entre 0 + pas et 4}

x0 :=x; {hypothèse}

fx0:=x0+1+(1/x0);

repeat
x:=x + pas;
fx:=x+1+(1/X);
if fx<fx0 then
begin
fx0:=fx;
x0:=x;
end
else cm:=true;
until (x>4) or (cm);

writeln('f(x) = x+1+1/x admet un minimum en x0 ');
writeln('x0 est encadré entre ',x0:3:4,' et ',x:3:4);
end.


 
Revenir en haut
Publicité






Posté le: Sam 29 Nov - 13:31 (2008)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯) 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