[PDF] Introduction au langage Pascal

View - Download Introduction au langage Pascal

Previous PDF

Next PDF

Deug TI 1A

Yannick Chevalier

UNIVERSITE HENRI POINCARE - NANCY I, 2000/2001

Introduction

au langagePascal 1

Deug TI 1A

Yannick Chevalier

UNIVERSITE HENRI POINCARE - NANCY I, 2000/2001

Contents

1Commenconsparunpetitexemple...3

2Lapartiedesdeclarations4

3Lapartiealgorithme6

4Contr^olede

ux7

5D'autrestypes13

6Lestableaux15

7Fonctionsetprocedures17

8Algorithmesrecursifs21

9Conclusion:Formed'unprogrammePascal30

2

Deug TI 1A

Yannick Chevalier

UNIVERSITE HENRI POINCARE - NANCY I, 2000/2001

1Commenconsparunpetitexemple...

PROGRAMcirconference;

VARrayon,circonference:REAL;

BEGIN readln(rayon); circonference:=rayon*2*3.1416; writeln(rayon,circonference); END. lespartieslesplusimportantes.

Ilyad'abordlesqueletteduprogramme:

PROGRAM...;

(*Calculdelacirconferenced'uncercle*)

VAR....;

BEGIN END. unprogramme.Ilsnesontpasfacultatifs; gramme. 3

Deug TI 1A

Yannick Chevalier

UNIVERSITE HENRI POINCARE - NANCY I, 2000/2001

2Lapartiedesdeclarations

2.1Lesdierentstypesdebase

VARrayon,circonference:REAL;

TRUE(vrai)ouFALSE(faux);

fairedesoperationsdessus!

2.2Lesoperationsquipreserventletype

pourvaleur:

1.17mod3apourvaleur2;

2.17div3apourvaleur5.

detypereal.

CHR(67)prendlavaleur'C';

CHR(51)prendlavaleur'3'.

Exercice:

xory. 4

Deug TI 1A

Yannick Chevalier

UNIVERSITE HENRI POINCARE - NANCY I, 2000/2001

xnyfalsetrue falsefalsetrue truetruetrue xnyfalsetrue falsefalsetrue truefalsetrue xORy xANDy xnotx falsetrue truefalse xnyfalsetrue falsefalsetrue truetruefalse notx xXORy

Figure 1:les op erationsbooleennes

2.3 Lesop erationsquirendentun typ eboolean

Il ya ici touteslesop erationsde comparaison<,>,<=,>= et<>(dierent). Oncompare entre elles deux expressionsd'un m^ emetype,sice typepeut^ etreordonn e. Ilestaussipossiblede comparerdes expressions det yperealavecdesexpressions det ype integer. Pourlescaract eres, onutilisel'ordredu codeASCI I.Parexemple :

CHR(60)< CHR(49) rendfalse;

3:5>= 3rend true;

3:0<>3 rendfalse.

5

Deug TI 1A

Yannick Chevalier

UNIVERSITE HENRI POINCARE - NANCY I, 2000/2001

3Lapartiealgorithme

readln(rayon); circonference:=rayon*2*3.1416; writeln(rayon,circonference);

3.1Interfaceavecl'utilisateur

Lesdeuxcommandes:

readln(rayon); writeln(rayon,circonference); pouruninteger:3;5;17;:::maispas3:5ou'A'; esttoujourspossibledelesecrire; pourleschar:3,A,',e,...,maispas'AA'.

3.2Lesaectations

circonference:=rayon*2*3.1416; ...:=rayon*2*3.1416 circonference:=... quiaetestockeedanscettevariable.

Ilfautnoterdeuxchoses:

6

Deug TI 1A

Yannick Chevalier

UNIVERSITE HENRI POINCARE - NANCY I, 2000/2001

4Contr^olede

ux

4.1Executionconditionnelle

Programvaleurabsolue;

nombre,valeurabsolue:real; begin readln(nombre); (*calculdelavaleurabsolue*) end. ifexpr booltheninst expr programmedevient:

Programvaleurabsolue;

Onutilisedeuxconditionnelles.

Varnombre,valeurabsolue:real;

begin readln(nombre); if(nombre>=0)thenvaleurabsolue:=nombre; if(nombre<0)thenvaleurabsolue:=-nombre; end. ifexpr booltheninst1elseinst2 7

Deug TI 1A

Yannick Chevalier

UNIVERSITE HENRI POINCARE - NANCY I, 2000/2001

Leprogrammedevientalors:

Programvaleurabsolue;

Onn'utiliseplusqu'uneconditionnelle

Varnombre,valeurabsolue:real;

begin readln(nombre); if(nombre>=0)then valeurabsolue:=nombre else valeurabsolue:=-nombre; end. valeurabsolue:=nombre quisuitl'instruction valeurabsolue:=-nombre

4.2Lesblocsd'instructions

lesinstructionsaveclaconstruction: begininst1;:::;instnend maintenant: 8

Deug TI 1A

Yannick Chevalier

UNIVERSITE HENRI POINCARE - NANCY I, 2000/2001

Programvaleurabsolue;

Varnombre,valeurabsolue:real;

begin readln(nombre); if(nombre>=0)then begin valeurabsolue:=nombre; writeln('Lenombreentreestpositif,'); writeln('doncilestegalasavaleurabsolue') end else begin valeurabsolue:=-nombre; writeln('Lenombreentreestnegatif,'); end; end.

4.3Lesbouclessurdestypesenumeres

d'autresdanslasuiteducours.

Exercice:

ProgramlettresAE;

OnacheleslettresdeAaE,uneparligne...

Onn'apasbesoindedeclarerdevariables.

begin writeln('A'); writeln('B'); writeln('C'); writeln('D'); writeln('E') end. 9

Deug TI 1A

Yannick Chevalier

UNIVERSITE HENRI POINCARE - NANCY I, 2000/2001

l'instruction seraex ecuteepourtouteslesvaleurs delavariable entre leminim umetlemaxim um dans l'ordrecroissan t.Onappelle lav ariableindicede lab oucle.Biens^ ur,cette instructionpeut^etre un bloc...Utilisonscette nouvelle construction:

ProgramlettresAEboucle;

On acheleslettres deA a E,en utilisant une

boucle.

Varlettre :char;

begin forlettre :='A' to'E'do writeln(lettre) end. Exercice :Ecrire tousles motsde exactement 3lettres ecrisav ecles lettresde 'A'a'E'. Cette fois-ci,ceserait unp eulong d' ecrireleslignes ala main(ilyena125).

Programmotstroislettres;

On achelesmots detrois lettresen utilisant trois

bouclesles unesdans lesautres. Ily aune boucle pour lapremi ere lettre, unep ourladeuxi eme,une pourlatroisieme.

Varlettre1, lettre2,lettre3 :char;

begin forlettre1 :='A' to'E'do forlettre2 :='A' to'E'do forlettre3 :='A' to'E'do writeln(lettre1,lettre2,lettre3) end. Les boucles\for" sontutilesmais ilfaut prendrequelques pr ecautionsquand onles utilise:

1. ilne fautjamais changer lav aleurdel'indiced'une boucle dansl'instruction.

Si ille faut,on utiliseraune autrev ariablequi prendla valeur del'indice;

2. Lav aleurdel'indiceest limit ee al'instruction delaboucle.C'estune variable

muette. Ne passuivre lapremi ere reglepeutdonner unprogrammevalide(quimarc hebien),maisil ya des risques d'erreurset ilest possible derendre leprogrammeincompr ehensible.P arexemple, quefait la boucleforsuivante: 10

Deug TI 1A

Yannick Chevalier

UNIVERSITE HENRI POINCARE - NANCY I, 2000/2001

Programmauvaiseboucle;

Exempledeprogrammeouonchangelevaleurde

l'indiceal'interieurd'unebouclefor

Varlettre1,lettre2,lettre3:char;

begin forlettre1:='A'to'E'do begin writeln(lettre1);lettre1:='A'end end.

4.4Lesboucleswhileetrepeat

combiended'iterationilfaudrafaire. b)Tantquejf(xn)j>,calculer: x n+1=xnf(xn) f0(xn) nf(x ) xxnn+1 whiledo 11

Deug TI 1A

Yannick Chevalier

UNIVERSITE HENRI POINCARE - NANCY I, 2000/2001

1.(a)testersilaconditionestvraie;

2.(a)testersilaconditionestvraie;

3.... unblocbegin...end;quotesdbs_dbs46.pdfusesText_46

[PDF] langage pascal site du zero

[PDF] langage poétique définition

[PDF] langage programmation facebook

[PDF] langage python en seconde

[PDF] Langage soutenu - URGENT

[PDF] langage soutenu dictionnaire

[PDF] langage soutenu mots

[PDF] language de la continuité- limite

[PDF] Language HTML

[PDF] Language sql exercice de maison

[PDF] Language tools

[PDF] langue allemande dans le monde

[PDF] langue et détrôner

[PDF] Langue étrangere

[PDF] langue latine liste