physique chimie ,maths, sciences
Physique chimie au Lycée : soutien scolaire en vidéo pédagogiques
2eme secondaire
Exercice cinétique chimique
t (min) | 0 | 2 | 4 | 6 | 8 | 10 | 12 | 14 | 16 |
x (mmol) | 0 | 0,50 | 0,80 | 1,05 | 1,2 | 1,35 | 1,45 | 1,50 | 1,55 |
dx/dt (mmol/mn) | 0,60 | 0,20 | 0,15 | 0,10 | 0,08 | 0,06 | 0,04 | 0,025 | 0,025 |
*****************************correction*************************************
1- Zn + I2 === Zn2+ + 2I-
2- n1 =m/M = 6.5/65 = 0.10 mol
| équation de la réaction | Avancement (en mol) | Zn | + | Zn2+ | 2I- | | |
| Etat initial | 0 | n1 | | n2 | | 0 | 0 |
| Etat en cours de transformation | X | n1 - x | | n2 - x | | x | 2 . x |
| Etat final | xf | n1 - xf | | n2 - xf | | xf | 2 . xf |
[I2]aq®0 |
Représentation graphique (respect de t1/2 et respect de xf)
fiche de révision : Oscillateur mécanique forcé Méthode de Fresnel
est la force de frottement fluide.
on remarque bien que la vitesse est en quadrature avance sur l'élongation 







correction Examen du baccalaureat, session de juin 2010, science de l'informatique le 27 mai 2010 à 8h30
program min_max;uses wincrt;type fich = file of byte;var f:fich; n:byte; pn,gn:string;(*la defintion de la procedure remplir*)procedure remplir(var f:fich; var n:byte);var i,x:byte;begin repeat write('donner n:'); readln(n); until(n>2)and(n<=50); rewrite(f); for i:= 1 to n do begin x := random(9) + 1; writeln(x); write(f,x); end; close(f);end;(*la defintion de la procedure construction_nombre*)procedure nombres(var f:fich;n:byte; var pn,gn:string);var x,k,j,i:byte; c:string;begin reset(f); read(f,x); str(x,c); pn := c; gn := c; for i:= 2 to n do begin read(f,x); str(x,c); j := 1; k:=1; while(c < gn[j])and( j <= length(gn) )do begin j := j + 1; end; insert(c,gn,j); while (c > pn[k]) and (k <= length(pn) ) do begin k := k +1; end; insert(c,pn,k); end; writeln('le plus grand nombre:',gn); writeln('le plus petit nombre:',pn); close(f);end;(*la defintion de la procedure verif*)procedure verif(gn:string);var i,j,k,ci,cj:byte; r,r1,av,nv:integer; er:integer; begin i := 1; j := length(gn); val(gn[i],ci,er); val(gn[j],cj,er); av := ci - cj; i := i + 1; j := j - 1; val(gn[i],ci,er); val(gn[j],cj,er); nv := ci - cj; r := nv - av; r1 := r; k := length(gn); while( i < k div 2 )and(i+j = k+1) and (r1 = r) do begin av := nv; i := i + 1; j := j - 1; val(gn[i],ci,er); val(gn[j],cj,er); nv := ci - cj; r1 := nv - av; end; if (r1 = r)then writeln('la suite est arithmétique, son raison = ', r) else writeln('cette suite n''est pas arithmétique.');end;(*Le programme principal*)begin assign(f , 'c:\bac2010\123456\nombres.dat'); randomize; remplir(f,n); nombres(f,n,pn,gn); verif(gn);end.série d'exercices algorithmique 3SI (Enoncé + correction)
Exercice 7 :
Ecrivez un programme qui lit un nombre décimal positif au clavier et qui calcule la valeur de ce nombre arrondie au centième inférieur, puis l'affiche.
Exemple : 42.2135789 à 42.21
Solution
program Serie1Ex7;
uses wincrt;
var
x:real;
begin
writeln('Donner le réel x');
readln(x);
x:=(round(x*100))/100;
writeln(x:6:2);
end.
série d'exercices algorithmique 3SI (Enoncé + correction)
Exercice 6 :
Ecrivez un programme qui lit une ligne en entrée et affiche le nombre de caractères de cette ligne.
Exemple : Voici une ligne de texte. à 25
Solution :
program Serie1Ex6;
uses wincrt;
var
s:string;
begin
readln(s);
writeln(length(s));
end.
série d'exercices algorithmique 3SI (Enoncé + correction)
Exercice 5 :
Ecrivez un programme qui lit un nombre décimal positif au clavier et qui affiche la valeur de ce nombre, arrondie à l'entier le plus proche. Dans le cas où la partie décimale du nombre est égale à 0.5, on arrondira à l'entier supérieur. Par exemple, pour 4.5, on devra afficher 5.
Solution :
program Serie1Ex5;
uses wincrt;
var
x:real;
begin
writeln('Donner l''entier à arrondir');
readln(x);
writeln(round(x));
end.
série d'exercices algorithmique 3SI (Enoncé + correction)
Exercice 4 :
Ecrire un programme qui lit deux réels a et b comme étant les deux cotés droits d’un triangle rectangle puis d’afficher la longueur de l’hypoténuse correspondante.
Solution :
program Serie1Ex4;
uses wincrt;
var
a,b,c:real;
begin
writeln('Donner les longueurs des deux côtés droits');
readln(a,b);
c:=sqrt(sqr(a)+sqr(b));
writeln(c:6:2);
end.

