Corrige Exercices Pascal Fenni 2018p.pdf


Aperçu du fichier PDF corrigeexercicespascalfenni2018p.pdf - page 5/88

Page 1...3 4 56788



Aperçu texte


Exercice 10
Program Ordre ;
Uses Wincrt ;
Var e1, e2, petit, grand : Integer ;
Begin
Writeln ('Saisir deux entiers : ') ; Readln (e1, e2) ;
petit := e1 ;
grand := e2 ;
IF e1>e2 Then Begin
petit := e2 ;
grand := e1 ;
End;
Writeln (petit, grand:3) ;
End.
Exercice 11
Program Tri;
Uses Wincrt;
Var
a, b, c, aux: Integer;
Begin
Write ('a = ') ; Readln (a) ;
Write ('b = ') ; Readln (b) ;
Write ('c = ') ; Readln (c) ;
IF a>b Then begin
aux:=a;
a:=b;
b:=aux;
end;

Exercice 13
Program Equa_2d ;
Uses Wincrt ;
Var
a, b, c, delta : Real ;
Begin
Write ('a = ') ; Readln (a) ;
Write ('b = ') ; Readln (b) ;
Write ('c = ') ; Readln (c) ;
IF a = 0
{é quation 1er degré }
Then IF b = 0
Then IF c = 0
Then Writeln ('IR')
Else Writeln ('{}')
Else Writeln ('x = ', -c/b)
Else delta := sqr (b) - 4*a*c ;
IF delta = 0 {solution ré elle double}
Then Writeln ('x1=x2= ', -b/ (2*a))
Else IF delta > 0
{deux solutions ré elles}
Then Begin
Writeln ('x1= ', (-b-sqrt (delta))/ (2*a)) ;
Writeln ('x2= ', (-b+sqrt (delta))/ (2*a)) ;
End
Else Writeln ('Deux solutions complexes') ;
End.
Exercice 15
Program Touche ;
Uses Wincrt;
Var c : Char ;
nature : String;
Begin
Writeln ('Taper sur une touche'); Readln (c);
Case c of
'a'..'z','A'..'Z' : IF UPCASE(c) in ['A','E','I','U','O','Y']
Then nature := 'Voyelle'
Else nature := 'Consonne';
'0'..'9' : nature := 'Chiffre';
Corrigés exercices en Turbo Pascal

End ;
Writeln (titre, ' ', foulen, ', soyez l', term1,
' bienvenu', term2) ;
End.
Exercice 12
Program Equa_1d ;
Uses Wincrt ;
Var a, b : Real ;
Begin
Write ('a = ') ; Readln (a) ;
Write ('b = ') ; Readln (b) ;
IF a <> 0
Then Writeln ('x = ', -b/a)
Else IF b = 0
Then Writeln ('IR')
Else Writeln ('{}') ;
End.
IF b>c Then begin
aux:=b;
b:=c;
c:=aux;
end;
IF a>b Then begin
aux:=a;
a:=b;
b:=aux;
end;

Writeln (a, b:4, c:4);
End.
Exercice 14
Program Inequation ;
Uses Wincrt ;
Var a, b : Real ;
Begin
Write ('a = ') ; Readln (a) ;
Write ('b = ') ; Readln (b) ;
IF a>0
Then Writeln ('x < ', -b/a)
Else IF a<0
Then Writeln ('x > ', -b/a)
Else IF b<0
Then Writeln ('IR')
Else Writeln ('Impossible') ;
End.

Exercice 16
Program Calculette ;
Uses Wincrt ;
Var a, b : Real ;
op : Char ;
Begin
Readln (a) ; Readln (op) ; Readln (b) ;
Case op of
'+' : Writeln (a:3:2,' ',op,' ',b:3:2,' = ',a+b:3:2 ) ;
'-' : Writeln (a:3:2,' ',op,' ',b:3:2,' = ',a-b:3:2) ;
'*' : Writeln (a:3:2,' ',op,' ',b:3:2,' = ',a*b:3:2) ;
'/' : IF b = 0

FENNI SALAH ©® 1992

Page 5