correction de la serieN°1

Aller en bas

correction de la serieN°1

Message par Admin le 14th Avril 2009, 16:01

Program Ex1_S2;
Uses WinCrt;
Var v1, v2 : String; { ou Char ou Integer ou Real}
BEGIN
Write('V1 = '); Readln(v1);
Write('V2 = '); Readln(v2);
If v1 < v2 Then Write(v1, ' < ', v2)
Else
If v1 > v2 Then Write(v1, ' > ', v2)
Else Write(v1, ' = ', v2);
END.

Program Ex2_S2;
Uses WinCrt;
Const f = 6;
Var v1, v2 : Integer;
BEGIN
Randomize;
V1 := Random(f+1);
Writeln('V1 = ', v1);
V2 := Random(f+1);
Writeln('V2 = ', v2);
If v1 < v2 Then Write('Le joueur N° 2 est le gagnant')
Else
If v1 > v2 Then Write('Le joueur N° 1 est le gagnant')
Else Write('Egalité');
END.

Program Ex2v2_S2;
Uses WinCrt;
Const f = 6;
Var v1, v2 : Integer;
BEGIN
Write('V1 = '); Readln(v1);
Randomize;
V2 := Random(f+1);
Writeln('V2 = ', v2);
If v1 < v2 Then Write('Le joueur N° 2 est le gagnant')
Else
If v1 > v2 Then Write('Le joueur N° 1 est le gagnant')
Else Write('Egalité');
END.

Program Ex3_S2;
Uses WinCrt;
Var n : Integer;
BEGIN
Write('n = '); Readln(n);
If n Mod 2 = 0 Then Write(n, ' est pair')
Else Write(n, ' est impair');
END.

Program Ex4_S2;
Uses WinCrt;
Var n, a, b : Integer;
BEGIN
Write('n = '); Readln(n);
a := n Div 10;
b := n Mod 10;
If a Mod 2 = 0 Then Writeln(a, ' est pair')
Else Writeln(a, ' est impair');
If b Mod 2 = 0 Then Writeln(b, ' est pair')
Else Writeln(b, ' est impair');
END.

Program Ex5_S2;
Uses WinCrt;
Var a, b : Integer;
BEGIN
Write('a = '); Readln(a);
Write('b = '); Readln(b);
If a Mod b = 0 Then Write(b, ' est un diviseur de ', a)
Else
If b Mod a = 0 Then Write(a, ' est un diviseur de ', b)
Else Write(a, ' n''est pas un diviseur de ', b, ' et inversement');
END.

Program Ex6_S2;
Uses WinCrt;
Var n, a, b : Integer;
BEGIN
Write('n = '); Readln(n);
a := n Div 10;
b := n Mod 10;
If (n Mod a = 0) And (n Mod b = 0) Then
Write(n, ' est divisible par ses deux chiffres ', a, ' et ', b)
Else Write(n, ' n''est pas divisible par ses deux chiffres ', a, ' et ', b);
END.

Program Ex7_S2;
Uses WinCrt;
Var n, a, b : Integer;
BEGIN
Write('n = '); Readln(n);
a := n Div 10;
b := n Mod 10;
If (a*b) Mod (a+b) = 0 Then Write(a, ' + ', b, ' divisie ', a, ' * ', b)
Else Write(a, ' + ', b, ' ne divise pas ', a, ' * ', b);
END.

Program Ex8_S2;
Uses WinCrt;
Var n, m : Integer;
op : Char;
BEGIN
Write('n = '); Readln(n);
Write('Opérateur : '); Readln(op);
Write('m = '); Readln(m);
Case op Of
'+' : Write(n, ' ', op, ' ', m, ' = ', n + m);
'-' : Write(n, ' ', op, ' ', m, ' = ', n - m);
'*' : Write(n, ' ', op, ' ', m, ' = ', n * m);
'/' : Write(n, ' ', op, ' ', m, ' = ', n / m);
Else Write('Opérateur non valide');
End;
END.

Program Ex9_S2;
Uses WinCrt;
Var n,a, b, c : Integer;
BEGIN
Write('n = '); Readln(n);
a := n Div 100;
b := (n Mod 100) Div 10;
c := n Mod 10;
If n = sqr(a)*a + sqr(b)*b + sqr(c)*c Then
Write(n, ' est un entier cubique')
Else Write(n, ' n''est pas un entier cubique');
END.

Program Ex10_S2;
Uses WinCrt;
Var a, b, c : Integer;
BEGIN
Write('a = '); Readln(a);
Write('b = '); Readln(b);
Write('c = '); Readln(c);
If a < b Then
If c < a Then Write(c, ' < ', a, ' < ', b)
Else
If b < c Then Write(a, ' < ', b, ' < ', c)
Else Write(a, ' < ', c, ' < ', b)
Else
If c < b Then Write(c, ' < ', b, ' < ', a)
Else
If a < c Then Write(b, ' < ', a, ' < ', c)
Else Write(b, ' < ', c, ' < ', a);
END.


Program Ex11_S2;
Uses WinCrt;
Var n1, n2, n3, m : Real;
BEGIN
Write('Note1 = '); Readln(n1);
Write('Note2 = '); Readln(n2);
Write('Note3 = '); Readln(n3);
m := (n1 + n2 + n3)/3;
If (n1 >= 9) And (n2 >= 9) And (n3 >= 9) Or
((m >= 10) And (n1 >= 8 ) And (n2 >= 8 ) And (n3 >=8 ) Then
Write('Admis')
Else Write('Refusé');
END.

Program Ex12_S2;
Uses WinCrt;
Var a, b : Real;
BEGIN
Write('a = '); Readln(a);
Write('b = '); Readln(b);
If a = 0 Then
If b = 0 Then write('x app à IR')
Else Write('impossible')
Else Write('x = ',-b/a:6:3);
END.

Program Ex13_S2;
Uses WinCrt;
Var a, b : Real;
BEGIN
Write('a = '); Readln(a);
Write('b = '); Readln(b);
If a = 0 Then
If b < 0 Then write('x app à IR')
Else Write('impossible')
Else
If b <> 0 Then
If a > 0 Then Write('x < ',-b/a:6:3)
Else Write('x > ',-b/a:6:3)
Else
If a > 0 Then Write('x < ',1/a:6:3)
Else Write('x > ',-1/a:6:3)
END.
avatar
Admin
Admin

Masculin
Nombre de messages : 42
Age : 41
Date d'inscription : 12/02/2008

Voir le profil de l'utilisateur http://ltss.forumperso.com

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum