[PDF] CORRECTION – BAC PRATIQUE 2018 – SECTION

View - Download CORRECTION – BAC PRATIQUE 2018 – SECTION

Previous PDF

Next PDF

CORRECTION - BAC PRATIQUE 2018 - SECTION SCIENTIPHIQUE -- Mr.KHEMIRI.W

SUJET 08H

program test; uses wincrt ; type tab=array[1..5] of string; var P :tab; i,C:integer; Pers:string; function valide(ch:string):boolean; var test:boolean; i:integer; begin i:=0; repeat i:=i+1; test:= (ch[1] in ['A'..'Z'] ) and (length(ch)<>0) and (upcase(ch[i]) in ['A'..'Z']); until ( (i=length(ch)) or (not(test)) ); valide:=test; end; function chercher(ch:string;P:tab;C:integer):boolean; var i:integer; exist:boolean; begin i:=0; repeat i:=i+1; exist := (ch=P[i]) ; until ( (i=C) or (exist) ); chercher:=exist; end; begin repeat writeln('nom du personnage 1'); readln(P[1]); until (valide(P[1])); i:=1; C:=1; repeat i:=i+1 ; repeat writeln('nom du personnage ', i); readln(Pers); until (valide(Pers)); if (chercher(Pers,P,C)=false) then begin

C:=C+1; P[C]:=Pers;

end; until((C=3) or (i=5) ); if (C<3) then writeln ('il reste ',3-C, 'personnages manquants');

C:=1; Devoirs et examens sur : www.kiteb.net

for i:=2 to 5 do begin repeat writeln('nom du personnage ', i); readln(Pers); until (valide(Pers)); if (chercher(Pers,P,C)=false) then begin

C:=C+1; P[C]:=Pers;

end; end; if (C=3) then writeln ('vous avez gagné') else writeln('vous avez perdu'); end.

SUJET 09H30

program achat; uses wincrt; var nomp:string; i,n,nbp,nbre:integer; function verif(ch:string):boolean; var i:integer; test:boolean; begin i:=0; repeat i:=i+1; test := (upcase(ch[i]) in ['A'..'Z']) or (ch[i] =' ') and (length(ch)<=20) ; until (not (test) or (i=length(ch)) ) ; verif:=test; end; procedure nb_distinct ( n:integer; var nb:integer); var i:integer; nprod:string; begin nb:=0; for i:=1 to n do begin repeat writeln ('donner nom de produit ', i); readln(nprod); until(verif(nprod)); if (pos('ECOLO',nprod)=0) then nb:=nb+1; end; writeln ('le nombre des produits distincts de marque ECOLO est ', nb); end; begin Devoirs et examens sur : www.kiteb.net repeat writeln('nombre de produits achetes ?'); readln(n); until (n in [5..100]); nb_distinct(n,nbre); {nbp:=0; for i:=1 to n do begin repeat writeln('nom produit ? ',i); readln(nomp); until (verif(nomp)); if (pos('ECOLO',nomp)<>0) then nbp:=nbp+1; end; } {writeln('Merci pour l''achat de ',nbp,' produits de la marque ECOLO '); } if (nbre=n) then writeln (' on vous invite a consommer les produits ECOLO ')

else if (n-nbre >5) then writeln('Merci, vous avez achete ',n-nbre,' vous pouvez devenir un ambassade de

la marque') else writeln('Merci d''avoir acheter ' ,n-nbre, 'de nos produits'); end.

SUJET 11H

program test; uses wincrt ; type tab1=array[1..10]of string; tab2=array[1..10]of integer; var n,i:integer; T:tab1;C:tab2; function valide(ch:string):boolean; var e,x:integer; begin val(ch,x,e); valide:= ( (e=0) AND (ch[1]='6') AND ( (ch[2]='5') or (ch[2]='6') ) ); end; function verif (ch:string;m:integer; T:tab1):boolean; var i:integer; test:boolean; begin i:=0; repeat i:=i+1; test:=(ch<>T[i]) ; until ( (i=m) or (not(test)) ); verif:=test; end; procedure affiche(T:tab1; C:tab2;n:integer); var com:real; i,tot,nb:integer; function recharge(ch:string):integer; var s,x,e,i:integer; begin s:=0; Devoirs et examens sur : www.kiteb.net for i:=3 to length(ch) do begin val(ch[i],x,e); s:=s+x; end; recharge:=s*20; end; begin tot:=0; nb:=n; for i:=1 to n do tot:=tot+C[i]; com:=tot/n; writeln('le montant moyenne est : ', com:7:3 ); for i:=1 to n do if (C[i]>=com) then writeln('le numero ',T[i],' a gagné ', recharge(T[i]):0, ' DT') else nb:=nb-1; if (nb=n) then writeln('il n''y a pas de gagnant '); end; begin repeat writeln('le nombre des clients'); readln(n); until(n in [5..100]); repeat writeln('Numero du Tél N°: 1');readln(T[1]); until (valide(T[1])); repeat writeln('le montant consommé par N°: 1'); readln(C[1]); until (C[1] >=0); for i:=2 to n do begin repeat writeln('Numero du TélN°: ',i); readln(T[i]); until ( (verif(T[i],i-1,T)) AND (valide(T[i])) ); repeat writeln('Le montrant consommé par N°: ',i); readln(C[i]); until (C[i] >=0); end; affiche(T,C,n); end.

Devoirs et examens sur : www.kiteb.net

SUJET 13H

program test; uses wincrt ; type tab=array[1..10]of string ; var Q,R:tab; i,n:integer; question ,reponse:string; procedure convmaj(var ch:string); var i:integer ; begin for i:=1 to length(ch) do ch[i]:=upcase(ch[i]); end; procedure resultat(Q:tab;R:tab;n:integer); var total,taux:real; nbc,nbf,i:integer; rep:string; begin nbc:=0; nbf:=0; for i:=1 to n do begin rep:= copy(Q[i],pos('#',Q[i]) + 1 ,4); if (rep=R[i]) then nbc:=nbc+1 else nbf:=nbf+1; end; total:=(nbc*2) + (nbf*(-2));

Taux:= nbc/n*100;

writeln ('le nombre des points est : ' , total:2:0); writeln( 'le taux de réussite est : ',taux:2:0, ' %'); end; begin repeat writeln('donner le nombre des questions'); readln(n); until (n in [5..10]); for i:=1 to n do begin repeat writeln('donner la prposition à la question n°:', i);readln(question); until ( (length(question)>=4) AND (question[1] in ['A'..'Z'] )); repeat writeln ('donner la validation pour question n°: ',i); readln(reponse); convmaj(reponse); until ((reponse='VRAI') or (reponse ='FAUX'));

Q[i]:=question+'#'+reponse;

end; for i:=1 to n do begin repeat writeln('donner votre réponse pour question n°: ',i);readln(R[i]); convmaj(R[i]); until ((R[i]='VRAI') or (R[i] ='FAUX')); end; resultat(Q,R,n); end. Devoirs et examens sur : www.kiteb.net

SUJET 14H30

program test; uses wincrt ; type tab=array[1..10]of string; var M,S:tab; i,n:integer ;sym:string; function Alpha(ch:string):boolean; var i:integer; test:boolean; begin i:=0; repeat i:=i+1; test := (( ch[i] in ['A'..'Z'] )or (ch[i]=' ')); until ((i=length(ch)) or (not(test)) );

Alpha:=test;

end; function former(ns:integer):string; var res,sy:string; begin res:=''; while (ns>0) do begin repeat writeln('donner un symptôme');readln(sy); until (Alpha(sy)); res:=concat(res,sy,'#'); ns:=ns-1; end; delete(res,length(res),1); former:=res; end; procedure saisie(var ch:string); var ns:integer; begin writeln('donner les symptômes correspondants'); repeat writeln('combien de symptômes ? '); readln(ns); until (ns>0); ch:=former(ns); end; procedure affiche_maladie(TM:tab;TS:tab;n:integer;symp:string); var i:integer; res:string; begin writeln('pour le symptôme = "',symp,'"'); Devoirs et examens sur : www.kiteb.net write ('les maladies probables sont : '); res:=''; for i:=1 to n do if (pos(symp,TS[i])<>0) then if (length(res)=0 ) then res:= concat(res,TM[i]) else res:= concat(res,' et ', TM[i]) ; write(res); end; begin repeat writeln('nbre des maladies ');readln(n); until(n in [2..100]); for i:=1 to n do begin repeat writeln('donner la maladie n°: ',i);readln(M[i]); until(Alpha(M[i])); saisie(S[i]); end; repeat writeln('Symptôme en question'); readln(sym); until (Alpha(sym)); affiche_maladie(M,S,n,sym); end.

Devoirs et examens sur : www.kiteb.net

quotesdbs_dbs23.pdfusesText_29

[PDF] Métiers du secteur sanitaire et social - Académie de Clermont-Ferrand

[PDF] Que faire après un Bac Pro ASSPpptx

[PDF] Que faire avec un BAC PRO ASSP - L 'Oasis

[PDF] Institut de formation en soins infirmiers - groupe hospitalier Paris

[PDF] option B - Eduscol - Ministère de l Éducation nationale

[PDF] Les épreuves du Bac Pro ASSP Option « en structure»

[PDF] BAC PRO

[PDF] Bac Pro Conduite et Gestion de l 'Exploitation Agricole

[PDF] bac pro eleec salaire- pdf documents

[PDF] Corrige ELEEC E2 metro 2012

[PDF] Corrigé - Lettres-Histoire dans l 'académie de versailles

[PDF] Corrigé Septembre - Lyon

[PDF] BAC PRO Hygiène Propreté Stérilisation - INHNI

[PDF] BAC PRO Hygiène Propreté Stérilisation - INHNI

[PDF] BAC PRO Hygiène Propreté Stérilisation - INHNI