Bac2017site.files.wordpress.com



program divisible_10;uses wincrt;varm:longint;procedure saisie (var m:longint);beginwrite('donner un entier:');readln(m);end;function div_10(m:longint):string;beginif ((2*m) mod 10= 0 )then div_10:=' est divisible par 10.'else div_10:=' n''est pas divisible par 10.';end;beginsaisie(m);write(m,div_10(m));end.program divisible_9;uses wincrt;vars:string;procedure saisie (var ch:string);varnum:longint;e:integer;beginrepeatwrite('donner un entier:');readln(ch);val(ch,num,e);until (e=0)end;function div_9(ch:string):string;vare,nb,somme,i:integer;beginsomme:=0;for i:=1 to length(ch) dobeginval(ch[i],nb,e);somme:=somme+nbend;if somme mod 9=0 then div_9:=' est divisible par 9.'else div_9:=' n''est pas divisible par 9.';end;beginsaisie(s);write(s,div_9(s));end.program divisible_2;uses wincrt;varm:longint;procedure saisie (var m:longint);beginwrite('donner un entier:');readln(m);end;function div_2(m:longint):string;beginif (m mod 2= 0 ) then div_2:=' est divisible par 2.'else div_2:=' n''est pas divisible par 2.';end;beginsaisie(m);write(m,div_2(m));endprogram divisible_3;uses wincrt;vars:string;procedure saisie (var ch:string);varnum:longint;e:integer;beginrepeatwrite('donner un entier:');readln(ch);val(ch,num,e);until (e=0)end;function div_3(ch:string):string;vare,nb,somme,i:integer;beginsomme:=0;for i:=1 to length(ch) dobeginval(ch[i],nb,e);somme:=somme+nbend;if somme mod 3=0 then div_3:=' est divisible par 3.'else div_3:=' n''est pas divisible par 3.';end;beginsaisie(s);write(s,div_3(s));end.program divisible_4;uses wincrt;varm:longint;procedure saisie (var m:longint);beginwrite('donner un entier:');readln(m);end;function div_4(m:longint):string;beginif ((m mod 100) mod 4)=0 then div_4:=' est divisible par 4.'else div_4:=' n''est pas divisible par 4.';end;beginsaisie(m);write(m,div_4(m));end.program divisible_5;uses wincrt;varm:longint;procedure saisie (var m:longint);beginwrite('donner un entier:');readln(m);end;function div_5(m:longint):string;beginif ((2*m) mod 10= 0 )then div_5:=' est divisible par 5.'else div_5:=' n''est pas divisible par 5.';end;beginsaisie(m);write(m,div_5(m));end.program divisible_25;uses wincrt;varm:longint;procedure saisie (var m:longint);beginwrite('donner un entier:');readln(m);end;function div_25(m:longint):string;beginif ((m mod 100) mod 25)=0 then div_25:=' est divisible par 25.'else div_25:=' n''est pas divisible par 25.';end;beginsaisie(m);write(m,div_25(m));endprogram b1-b2;uses wincrt;var B1,B2:integer;NB:string;procedure saisie(var B1,B2 : integer ;var NB:string);beginwriteln('ce programme permet de converture un nombre NB d''une base B1 a une base B2');writeln( '(2<=B1<=16) et (2<=B2<=16)');writeln('donnez NB');readln(NB);writeln('donnez B1');readln(B1);writeln('donnez B2');readln(B2);end;function base10abaseB(b,n:integer):string;var i:integer;s,bin:string;r:integer;c:char;beginbin:='';repeatr := n mod b;n := n div b;case r of0..9:str(r,s);;10:s:='A';11:s:='B';12:s:='C';13:s:='D';14:s:='E';15:s:='F';endbin:=bin+s;until ( n = 0);for i:=1 to (length(bin) div 2) dobeginc:=bin[i];bin[i]:=bin[length(bin)-i+1];bin[length(bin)-i+1]:=c;end;base10abaseB:=bin;end;function puissance(x,y : integer ):integer;var i:integer;p:integer;beginp:=1;for i:=1 to y dobeginp:=p*x;end; puissance:=p;end;function baseBabase10(b:integer;n:string):integer;var s,chinter:string;result,e,i, x:integer;c:char;beginresult:=0;for i:=1 to (length(n) ) dobeginc:=n[i]; case c of'0':write('0');'1':write('1');'2':write('2');'3':write('3');'4':write('4');'5':write('5');'6':write('6');'7':write('7');'8':write('8');'9':write('9');'a','A':write('10');'b','B':write('11');'c','C':write('12');'d','D':write('13');'e','E':write('14');'f','F':write('15');else writeln('nombre invalide');end;result:=result+(x*puissance(b,length(n)-i )) ;end;baseBabase10 :=result;end;beginsaisie(B1,B2,NB);writeln('(',NB,')',b1,'=(', base10abaseB(B2,baseBabase10(B1,NB)) ,')',B2 );end.program conversion_2_10;uses wincrt;varn_oct:integer;function puis_2(n:integer):integer;vari,p:integer;beginp:=1;for i:=1 to n dop:=p*2;puis_2:=p;end;function conv_dec(n_oct:integer):integer;vari,n,e,r,dec:integer;ch,ch_oct:string;beginstr(n_oct,ch_oct);dec:=0;for i:=1 to length(ch_oct) dobeginval(ch_oct[i],n,e);dec:=dec+n*puis_2(length(ch_oct)-i);end;conv_dec:=dec;end;beginwriteln('tapper un entier');readln(n_oct);writeln('(',n_oct,')8=(',conv_dec(n_oct),')');end.program conversion_8_10;uses wincrt;varn_oct:integer;function puis_8(n:integer):integer;vari,p:integer;beginp:=1;for i:=1 to n dop:=p*8;puis_8:=p;end;function conv_dec(n_oct:integer):integer;vari,n,e,r,dec:integer;ch,ch_oct:string;beginstr(n_oct,ch_oct);dec:=0;for i:=1 to length(ch_oct) dobeginval(ch_oct[i],n,e);dec:=dec+n*puis_8(length(ch_oct)-i);end;conv_dec:=dec;end;beginwriteln('tapper un entier');readln(n_oct);writeln('(',n_oct,')8=(',conv_dec(n_oct),')');end.program conversion_2_8; uses wincrt; var bin:string;procedure saisie(var bin: string); begin writeln('tapper une chainne contient des 0 et 1'); readln(bin); end; function puiss_2(n:integer):integer;vari,p:integer;beginp:=1;for i:=1 to n dop:=p*2;puiss_2:=p;end; function conv_oct(ch_bin:string):string; var l,j,i,e,a,a_oct:integer; ch1,ch2,oct:string; begin while length(ch_bin) mod 3 <> 0 doch_bin:='0'+ch_bin; oct:=''; l:=length(ch_bin); for i := 1 to (length(ch_bin) div 3) do begin ch1:= copy(ch_bin,l-2,3); a_oct:=0;for j := 1 to 3 do begin val(ch1[j],a,e); a_oct:=a_oct+a* puiss_2(3-j); end; str(a_oct,ch2); oct:=ch2+oct; l:=l-3; end; conv_oct:=oct; end; begin saisie(bin); writeln('(',bin,')2=(',conv_oct(bin),')8'); end.program conversion_16_2;uses wincrt;varhex,ch_hex:string;procedure saisie(var hex:string);beginwriteln(' tapper un nombre hexadecimale');readln(hex);end;function bin_car(symb:char):string;varch:string[4];ch_r:string[1];n,e,r,i:integer;beginif not (symb in ['0'..'9'])then n:= ord (upcase(symb))-55else val(symb ,n,e);ch:='0000';i:=4;repeatr:=n mod 2 ;str(r,ch_r);ch[i]:=ch_r[1];n:=n div 2;i:=i-1;until n=0;bin_car:= ch;end;function conv_bin(ch_hex:string):string;vari:integer;ch_bin:string;beginch_bin:='';for i :=1 to length(ch_hex)doch_bin:=ch_bin+bin_car(ch_hex[i]);while ch_bin[1]='0' dodelete (ch_bin,1,1);conv_bin:=ch_bin;end;beginsaisie(hex);writeln('(',hex,')16=(',conv_bin(hex),')2');end.program arrangement;uses wincrt ;varn,p:integer;procedure saisie( var n,p :integer );beginwriteln(' tapper un entier');readln(n);writeln(' tapper un autre entier ');readln (p);end;function arrange (a,b:integer):real;vari,ar:integer;beginar:=1;for i := a downto a-b+1 doar := ar*i;arrange:=ar;end;beginsaisie (n,p);writeln('A(',n,',',p,')=', arrange (n,p));end.program combinaision;uses wincrt ;varn,p:integer;procedure saisie( var n,p :integer );beginwriteln(' tapper un entier');readln(n);writeln(' tapper un autre entier ');readln (p);end;function comb(n,p:integer) : real;beginif (p=0) or (p= n) then comb := 1else comb:= comb(n-1,p) + comb(n-1,p-1);end;beginsaisie (n,p);writeln('A(',n,',',p,')=', comb (n,p));end.program pgcd_difference;uses wincrt ;var a,b :integer;procedure saisie( var z :integer );beginrepeatwrite (' donner un entier positif et non nul :');readln(z);until (z>0);end;function pgcd (n,m:integer) :integer;beginif (n=m) then pgcd := melse if (n>m ) then pgcd := pgcd(n-m,m)else pgcd:=pgcd (n,m-n);end;beginsaisie (a);saisie(b);write ('pgcd(',a,',',b,')= ', pgcd(a,b));end.{ le point fixe d'un fonction sin(x)=1-x }program pt_fixe;uses wincrt;const epsilon = 0.00001;vari: integer; xact,xpre : real;function f (x :real) :real ;beginf:=1 - sin(x);end;begini:=0 ;xact :=1 ;repeatxpre := xact ;xact := f(xact);i := i +1;until (abs(xact-xpre)< epsilon) ;write ('le point fixe est :',xact:10:6,' trouve apres',i,' interations.');end.program pi_walis;uses wincrt;constepsilon= 0.00001;vari, num,den: integer;p1,p2:real;beginp2:=2;num :=2;den :=3;i :=2;repeatp1 := p2;p2 := p1*(num/den);if i mod 2=0then num := num+2else den := den+2;i:=i+1;until abs (2*p2-2*p1)<epsilon;write('la valeur approchée de pi trouvé est ;',2*p2:10:6);end.program pi_euler;uses wincrt;const epsilon = 0.00001;vari: longint;s1,s2:real;begins2:= 1; i :=2;repeats1 := s2 ;s2 := s1 +1/ sqr(i);i := i +1 ;until sqrt (6*s2)- sqrt(6*s1) < epsilon;write (' la valeur approchee de pi trouvee est :', sqrt(6*s2):10:6);end.program e_fact;uses wincrt;constepsilon=0.00001; vari:longint ;s1,s2:real;function fact (nb : longint): longint;varj,f :longint;beginf:=1;for j := 1 to nb dof:=f*j;fact := f;end;begins2 :=1;i := 0;repeats1 := s2 ;i := i +1 ;s2 := s2 +1 / fact(i);until s2-s1 < epsilon ;write(' la valeur approchée de e trouvée est :', s2:12:11);end.program trap;uses wincrt;vara,b:real;n:integer;procedure saisie(var a,b:real; var n :integer );begin repeatwriteln('taper la premier borne');readln(a);writeln(' taper le deuxiemme borne');readln(b);until b>a;repeatwriteln(' tapper le nombre de sous intervalles');readln(n);until n1>0; end;function trapezes(a1,b1:real ; n1 : word) : real ;var k : word; h , x ,somme :real; function f (x1 :real ) :real ; begin f := 1/(1+ sqr (x1)); end; begin h := (b1 - a1) /n1 ; somme := (f(a1)+f(a1+h))/2; x:= a1 ; for k := 1 to n1 - 1 do begin x:= x+h; somme := somme +(f(x)+ f(x+h))/2; end; trapezes := somme *h ; end; begin saisie (a,b,n); writeln('le calcul de l''aire par la méthode des trapeze=', trapezes(a,b,n)); end.program meth_rectangle; uses wincrt; var a,b :real ; n :integer; procedure lecture (var a1 , b1 :real ; var n1 : integer); begin writeln(' donner la borne inferieure:'); readln(a1); repeat writeln(' donner le bornr superieure :'); readln(b1); until b1>a1 ; repeat writeln(' donner le nombre d''intervalle:'); readln(n1); until n1>0; end; function rectangles(a1,b1:real; n1 :integer):real; var k:integer; h,x,somme:real; function f (x1:real ): real;beginf:=1/(1+sqr(x1));end;beginsomme:=0;h:=(b1-a1)/n1;x:= a1 + h/2;for k :=1 to n1 dobeginsomme := somme+f(x);x:=x+hend;rectangles := somme * h;end;beginlecture (a,b,n);write('le calcul de l''aire par la methode des rectangle=',rectangles(a,b,n));program enreg_n;uses wincrt;typeetudiant=recordnom,prenom,dat_nais:string;sexe:char;moy:real;end;tab=array[1..30] of etudiant ;vart:tab;n:integer;procedure saisie (var t:tab; n:integer);vari:integer;beginrepeatwriteln('donner le nombre de l''etudiant');readln(n);until n in [1..30] ;for i := 1 to n dowith t [i] dobegin writeln(' tapper le nom de la etudiant n',i); readln(nom); writeln(' tapper le prenom de la etudiant n',i); readln(prenom); writeln(' tapper le date de naissance de la etudiant n',i); readln(dat_nais); repeat writeln(' tapper le moyenne de la etudiant n',i); readln(moy); writeln(' tapper le sexe de la etudiant n',i); readln(sexe); until ( moy>=0) and (moy<=20) and (upcase (sexe) in ['F','M']); end ; end; procedure affiche (var t:tab; n:integer); var i,nbre:integer; begin nbre:=0; for i:=1 to n do with t[i] do begin if moy>=10 then writeln('nom',nom) ; writeln('prenom',prenom) ; writeln('date de naissance',dat_nais) ; writeln('moyenne',moy) ; writeln('sexe',sexe) ; nbre:=nbre+1; writeln(' le nombre de admis est',nbre); end; end; begin saisie(t,n); affiche(t,n); end. program fiche_eng-n ;uses wincrt ;typeagenda =recordnom,prenom,adr,tel : string ;end ;f_pers= file of agenda ;varfiche : f_pers;procedure creation (var fiche : f_pers);beginassign (fiche,'C:\4SI\information,FCH');rewrite (fiche);end;procedure saisie (var fiche :f_pers);varpers:agenda ;beginrepeatwith pers dobeginwriteln('taper le nom ');readln(nom);writeln('taper le prenom ');readln(prenom);writeln('taper le adresse ');readln(adr);writeln('taper le numero du telephone');readln(tel);if (nom<>'') and ( prenom<>'') thenwrite (fiche,pers) ; end;until (pers.nom ='') or (pers.prenom ='')end;procedure affiche (var fiche : f_pers);var pers:agenda;beginreset (fiche);while (not ( eof (fiche)) )dobeginread(fiche,pers); with pers do begin writeln('nom',nom); writeln('prenom',prenom); writeln('adresse',adr); writeln('telephone',tel);end;end;close (fiche);end; begin creation(fiche); saisie(fiche); affiche(fiche); end.program acce_direct ; uses wincrt ; type agenda =record nom,prenom,adr,tel : string ; end ; f_pers= file of agenda ;var fiche : f_pers;procedure lecture (var fiche:f_pers); var num,t:integer; rep:char;pers:agenda; begint:=filesize (fiche) ; repeat repeat writeln('taper le numero d''orde ') ;readln(num); if ( num< 0 ) or (num >= t) thenwriteln ('vous etes hors fichier') ;until ( num>=0 ) and ( num < t) ; filepos (fiche,num) ;read(fiche ,num); with pers do writeln('nom', ,'nom); writeln('prenom', ,'prenom); writeln('adresse', ,'adr); writeln('telephone', ,'tel); end; repeat writeln('continuer(o/n)'); readln(rep); until majus (rep) in ['O','N'] until majus (rep)= 'n' end; begin lecture (fiche); end.program enreg_1 ;uses wincrt;type personne = record nom: string[30] ; fisc : integer ; tel : string [10] ; banc :word ; end; var individu : personne ; procedure saisie ( var individu : personne); begin with individu do begin write (' enter le nom de la presonne :') ; readln (nom) ; write (' entre son code fiscal :') ; readln(fisc); write(' enter son numero de telephone :'); readln( tel); write(' enter le numero de sa carte bancaire :'); readln (banc); end; end; procedure afficher ( individu: personne); begin with individu do begin writeln(' nom :', nom); writeln(' code fiscal :', fisc); writeln(' numéro du telephone :', tel); writeln(' numero de la carte bancaire :', banc); end; end; begin saisie (individu); afficher ( individu); end.program textess;uses wincrt;varlignes:text;procedure ecriture_texte(var lignes:text);varphrase:string ;rep:char ;beginrepeatwriteln('taper une ligne du texte');readln(phrase);writeln(lignes,phrase);repeatwriteln('quitter(o/n)');readln(rep);until upcase(rep) in ['O','N'];until upcase (rep)='O';end;procedure affiche_texte(var lignes:text);varphrase : string ;beginreset (lignes);while not(eof(lignes)) dobeginreadln(lignes,phrase);writeln(phrase);end;end;beginassign (lignes ,'C:\textes,txt');rewrite(lignes);ecriture_texte (lignes);affiche_texte(lignes);close(lignes);end.program factorille_it;uses wincrt;varn:integer;procedure saisie(var n :integer);beginwriteln (' tapper un entier ');readln(n); end;function fact (n :integer):integer;varf,i:integer;beginf:=1;for i:= 2 to n dof:=f*i;fact:= f; end;beginsaisie(n);writeln('le resultat est ', fact(n));end.program factorille_rec;uses wincrt;varn:integer;procedure saisie(var n :integer);beginwriteln (' tapper un entier ');readln(n);end;function fact (n :integer):integer;beginif (n=0) thenfact:=1elsefact:=n*fact(n-1); end;beginsaisie(n);writeln('le resultat est ', fact(n));end.program palindrome_it;uses wincrt ;var ch:string;function palindrome(ch:string):boolean;var i:integer;verif:boolean;begini:=1;repeatverif:=(ch[i]=ch[length(ch)-i+1]);i:=i+1;until (i>length(ch) div 2) or(verif=false);palindrome:=verif;end;beginwrite('donner ch= '); readln (ch);if palindrome(ch) then writeln (ch, 'est un palindrome.')else writeln (ch, ' n''est pas un palindrome.'); end.program palindrome_rec;uses wincrt ;var ch:string;function palindrome(ch:string):boolean;beginif length (ch)<2 then palindrome:=trueelse if (ch [1] =ch[length(ch)])then palindrome := palindrome (copy (ch,2,length (ch)-2))else palindrome := false ; end;beginwrite('donner ch= '); readln (ch);if palindrome(ch) then writeln (ch, 'est un palindrome.')else writeln (ch, ' n''est pas un palindrome.'); end.program somme_premiers_entier_rec;uses wincrt;varn:integer;procedure saisie(var n :integer);beginwriteln(' saisie un entier');readln( n);end;function somme ( m:word):longint;beginif m= 0 then somme := 0else somme:= m+ somme (m-1);end;beginsaisie(n) ;writeln('la somme des ',n,' premiers entiers=', somme(n))end.zprogram a_puiss_n_rec;uses wincrt;vara:real;n:integer;function puissance (a:real; n:integer):real;beginif (n=0) then puissance :=1else if (n<0)then puissance:=1/ puissance (a,-n)else puissance := a* puissance (a,n-1);end;beginwriteln(' tapper un entier');readln( a );writeln(' tapper un puissance ');readln (n );writeln(a,' a la puissance',n,'=', puissance(a,n));end.program tri_dec_sel_rec;uses wincrt ;typetab=array [1..100] of integer;varn:integer;t:tab;procedure saisie( var n :integer);beginwriteln(' tapper unenter');readln( n);end;procedure remplir ( n:integer; var t:tab);vari:integer;beginfor i := 1 to n dobeginwriteln(' tapper l''element n',i);readln( T[i]);end;end;procedure tri_sel_rec( deb, fin :integer; var t :tab);varmaximum:integer;function max (deb1,fin1:integer;t:tab):integer;vari,m:integer;beginm:=deb1;for i := deb1+1 to fin1 doif (t[i]>t[m]) then m:=i;max:=m;end;procedure permuter ( var x,y:integer);varaux:integer;beginaux:=x;x:=y;y:=aux;end;beginmaximum:=max(deb,fin,t);if (maximum<> deb) then permuter(t[deb],t[maximum]);if (deb+1<> fin ) then tri_sel_rec(deb+1,fin,t);end;procedure affiche ( n:integer ;var t:tab);vari:integer;beginfor i := 1 to n dowriteln(t[i]);end;beginsaisie (n);remplir( n, t);tri_sel_rec(1,n,t);affiche(n,t);end program dichotomique_recuses wincrt ;typetab=array [1..100] of integer;varn,m:integer;t:tab;procedure saisie( var n :integer);beginwriteln(' tapper un enter');readln( n);end;procedure remplir ( n:integer; var t:tab);vari:integer;beginfor i := 1 to n dobeginwriteln(' tapper l''element n',i);readln( T[i]);end;end;function dichotomique (deb,fin,m:integer; t:tab) :boolean;varmilieu : integer;beginmilieu := (deb+fin) div 2 ;if (m=t[milieu] ) then dichotomique := trueelse if (m<t[milieu]) and (deb<milieu)then dichotomique := dichotomique ( deb,milieu-1, m, t)else if (m>t[milieu]) and ( fin > milieu)then dichotomique:=dichotomique (milieu+1,fin,m,t)else dichotomique := falseend;beginsaisie (n);remplir( n, t);writeln(' donner un entier:') ;readln(m);if dichotomique (1,n,m,t) then writeln(m,'existe dans le tableau t ')else writeln(m,'n''existe pas dans le tableau t');end.program tri_insertion;uses wincrt ;typetab=array [1..100] of integer;varn:integer;t:tab;procedure saisie( var n :integer);beginwriteln(' tapper un enter');readln( n);end;procedure remplir ( n:integer; var t:tab);vari:integer;beginfor i := 1 to n dobeginwriteln(' tapper l''element n',i);readln( T[i]);end;end;procedure trier (n:integer; var t :tab);varc,tmp,p:integer;procedure decaler ( var t:tab; deb:integer; var fin : integer);beginfin:=deb;while ( fin>=1) and ( t[fin] > tmp) dobegint[fin+1] := t[fin];fin := fin-1;end;end;beginfor c:= 2 to n doif t[c-1] > t[c] thenbegintmp :=t[c];decaler(t,c-1,p);t[p+1]:= tmp;end;end;procedure affiche ( n:integer ;var t:tab);vari:integer;beginfor i := 1 to n dowriteln(t[i]);end;beginsaisie (n);remplir( n, t);trier(n,t);affiche(n,t);end.program tri_shell;uses wincrt ;typetab=array [1..100] of integer;varn:integer;t:tab;procedure saisie( var n :integer);beginwriteln(' tapper un enter');readln( n);end;procedure remplir ( n:integer; var t:tab);vari:integer;beginfor i := 1 to n dobeginwriteln(' tapper l''element n',i);readln( T[i]);end;end;procedure trier ( n :integer ; var t :tab);varp,i,j,valeur:integer;beginp:=0;while ( p<n) dop:= 3* p +1 ;while ( p<>0) dop:=p div 3 ;for i := p+1 to n dobeginvaleur :=t[i];j:=i;while (j>p) and (t[j-p]> valeur) dot[j] :=t[j-p];j:=j-p;end;t[j] := valeur;end;procedure affiche ( n:integer ;var t:tab);vari:integer;beginfor i := 1 to n dowriteln(t[i]);end;beginsaisie (n);remplir( n, t);trier(n,t);affiche(n,t);end.program tri_dec_sel_rec;uses wincrt ;typetab=array [1..100] of integer;varn:integer;t:tab;procedure saisie( var n :integer);beginwriteln(' tapper unenter');readln( n);end;procedure remplir ( n:integer; var t:tab);vari:integer;beginfor i := 1 to n dobeginwriteln(' tapper l''element n',i);readln( T[i]);end;end;procedure tri_sel_rec( deb, fin :integer; var t :tab);varmaximum:integer;function max (deb1,fin1:integer;t:tab):integer;vari,m:integer;beginm:=deb1;for i := deb1+1 to fin1 doif (t[i]>t[m]) then m:=i;max:=m;end;<script language=javascript>function verif() {if(f.nom.value=="") {alert("ERREUR! Saisir le nom"); return false;}if(f.cin.value=="") {alert("ERREUR! verifier CIN"); return false;}if((f.cin.value.length!=8)||(isNaN(f.cin.value))) {alert("ERREUR! CIN non valide"); return false;}if(f.email.value=="") {alert("ERREUR! Saisir le e-mail"); return false;}if((f.email.value.indexOf('@')==-1)||(f.email.value.indexOf('.')==-1)){alert("Email invalide !"); return false;}if(f.adresse.value=="") {alert("ERREUR! saisir Adresse "); return false;}if((f.genre[0].checked==false)&&(f.genre[1].checked==false)) {alert("veuiilez choisir votre genre"); return false;}if((f.option[0].checked==false)&&(f.option[1].checked==false)&&(f.option[2].checked==false)) {alert("Veuillez choisir une option"); return false;}}</script>function verif(){ alert("le nom est "+document.f1.T1 .value);alert("le prenom est "+document.f1.T2.value);}</script>function verif(){varx=document.f1.T1.valuey=document.f1.T2.valuealert(x);alert(y);}b=prompt("saisir une valeur");alert(b);vara=Number(window.prompt("saisier a"));a=a+1;alert("resultat"+a);Ajout <?if(isset($_POST['T1'])&&isset($_POST['T2'])){$cin=$_POST['T2'];$nom=$_POST['T1'];$sexe=$_POST['R1'];$age=$_POST['D1'];$serveur="localhost";$user="root";$pwd="";$db="formation";mysql_connect($serveur,$user,$pwd) or die('connexion impossible au serveur");mysql_select_db($formation) or die('connexion impossible a la base de donneé");$req="isert into eleves(num,nom,sexe,age) values('$cin','$nom','$sexe','$age')";$res=mysql_query($req) or die("erreur: insertion de donneé echoué");}?>Affiche<?$serveur="localhost";$user="root";$pwd="";$db="formation";mysql_connect($serveur,$user,$pwd) or die('connexion impossible au serveur");mysql_select_db($formation) or die('connexion impossible a la base de donneé");$req="SELECT * from users";$res=mysql_query($req) or die("erreur: selection impossible");}?>Recherche<?$r=$_POST['T1'];$serveur="localhost";$user="root";$pwd="";$db="formation";mysql_connect($serveur,$user,$pwd) or die('connexion impossible au serveur");mysql_select_db($formation) or die('connexion impossible a la base de donneé");$req="select * from users where num='$r'";$res=mysql_query($req);if(mysql_num_rows($res)==0)echo("aucune personne trouveé");else while($i=mysql_fetch_array($res))?>Modifier<?$nc=$_POST['T2'];$np=$_POST['T1'];$s=$_POST['R1'];$a=$_POST['D1'];$serveur="localhost";$user="root";$pwd="";$db="formation";mysql_connect($serveur,$user,$pwd) or die('connexion impossible au serveur");mysql_select_db($formation) or die('connexion impossible a la base de donneé");$req="update users set nom='$np,sexe='$s','age='$a' where num='$nc'";$res=mysql_query($req) or die("erreur: modification de donneé echoué");}?>Suprimer<?$r=$_POST['T1'];$serveur="localhost";$user="root";$pwd="";$db="formation";mysql_connect($serveur,$user,$pwd) or die('connexion impossible au serveur");mysql_select_db($formation) or die('connexion impossible a la base de donneé");$req="select * from users where num='$r'";$res=mysql_query($req);if(mysql_num_rows($res)>0){requete="delete from users where num='$r'";mysql_query($requete);echo ("suppression effectué");}elseecho-"suppression non effectué,personne inexistance");?>Creation d’une tableCreate table client(code_art varchar(20) primary key,Des_art varchar (50) not null,PU decimal(8,3) chek(PU>0),Qte_stock int(5) default 0 check (qte_stock>=0));Create table commande(num_comm varchar(20) constraint pk_cli primary key,Date_comm date not null,Code_client varchar(20) references client(code_client))?;Alter table client add column (email varchar(80))?;Alter table article add constraint primary key (code_article)?;alter table client modify (email varchar(100))?;alter table client drop column email ;Alter table article drop constraint primary key ?;Alter table articleDisable constraint primary key?;Alter table articleenable constraint primary key?;drop table client ;Modification d’une tableInsert into client (code, nom, prenom) values (100,’anis’,’benjeddou?‘)?;-- contrainte d’integrite primary key est violé-- contrainte d’integrite not null …-- contrainte d’integrite d’unicité de la cle primaire …-- contrainte d’integrite foreign key …-- contrainte d’integrite chek est violé--Delete from client?; (tous les client)-- Delete from client? where code=12;-- Delete from client?where QTE>150?;--Update client set cumul = 0; (mettre cumul a zero)-- Update client set c = c+c1,c1=0?; (ajout c1 à c et mettre c1 a zero)-- Update client set nom=’anis’,age=’2’ where cod=1?;-- Update client set date=null where cod=1?;-- Update client set QTE=QTE-10 where cod=1?;--Select code, nom, prenom from client;-- Select * from client; (tous les client)-- Select code ’code’, nom ‘nom’, prenom ‘prenom’ from client; (affichage avec entetes des colones )--Select distinct cumul from client; (no repitition)--Select PU*QTE ‘valeur stock’ from client;--Select * from client where cumul <100;-- Select * from client where cumul between 5 and 8And code in (1,2,3,4)And adr is nullAnd nom like ‘t%’ (commene par ‘t’)And prenom like ‘_o%’ ; (2eme caractere est ‘o’)--select distinct nom,prenom,dateFrom client,commandeWhere client.code=commande.code;--methode alias:select distinct nom,prenom,date from client x,commande y where x.code=y.code;--select C.num_com,date_com,qte_com,des_art from commande C,detail_commande D,article AWhere (c.num_com=D.num_com)and(D.code_art=code_art);Select nom,prenom,dat from client x, commande y Where x.code=y.codeOrder by nom ASC,date DESC; (nom croissant et date decroissant)--select count(*) from client?;--select count (distinct(code)) from commande?;--select count(*) from client where cumul>100;--select sum(cumul) from client where cuml>100;--select MIN (cumul) ‘minimal’,Max(cumul) ‘maximal’,AVG(cumul)’moyen’ from clientWhere cumul >10; ................
................

In order to avoid copyright disputes, this page is only a partial summary.

Google Online Preview   Download