Untitled
Turbo Pascal: Exercices Corrigés. FENNI SALAH O® 2006. Page 4/18. Salah 1 à 10. Exercice 3. Ecrire un programme Pascal qui calcule et affiche la somme ...
Untitled
Turbo Pascal: Exercices Corrigés Corrigés. FENNI SALAH OR 2006. Page 3/31 ... 2 IF a mod 4 =0. Then IF j<29 fenni j:=1; m:=m+1;. FENNI SALAH OR 2006.
Exercices avec correction ( Pdf ) - Devoir.TN
Rang 5 4 2 1 3. Page 16. Exercices en Turbo Pascal. FENNI SALAH ©® 2000. Page 16/22. Exercice 28. Ecrire un programme Pascal qui permet de remplir un tableau T
Algorithmes et programmation en Pascal TD corrigés
balle then writeln('la balle est sous le gobelet 3');. END. Page 15. TD. Deug 1 Mass MA 1997 `a 2004. 15.
UNFPA Tunisia
part et de participer à l'identification des institutions offrant des services destinés aux femmes victimes de violences ou en situation de.
Hémogramme : Etude de la fiabilité des alarmes données par l
78%. 22%. Sans alarme. Alarme. Page 76. Hémogramme : Etude de la fiabilité des alarmes données par l'automate. 37. ? Frottis. -. L'examen microscopique des
Untitled
Page 4. 1 - ENSEIGNANTS-CHERCHEURS MEDECINS ET PHARMACIENS. PROFESSEURS : Papa celui qui s'est toujours sacrifié pour voir réussir ses enfants.
P392021 corrigé _1_
u retour veineux du sang qui veine porte qui amène. Page 70. au foie ce sang veineux afin d'être détoxif digestion seront transformés. Le pancréas : [3 8
MA THESE FINALE - corrigé
[Photo du service de parasitologie HMIM V]. Page 34. 6. La manière de prélever un ongle dépend entièrement de l'aspect
Les mycoses :
L'ongle parasité peut jouer le rôle d'un. Page 49. Partie théorique. 16 réservoir de champignon à partir duquel se fera l'inoculation de la peau ou du cuir
![Algorithmes et programmation en Pascal TD corrigés Algorithmes et programmation en Pascal TD corrigés](https://pdfprof.com/Listes/16/26193-16tdcorig-mass.pdf.pdf.jpg)
AlgorithmesetprogrammationenPascal
FacultedesSciencesdeLuminyEdouardThiel
TDcorriges
Deug1MassMA
Modulede75heures
1997a2004
Tabledesmatieres
1Expressionsetaectations4
1.1Typed'uneexpression4
1.2Anneebissextile5
1.3Boulangerie5
1.4LogiquedeBoole5
1.5SupplementspourleTP6
2Intervallesetenregistrements7
2.1Heures7
2.2SupplementspourleTP10
3Procedures11
3.1MinetMax11
3.2Echangedansl'ordrecroissant12
3.3Passaged'enregistrements13
3.4SupplementspourleTP14
4Bouclesetfonctions15
4.1Fonctionsnumeriques15
4.2Lectureauclavier16
4.3Intervallesdetemps17
4.4SupplementspourleTP18
5Tableauxetindices19
5.1LeprogrammeAppaLet19
6Tableaux,recordetstring23
6.1LeprogrammeRendezV23
6.2Cryptage25
7Detectiondemots27
7.1LeprogrammeColEcran27
8Fichierstexte31
8.1LeprogrammeMinusCol31
9Recherchedansunchier35
9.1Recherchedemots35
9.2LeprogrammeNuMots37
TDDeug1MassMA,1997a20043
10Tris39
10.1Triparpermutation39
10.2Triabullesoptimise40
10.3SupplementspourleTP42
1.Expressionsetaectations
1.1Typed'uneexpression
Rappel
Tabledesprioritesclasseesparordre
decroissant,lesoperateurssurunem^eme ligneayantuneprioriteegale(onevaluealors degaucheadroite).()fonction()primaire +-notunaire */divmodandmultiplicatif +-oradditif =<><<=>=>relation pasbienformees.Exemple: round(2:6|{z} reel+1|{z} entier| {z} reel3.6) {z} entier4>4|{z} entier=3|{z} entier| {z} reel1.33.. {z} booleentrue1.2-5*3+4(2-5)*(3+4)2-(5*3+4)
2.12/312div311div3div211mod3+5.2
3.1.0*2+3-4round(2*6.3)-15/3(50<3*8)
4.falseornotfalseandtrue(12>24)+(2+4=12)
5.(37-3>=14)-'a'+3pred('b')>'k'12>3>4
6.3.5+7>4>falsenot(12<>3*16.8/4)andtrue
7.3*cos(8.0/(17-(3*4)-5))
Correction
1.entier9entier21entier17
2.reel4:0entier4entier1reel7:2
3.reel1:0reel8:0booleenfalse
4.booleentrueerreur:bool+bool
6.booleentruebooleenfaux
7.erreur:divisionpar0
TDDeug1MassMA,1997a20045
1.2Anneebissextile
TDEcrireb:=l'expression.
TPCorrection
(1)!(3):(xandy)or(xandz)=xand(yorz).1.3Boulangerie
TD TP estouverte.Correction
b:=(h>=7)and(h<=13)and(j<>1)or (h>=16)and(h<=20)and(j>1); !Re echirchezsoiaucasoulesminutessontxees.1.4LogiquedeBoole
TDSimplierlesexpressions:
Correction
xory=yorx(idempourand){10} :=(x<7);{5} q:=not(aand(notaorb))orb; :=true;{7}Remarque:(x)y)s'ecritnotxory
1.5SupplementspourleTP
1)CodesASCII
2)Erreurs
3)Portrait
TDDeug1MassMA,1997a20047
2.Intervallesetenregistrements
2.1Heures
enregistrementtemps_t.Correction
TYPEheure_t=0..23;minute_t=0..59;
s:seconde_t;End;2)Soitt1ett2deuxtemps_t.
Correction
PROGRAMtp_egaux;TYPE{cf1)}
VARt1,t2:temps_t;egal:boolean;
writeln('Egalite:',egal);END.3)Modierleprogrammepourqu'ildisesit1 a)Avecuneexpressionbooleenne. b)Avecdesifthenelse. Correction
a)Ondeclareinf:boolean. Onpeutencorereduirel'expression:
nement. inf:=false;if(t1.h4)Soittuntemps_t.
depuis0:0:0. Correction
a)Ondeclareinf:boolean.Onpeutencorereduirel'expression:
nement. inf:=false;if(t1.hCorrection
virgule).PROGRAMnb_sec;TYPE{cf1)}
VARt:temps_t;ns:integer;
writeln('ns:',ns);END.TDDeug1MassMA,1997a20049
passantparlaconversionensecondes.Correction
PROGRAMtp_comp;TYPE
{cf1)}VARt1,t2:temps_t; ns1,ns2:integer;BEGIN{Lecturet1ett2...} ns2:=t2.h*3600+t2.m*60+t2.s; if(ns1Onplaceleresultatdanst3:temps_t.
ecrire:2.2SupplementspourleTP
1)Procedures
2)Programmemystere
Quefaitceprogramme?
PROGRAMabyz;VARd:char;
BEGINread(d);
END.TDDeug1MassMA,1997a200411
3.Procedures
3.1MinetMax
1)ProcedureMinde2entiers.
2)ProcedureMaxde2entiers.
Correction
BEGINifa END; BEGINifa>bthensup:=aelsesup:=b;
END; BEGINMin(x,y,p);Max(x,y,g);
END; 4)PROGRAMexo1;
VARu,v,pp,pg:integer;{varglobales}
{iciproceduresMin,MaxetMinMax} BEGIN writeln('min',pp,'max',pg);END. 3.2 Echangedansl'ordrecroissant
estabc.Ecrireplusieursversions. Correction
BEGINifa>bthenbegint:=a;a:=b;b:=t;end;
END; PROGRAMTri1;
VARu,v:real;{Mettreicilaprocedure}BEGIN
END. Onseposelaquestion:varoupasvar?
apres. .Avecunvar:aetbsontdesaliasdeuetv. 2)PROCEDUREEchange3(vara,b,c:real);BEGIN
END; Ilyad'autressolutionspossibles.Exemple:
Echange2(a,b);{onmetleplusgranddansb}
TDDeug1MassMA,1997a200413
3.3Passaged'enregistrements
parametres. 1) detsouslaformeh:m:ssansretouralaligne. 2) leschampsdet. 3) ecouleesdepuis0:0:0. Correction
PROGRAMtemps;
TYPE heure_t=0..23;minute_t=0..59; seconde_t=0..59;temps_t=Recordh:heure_t; m:minute_t;s:seconde_t;End; 1)PROCEDUREecriture(t:temps_t);BEGIN
write(t.h,':',t.m,':',t.s);END; readln(t.h,t.m,t.s);END; END; 4)VARt1,t2:temps_t;
n1,n2:integer;c:char; BEGIN ifn13.4SupplementspourleTP 1)Programmemystere
Laballeestsousquelgobelet?
PROGRAMballe;
TYPEgobelet_t=recordballe:boolean;
abra(g1,g2);cad(g2,g3);abra(g3,g1); END. TDDeug1MassMA,1997a200415
4.Bouclesetfonctions
4.1Fonctionsnumeriques
1)Factorielle
Faireunefonctionfacto(n)quirenvoien!.
2)Puissance
Faireunefonctionpuiss(x,n)quirenvoiexn.
3)Exponentielleex'1+x
1+x22!+x33!++xnn!
appelauxfonctionsfactoetpuiss. Correction
END; {Lafonctionestjusteegalementpourn=0. {Onpeutaussicommencerlefora2. puiss:=r;END; {00n'estmathematiquementpasdeni. expn:=r;END; deplusenpluslents. 4.2Lectureauclavier
1)Compterdescaracteres
2)CompterlesL
Correction
c:char;BEGINres:=0;{init} END; 3)CompterlesLEUniquementenTP
Correction
c,d:char;BEGINres:=0;{init} whilec<>CFindo end; readln; nb_couple:=res; END; TDDeug1MassMA,1997a200417
4.3Intervallesdetemps
Soitletypetemps_tdeniaux2.
1) periodedetemps. 2) depuis0:0:0. 3) etrenvoieleresultatsousformed'untemps_t. 4) etdeconvertir. Correction
1)TYPEheure_t=0..23;
h:heure_t;m:minute_t;s:seconde_t; End;inter_t=Recorddebut,fin:temps_t;
End; 2)FUNCTIONcalc_ns(t:temps_t):integer;
BEGINcalc_ns:=t.h*3600+t.m*60+t.s;END;
BEGINres.h:=nsdiv3600;ns:=nsmod3600;
res.m:=nsdiv60;ns:=nsmod60;res.s:=ns; convertir:=res;END; END; 4.4SupplementspourleTP
1)Calculdepi
4=113+1517+19
lorsqueleterme1 xestpluspetitque". Correction
PROGRAMcalculpi;
repeat s:=-s;{inverselesigne} untilabs(t)VARe:real;
END. BEGINifa>bthensup:=aelsesup:=b;
END;BEGINMin(x,y,p);Max(x,y,g);
END;4)PROGRAMexo1;
VARu,v,pp,pg:integer;{varglobales}
{iciproceduresMin,MaxetMinMax} BEGIN writeln('min',pp,'max',pg);END. 3.2Echangedansl'ordrecroissant
estabc.Ecrireplusieursversions.Correction
BEGINifa>bthenbegint:=a;a:=b;b:=t;end;
END;PROGRAMTri1;
VARu,v:real;{Mettreicilaprocedure}BEGIN
END.Onseposelaquestion:varoupasvar?
apres. .Avecunvar:aetbsontdesaliasdeuetv.2)PROCEDUREEchange3(vara,b,c:real);BEGIN
END;Ilyad'autressolutionspossibles.Exemple:
Echange2(a,b);{onmetleplusgranddansb}
TDDeug1MassMA,1997a200413
3.3Passaged'enregistrements
parametres. 1) detsouslaformeh:m:ssansretouralaligne. 2) leschampsdet. 3) ecouleesdepuis0:0:0.Correction
PROGRAMtemps;
TYPE heure_t=0..23;minute_t=0..59; seconde_t=0..59;temps_t=Recordh:heure_t; m:minute_t;s:seconde_t;End;1)PROCEDUREecriture(t:temps_t);BEGIN
write(t.h,':',t.m,':',t.s);END; readln(t.h,t.m,t.s);END; END;4)VARt1,t2:temps_t;
n1,n2:integer;c:char; BEGIN ifn11)Programmemystere
Laballeestsousquelgobelet?
PROGRAMballe;
TYPEgobelet_t=recordballe:boolean;
abra(g1,g2);cad(g2,g3);abra(g3,g1); END.TDDeug1MassMA,1997a200415
4.Bouclesetfonctions
4.1Fonctionsnumeriques
1)Factorielle
Faireunefonctionfacto(n)quirenvoien!.
2)Puissance
Faireunefonctionpuiss(x,n)quirenvoiexn.
3)Exponentielleex'1+x
1+x22!+x33!++xnn!
appelauxfonctionsfactoetpuiss.Correction
END; {Lafonctionestjusteegalementpourn=0. {Onpeutaussicommencerlefora2. puiss:=r;END; {00n'estmathematiquementpasdeni. expn:=r;END; deplusenpluslents.4.2Lectureauclavier
1)Compterdescaracteres
2)CompterlesL
Correction
c:char;BEGINres:=0;{init} END;3)CompterlesLEUniquementenTP
Correction
c,d:char;BEGINres:=0;{init} whilec<>CFindo end; readln; nb_couple:=res; END;TDDeug1MassMA,1997a200417
4.3Intervallesdetemps
Soitletypetemps_tdeniaux2.
1) periodedetemps. 2) depuis0:0:0. 3) etrenvoieleresultatsousformed'untemps_t. 4) etdeconvertir.Correction
1)TYPEheure_t=0..23;
h:heure_t;m:minute_t;s:seconde_t;End;inter_t=Recorddebut,fin:temps_t;
End;2)FUNCTIONcalc_ns(t:temps_t):integer;
BEGINcalc_ns:=t.h*3600+t.m*60+t.s;END;
BEGINres.h:=nsdiv3600;ns:=nsmod3600;
res.m:=nsdiv60;ns:=nsmod60;res.s:=ns; convertir:=res;END; END;4.4SupplementspourleTP
1)Calculdepi
4=113+1517+19
lorsqueleterme1 xestpluspetitque".Correction
PROGRAMcalculpi;
repeat s:=-s;{inverselesigne} untilabs(t)TDDeug1MassMA,1997a200419
5.Tableauxetindices
5.1LeprogrammeAppaLet
Ondisposedestypessuivants.
CONSTMaxTabCar=4096;CMin='a';
1)Lectureauclavier
2)Achageal'envers
contenudetabCar:TabCar_t.3)Calculdepourcentage
detabCar.4)Recherchedumaximum
5)Recherchedesplusfrequents
t^ete.6)Programmeprincipal
achedansl'ordrecroissantdefrequence.Correction
varnbCar:integer;CarFin:char);VARc:char; whilec<>CarFindobeginnbCar:=nbCar+1; readln;{absorbeleretourchariot}END; END;VARi,n:integer;c:char;BEGIN
{comptage}fori:=1tonbCardo tabP[c]:=tabP[c]+1.0;n:=n+1;end; end; {calculpourcentages}TDDeug1MassMA,1997a200421
n:integer);VARi:integer;c:char;BEGINfori:=1tondobegin
end;{lemaxsuivantnesoitpluscec}END;6)PROGRAMAppaLet;
VAR tc,tf:TabCar_t; tp:TabPourcent_t;nc:integer;BEGINAfficheEnvers(tf,5);END.
TDDeug1MassMA,1997a200423
6.Tableaux,recordetstring
6.1LeprogrammeRendezV
introduitlestypessuivants:1)Saisie
besoinenappelantlaprocedurelecture().2)Achage
besoinenappelantlaprocedureecriture().3)Chevauchement
vousr1,r2:Rdv_tsechevauchent.4)Testjournee
5)Programmeprincipal
Correction
1)PROCEDURESaisieRdv(varr:Rdv_t);
lecture(r.fin);END; ecriture(r.debut);ecriture(r.fin);END;quotesdbs_dbs29.pdfusesText_35[PDF] Composition de Français du 3 ème trimestre Niveau - Ets SALIM
[PDF] 1 EVOLUTION DU CODE CIVIL DES DEVOIRS ET DES DROITS
[PDF] PROGRAMMES DE SCIENCES PHYSIQUES
[PDF] Devoir de rentrée en physique/chimie pour le passage en
[PDF] devoir maison psychologie : les groupes - carabinsnicoisfr
[PDF] Doit-on toujours dire la vérité ? Une approche philosophique - OCCE
[PDF] Evaluation La poésie lyrique /20
[PDF] sujet d 'etude : humanisme et renaissance sequence : la - Lyon
[PDF] fonctions logiques combinatoires - Technologue pro
[PDF] Tâches complexes : mise en
[PDF] Devoir maison n °7 de Mathématiques 5ème Correction Exercice n
[PDF] Correction - My MATHS SPACE
[PDF] devoir maison n°1 - Collège Nicolas Haxo - e-lyco
[PDF] dominos - Maths-et-tiques