suite de la correction de la serie N°1

Aller en bas

suite de la correction de la serie N°1

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

Program Ex14_S2;
Uses WinCrt;
Var a, b, c, d, x1, x2 : Real;
BEGIN
Write('a = '); Readln(a);
Write('b = '); Readln(b);
Write('c = '); Readln(c);
If a = 0 Then
If b =0 Then
If c = 0 Then Write('x app IR')
Else
Write('Impossible')
Else write('x = ',-c/b)
Else
Begin
d := sqr(b) -4*a*c;
If d > 0 Then
Begin
x1 := (-b +sqrt(d))/(2*a);
x2 := (-b -sqrt(d))/(2*a);
Writeln('x1 = ',x1:6:3);
Writeln('x2 = ',x2:6:3);
End
Else
If d = 0 Then
Begin
x1 := -b/(2*a);
Writeln('x1 = x2 = ',x1:6:3);
End
Else Write('impossible');
End;
END.

Program Ex15_S2;
Uses WinCrt;
Var a, b, c, d, x1, x2 : Real;
BEGIN
Write('a = '); Readln(a);
Write('b = '); Readln(b);
Write('c = '); Readln(c);
If a = 0 Then
If b =0 Then
If c = 0 Then Write('x app IR')
Else
Write('Impossible')
Else write('x = ',-c/b)
Else
Begin
d := sqr(b) -4*a*c;
If d > 0 Then
Begin
x1 := (-b +sqrt(d))/(2*a);
x2 := (-b -sqrt(d))/(2*a);
Writeln('x1 = ',x1:6:3);
Writeln('x2 = ',x2:6:3);
End
Else
If d = 0 Then
Begin
x1 := -b/(2*a);
Writeln('x1 = x2 = ',x1:6:3);
End
Else
Begin
Writeln('z1 = ', '(',-b:6:3, ' -', sqrt(abs(d)):6:3,'i)/',(2*a):6:3);
Writeln('z1 = ', '(',-b:6:3, ' +', sqrt(abs(d)):6:3,'i)/',(2*a):6:3);
End
End;
END.

Program Ex16_S2;
Uses WinCrt;
Var j, m, a : Integer;
BEGIN
Write('Le jour : '); Readln(j);
Write('Le mois : '); Readln(m);
Write('L''an : '); Readln(a);
Case m Of
12, 1, 2 : Write('Hiver');
3..5 : Write('Printemps');
6..8, 2 : Write('Eté');
9..11 : Write('Automne');
Else
Write('Mois non valide');
End;
END.

Program Ex17_S2;
Uses WinCrt;
Var j, m, a, nbre : Integer;
BEGIN
Write('Le jour : '); Readln(j);
Write('Le mois : '); Readln(m);
Write('L''an : '); Readln(a);
Case m Of
1, 3, 5, 7, 8, 10, 12 : nbre := 31;
4, 6, 9, 11 : nbre := 30;
2 : If a Mod 4 = 0 Then nbre := 29
Else nbre := 28;
Else
Write('Mois non valide');
End;
If m In [1..12] Then
Write('Le mois ', m, ' est composé de ', nbre, ' jours');
END.

Program Ex18_S2;
Uses WinCrt;
Var n, dm, m, c, d, u : Integer;
P : Boolean;
BEGIN
Write('n = '); Readln(n);
P := False;
dm := n Div 10000;
m := (n Mod 10000) Div 1000;
c := (n Mod 1000) Div 100;
d := (n Mod 100) Div 10;
u := n Mod 10;
Case n Of
0..9 : P := True;
10..99 : If (d = u) Then P := True;
100..999 : If (c = u) Then P := True;
1000..9999 : If (m = u) And (c = d) Then P := True;
10000..32767 : If (dm = u) And (m = d) Then P := True;
Else Write('Erreur');
End;
If P Then Write(n, ' est palindrome')
Else Write(n, ' n''est palindrome');
END.

Program Ex20_S2;
Uses WinCrt;
Var AB, BC, CA : Real;
BEGIN
Write('AB = '); Readln(AB);
Write('BC = '); Readln(BC);
Write('CA = '); Readln(Ca);
If (AB = BC) And (BC = CA) Then
write('ABC est un triangle équilatérale')
Else
If (AB = BC) Then
If sqr(AB) + sqr(BC) = sqr(CA) Then
write('ABC est un triangle isocèle rectangle en B')
Else write('ABC est un triangle isocèle en B')
Else
If (BC = CA) Then
If sqr(BC) + sqr(CA) = sqr(AB) Then
write('ABC est un triangle isocèle rectangle en C')
Else write('ABC est un triangle isocèle en C')
Else
If (CA = AB) Then
If sqr(CA) + sqr(AB) = sqr(BC) Then
write('ABC est un triangle isocèle rectangle en A')
Else write('ABC est un triangle isocèle en A')
Else
If sqr(CA) + sqr(AB) = sqr(BC) Then
write('ABC est un triangle rectangle en A')
Else
If sqr(BC) + sqr(CA) = sqr(AB) Then
write('ABC est un triangle rectangle en C')
Else
If sqr(AB) + sqr(BC) = sqr(CA) Then
write('ABC est un triangle rectangle en A')
Else write('ABC est un triangle quelconque');
END.

Program Ex21_S2;
Uses WinCrt;
Var j, m, a : Integer;
BEGIN
Write('j = '); Readln(j);
Write('m = '); Readln(m);
Write('a = '); Readln(a);
Case j Of
1..27 : j := j + 1;
28 : If m = 2 Then
If a Mod 4 = 0 Then j := 29
Else
Begin
m := 3;
j := 1;
End
Else j := 29;
30 : If m In [1, 3, 5, 7, 8, 10, 12] Then j := 31
Else
Begin
m := m + 1; j := 1;
End;
31 : If m <> 12 Then
Begin
m := m + 1; j := 1;
End
Else
Begin
j := 1; m := 1; a := a + 1;
End
Else write('erreur');
End;
Write(j, ' ', m, ' ', a);
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