| | TD NO 04 |  |
|
+71oudia moh modta nounou(saiad a.e.k) lahouel aicha haddar meriem siham louati Bakreti amina Bachir Elezaar Faiza habis wafaa maghnia meddah Belbachir fatima coucou oueld coucou lalia marroki maissour abdala benklouz zakaria bachir bouiadjera kouider-aissa fatiha soumia marouf mebarek amine DERMECHE KARIMA DAOUD HINDA hachelaf hayet messaoudi ali berrezkhami nabil benchendikh mohamed bouzidi nabila fadel mohamed20 KREIRI AKILA KRICHICHE BENACER BOUZID cherif_nawal azzedine aicha touir youcef MEDDAH AMINE fatima abbou Hattab Miloud Benalioua Yahya zoubida CHERFAOUI wiam daadoua zinedine dahdoubi larabi*maamar Bouziane Mohamed Benhalima fatima Bendref Belkacem kacher haroual chenine afif nouredine Cherifi Mohammed Amine AZZEMOU DJAKMINE ABDELFATEH idjri kheira Sakhi Boutaina Benguendouz Abdelkrim BILAL**saadia hachmie rahmoun ahlem belakred sidahmed Righi kheira guendouz mansour boussekine.sihem kara zahia mekki amaria youcef benzineb talhi sara mekki daouadji ahmed87 slimani abdelhakim réda dahmane bouabdellah kheira Abderrahmane fatima zohra Beladjal Kheira Admin 75 participants |
|
| Auteur | Message |
|---|
Righi kheira
Messages : 7
Points : 10
Réputation : 0
Date d'inscription : 22/11/2008
| Sujet: Re: TD NO 04  Jeu 21 Mai - 12:49 | |
| --------------------------------------------------------------------------------
Program ex07 ;
const
m=3
Type
indice=array[1...3]of integer;
vec=array[indice]of real;
Var
I:=integer;
Tab:vec;
Resultat:real;
Procedure norme(var tab1:tab);
Var
I:=indice;
Norm:real;
Begin
For i:=0 to 2 do
Norm:=norm+sqr(tab1[i]);
Resultat:=sqr(norm);
End;
Begin
For i:=0 to 2 do
Begin
Write(‘tab[‘,i,’]=?’);
Readln(tab[i]);
End;
Norme(tab1);
Writeln(‘la norme est:’,resultat :8 :3) ;
End.
Program ex08 ;
const
m=3
Type
indice=array[1...3]of integer;
vec=array[indice]of real;
Var
I:=indice;
Tab,tabx:vec;
Resultat:real;
Function prod_vect(var tab1,tab2:tab):real;
Var
I:=indice;
Prod:real;
Begin
Prod:=0;
For i:=0 to 2 do
Prod:=prod+tab1[i]*tab2[i];
Prod_vect:=prod;
End;
Begin
Writeln(‘veuillez saisir les elements de vecteur ligne’) ;
For i :=0 to 2 do
Begin
Write(‘tab[‘,i,’]=?);
Readln(tab[i]);
End;
Writeln(‘veuillez saisir les elements de vecteur colonne’) ;
For i :=0 to 2 do
Begin
Write(‘tabx[‘,i,’]=?’);
Readln(tabx[i]);
End;
Resultat:=prod_vect(tab_l,tabx);
Writeln(‘la norme est:’resultat :8 :3) ;
End. | |
|
| | |
Righi kheira
Messages : 7
Points : 10
Réputation : 0
Date d'inscription : 22/11/2008
| | Sujet: Re: TD NO 04 Jeu 21 Mai - 12:51 | |
| --------------------------------------------------------------------------------
Program ex06 ;
const
m=3
Type
indice=array[1...3]of integer;
vec=array[indice]of real;
Var
I:indice;
tab:vec;
Resultat:real;
x:integer;
Function norme(var tab1:tab):real;
Var
I:indice;
Norm:real;
x:integer;
Begin
Norm:=0;
For i:=0 to 2 do
Norm:=norm+sqr(tab1[i]);
Norm:=sqrt(norm);
Norme:=norm;
End;
Begin
For i:=0 to 2 do
Begin
Write(‘tab[‘,i,’]=?’);readln(tab[i]);
End;
Resultat:=norme(tab2);
Writeln(‘la norme est:’,resultat) ;
End. | |
|
| | |
mekki amaria
Messages : 10
Points : 14
Réputation : 0
Date d'inscription : 21/11/2008
| | Sujet: slm Jeu 21 Mai - 12:54 | |
| | |
|
| | |
kara zahia
Messages : 7
Points : 111
Réputation : 0
Date d'inscription : 19/04/2009
| | Sujet: Re: TD NO 04 Jeu 21 Mai - 12:54 | |
| ---kara zahia groupe 08-----------------------------------------------------------------------------
Program ex06 ;
const
m=3
Type
indice=array[1...3]of integer;
vec=array[indice]of real;
Var
I:indice;
tab:vec;
Resultat:real;
x:integer;
Function norme(var tab1:tab):real;
Var
I:indice;
Norm:real;
x:integer;
Begin
Norm:=0;
For i:=0 to 2 do
Norm:=norm+sqr(tab1[i]);
Norm:=sqrt(norm);
Norme:=norm;
End;
Begin
For i:=0 to 2 do
Begin
Write(‘tab[‘,i,’]=?’);readln(tab[i]);
End;
Resultat:=norme(tab2);
Writeln(‘la norme est:’,resultat) ;
End.
Program ex07 ;
const
m=3
Type
indice=array[1...3]of integer;
vec=array[indice]of real;
Var
I:=integer;
Tab:vec;
Resultat:real;
Procedure norme(var tab1:tab);
Var
I:=indice;
Norm:real;
Begin
For i:=0 to 2 do
Norm:=norm+sqr(tab1[i]);
Resultat:=sqr(norm);
End;
Begin
For i:=0 to 2 do
Begin
Write(‘tab[‘,i,’]=?’);
Readln(tab[i]);
End;
Norme(tab1);
Writeln(‘la norme est:’,resultat :8 :3) ;
End.
Program ex08 ;
const
m=3
Type
indice=array[1...3]of integer;
vec=array[indice]of real;
Var
I:=indice;
Tab,tabx:vec;
Resultat:real;
Function prod_vect(var tab1,tab2:tab):real;
Var
I:=indice;
Prod:real;
Begin
Prod:=0;
For i:=0 to 2 do
Prod:=prod+tab1[i]*tab2[i];
Prod_vect:=prod;
End;
Begin
Writeln(‘veuillez saisir les elements de vecteur ligne’) ;
For i :=0 to 2 do
Begin
Write(‘tab[‘,i,’]=?);
Readln(tab[i]);
End;
Writeln(‘veuillez saisir les elements de vecteur colonne’) ;
For i :=0 to 2 do
Begin
Write(‘tabx[‘,i,’]=?’);
Readln(tabx[i]);
End;
Resultat:=prod_vect(tab_l,tabx);
Writeln(‘la norme est:’resultat :8 :3) ;
End. | |
|
| | |
Righi kheira
Messages : 7
Points : 10
Réputation : 0
Date d'inscription : 22/11/2008
| | Sujet: Re: TD NO 04 Jeu 21 Mai - 12:55 | |
| Program ex08 ;
const
m=3
Type
indice=array[1...3]of integer;
vec=array[indice]of real;
Var
I:=indice;
Tab,tabx:vec;
Resultat:real;
Function prod_vect(var tab1,tab2:tab):real;
Var
I:=indice;
Prod:real;
Begin
Prod:=0;
For i:=0 to 2 do
Prod:=prod+tab1[i]*tab2[i];
Prod_vect:=prod;
End;
Begin
Writeln(‘veuillez saisir les elements de vecteur ligne’) ;
For i :=0 to 2 do
Begin
Write(‘tab[‘,i,’]=?);
Readln(tab[i]);
End;
Writeln(‘veuillez saisir les elements de vecteur colonne’) ;
For i :=0 to 2 do
Begin
Write(‘tabx[‘,i,’]=?’);
Readln(tabx[i]);
End;
Resultat:=prod_vect(tab_l,tabx);
Writeln(‘la norme est:’resultat :8 :3) ;
End. | |
|
| | |
kara zahia
Messages : 7
Points : 111
Réputation : 0
Date d'inscription : 19/04/2009
| | Sujet: Re: TD NO 04 Jeu 21 Mai - 12:57 | |
| ------kara zahia groupe 8--------------------------------------------------------------------------
Program ex05 ;
Var
Bool :boolean ;
N:integer;
Function premier(var x:integer;test:boolean):boolean;
Var
I:integer;
Begin
Test:=false;
FOR i:=2 to (x mod i) DO
Read (x);
If(x mod i)=0 THEN
Test:=true;
Else
I:=i+1;
Bool=true;
Premier:=test;
End;
Begin
Writeln(‘n=’);
Readln(n);
Bool:=premier(n,bool);
If bool=true then
Writeln(n,’n"est un nombre premier’)
Else writeln(n,’est un nombre premier’) ;
End. | |
|
| | |
Sakhi Boutaina
Messages : 5
Points : 10
Réputation : 0
Date d'inscription : 22/11/2008
| | Sujet: Re: TD NO 04 Jeu 21 Mai - 12:59 | |
| salam je suis sakhi boutaina groupe:07 | |
|
| | |
Sakhi Boutaina
Messages : 5
Points : 10
Réputation : 0
Date d'inscription : 22/11/2008
| | Sujet: Re: TD NO 04 Jeu 21 Mai - 13:01 | |
| reponse de l'exercice 8:
Program ex08 ;
const
m=3
Type
indice=array[1...3]of integer;
vec=array[indice]of real;
Var
I:=indice;
Tab,tabx:vec;
Resultat:real;
Function prod_vect(var tab1,tab2:tab):real;
Var
I:=indice;
Prod:real;
Begin
Prod:=0;
For i:=0 to 2 do
Prod:=prod+tab1[i]*tab2[i];
Prod_vect:=prod;
End;
Begin
Writeln(‘veuillez saisir les elements de vecteur ligne’) ;
For i :=0 to 2 do
Begin
Write(‘tab[‘,i,’]=?);
Readln(tab[i]);
End;
Writeln(‘veuillez saisir les elements de vecteur colonne’) ;
For i :=0 to 2 do
Begin
Write(‘tabx[‘,i,’]=?’);
Readln(tabx[i]);
End;
Resultat:=prod_vect(tab_l,tabx);
Writeln(‘la norme est:’resultat :8 :3) ;
End. | |
|
| | |
kara zahia
Messages : 7
Points : 111
Réputation : 0
Date d'inscription : 19/04/2009
| | Sujet: Re: TD NO 04 Jeu 21 Mai - 13:01 | |
| kara zahia groupe 08
Program ex04;
Var bool :boolean ;
N :integer ;
Procedure premier(var x :integer) ;
Var
I :integer ;
begin
bool:=false;
for i:=2 to (x mod i) do
read(x);
if(x mod i)=0 then
bool:=true
else
i:=i+1;
bool=true;
end;
begin
writeln(’n=’);
readln(n);
premier(n);
if bool=true then
writeln(‘n,n"est pas un nombre premier’)
else writeln(n,’est un nombre premier’) ;
end. | |
|
| | |
mekki amaria
Messages : 10
Points : 14
Réputation : 0
Date d'inscription : 21/11/2008
| | Sujet: Re: TD NO 04 Jeu 21 Mai - 13:01 | |
| slm amaria g09
Program ex06 ;
const
m=3
Type
indice=array[1...3]of integer;
vec=array[indice]of real;
Var
I:indice;
tab:vec;
Resultat:real;
x:integer;
Function norme(var tab1:tab):real;
Var
I:indice;
Norm:real;
x:integer;
Begin
Norm:=0;
For i:=0 to 2 do
Norm:=norm+sqr(tab1[i]);
Norm:=sqrt(norm);
Norme:=norm;
End;
Begin
For i:=0 to 2 do
Begin
Write(‘tab[‘,i,’]=?’);readln(tab[i]);
End;
Resultat:=norme(tab2);
Writeln | |
|
| | |
Sakhi Boutaina
Messages : 5
Points : 10
Réputation : 0
Date d'inscription : 22/11/2008
| | Sujet: Re: TD NO 04 Jeu 21 Mai - 13:03 | |
| reponse de l'exercice 4:
Program ex04;
Var bool :boolean ;
N :integer ;
Procedure premier(var x :integer) ;
Var
I :integer ;
begin
bool:=false;
for i:=2 to (x mod i) do
read(x);
if(x mod i)=0 then
bool:=true
else
i:=i+1;
bool=true;
end;
begin
writeln(’n=’);
readln(n);
premier(n);
if bool=true then
writeln(‘n,n"est pas un nombre premier’)
else writeln(n,’est un nombre premier’) ;
end.
Program ex05 ;
Var
Bool :boolean ;
N:integer;
Function premier(var x:integer;test:boolean):boolean;
Var
I:integer;
Begin
Test:=false;
for i:=2 to (x mod i) do
read (x);
If(x mod i)=0 then
Test:=true;
Else
I:=i+1;
bool=true;
Premier:=test;
End;
Begin
Writeln(‘n=’);
Readln(n);
Bool:=premier(n,bool);
If bool=true then
Writeln(n,’n"est un nombre premier’)
Else writeln(n,’est un nombre premier’) ;
End. | |
|
| | |
mekki amaria
Messages : 10
Points : 14
Réputation : 0
Date d'inscription : 21/11/2008
| | Sujet: Re: TD NO 04 Jeu 21 Mai - 13:03 | |
| Program ex05 ;
Var
Bool :boolean ;
N:integer;
Function premier(var x:integer;test:boolean):boolean;
Var
I:integer;
Begin
Test:=false;
FOR i:=2 to (x mod i) DO
Read (x);
If(x mod i)=0 THEN
Test:=true;
Else
I:=i+1;
Bool=true;
Premier:=test;
End;
Begin
Writeln(‘n=’);
Readln(n);
Bool:=premier(n,bool);
If bool=true then
Writeln(n,’n"est un nombre premier’)
Else writeln(n,’est un nombre premier’) ;
End | |
|
| | |
Sakhi Boutaina
Messages : 5
Points : 10
Réputation : 0
Date d'inscription : 22/11/2008
| | Sujet: Re: TD NO 04 Jeu 21 Mai - 13:06 | |
| Program ex07 ;
const
m=3
Type
indice=array[1...3]of integer;
vec=array[indice]of real;
Var
I:=integer;
Tab:vec;
Resultat:real;
Procedure norme(var tab1:tab);
Var
I:=indice;
Norm:real;
Begin
For i:=0 to 2 do
Norm:=norm+sqr(tab1[i]);
Resultat:=sqr(norm);
End;
Begin
For i:=0 to 2 do
Begin
Write(‘tab[‘,i,’]=?’);
Readln(tab[i]);
End;
Norme(tab1);
Writeln(‘la norme est:’,resultat :8 :3) ;
End.
Program ex08 ;
const
m=3
Type
indice=array[1...3]of integer;
vec=array[indice]of real;
Var
I:=indice;
Tab,tabx:vec;
Resultat:real;
Function prod_vect(var tab1,tab2:tab):real;
Var
I:=indice;
Prod:real;
Begin
Prod:=0;
For i:=0 to 2 do
Prod:=prod+tab1[i]*tab2[i];
Prod_vect:=prod;
End;
Begin
Writeln(‘veuillez saisir les elements de vecteur ligne’) ;
For i :=0 to 2 do
Begin
Write(‘tab[‘,i,’]=?);
Readln(tab[i]);
End;
Writeln(‘veuillez saisir les elements de vecteur colonne’) ;
For i :=0 to 2 do
Begin
Write(‘tabx[‘,i,’]=?’);
Readln(tabx[i]);
End;
Resultat:=prod_vect(tab_l,tabx);
Writeln(‘la norme est:’resultat :8 :3) ;
End. | |
|
| | |
Sakhi Boutaina
Messages : 5
Points : 10
Réputation : 0
Date d'inscription : 22/11/2008
| | Sujet: Re: TD NO 04 Jeu 21 Mai - 13:07 | |
| Program ex06 ;
const
m=3
Type
indice=array[1...3]of integer;
vec=array[indice]of real;
Var
I:indice;
tab:vec;
Resultat:real;
x:integer;
Function norme(var tab1:tab):real;
Var
I:indice;
Norm:real;
x:integer;
Begin
Norm:=0;
For i:=0 to 2 do
Norm:=norm+sqr(tab1[i]);
Norm:=sqrt(norm);
Norme:=norm;
End;
Begin
For i:=0 to 2 do
Begin
Write(‘tab[‘,i,’]=?’);readln(tab[i]);
End;
Resultat:=norme(tab2);
Writeln(‘la norme est:’,resultat) ;
End. | |
|
| | |
mekki amaria
Messages : 10
Points : 14
Réputation : 0
Date d'inscription : 21/11/2008
| | Sujet: Re: TD NO 04 Jeu 21 Mai - 13:10 | |
| Program ex06 ;
const
m=3
Type
indice=array[1...3]of integer;
vec=array[indice]of real;
Var
I:indice;
tab:vec;
Resultat:real;
x:integer;
Function norme(var tab1:tab):real;
Var
I:indice;
Norm:real;
x:integer;
Begin
Norm:=0;
For i:=0 to 2 do
Norm:=norm+sqr(tab1[i]);
Norm:=sqrt(norm);
Norme:=norm;
End;
Begin
For i:=0 to 2 do
Begin
Write(‘tab[‘,i,’]=?’);readln(tab[i]);
End;
Resultat:=norme(tab2);
Writeln(‘la norme est:’,resultat) ;
End.
Program ex07 ;
const
m=3
Type
indice=array[1...3]of integer;
vec=array[indice]of real;
Var
I:=integer;
Tab:vec;
Resultat:real;
Procedure norme(var tab1:tab);
Var
I:=indice;
Norm:real;
Begin
For i:=0 to 2 do
Norm:=norm+sqr(tab1[i]);
Resultat:=sqr(norm);
End;
Begin
For i:=0 to 2 do
Begin
Write(‘tab[‘,i,’]=?’);
Readln(tab[i]);
End;
Norme(tab1);
Writeln(‘la norme est:’,resultat :8 :3) ;
End.
Program ex08 ;
const
m=3
Type
indice=array[1...3]of integer;
vec=array[indice]of real;
Var
I:=indice;
Tab,tabx:vec;
Resultat:real;
Function prod_vect(var tab1,tab2:tab):real;
Var
I:=indice;
Prod:real;
Begin
Prod:=0;
For i:=0 to 2 do
Prod:=prod+tab1[i]*tab2[i];
Prod_vect:=prod;
End;
Begin
Writeln(‘veuillez saisir les elements de vecteur ligne’) ;
For i :=0 to 2 do
Begin
Write(‘tab[‘,i,’]=?);
Readln(tab[i]);
End;
Writeln(‘veuillez saisir les elements de vecteur colonne’) ;
For i :=0 to 2 do
Begin
Write(‘tabx[‘,i,’]=?’);
Readln(tabx[i]);
End;
Resultat:=prod_vect(tab_l,tabx);
Writeln(‘la norme est:’resultat :8 :3) ;
end. | |
|
| | |
idjri kheira
Messages : 5
Points : 20
Réputation : 0
Date d'inscription : 28/11/2008
| | Sujet: Re: TD NO 04 Jeu 21 Mai - 13:12 | |
| Program ex08 ;
const
m=3
Type
indice=array[1...3]of integer;
vec=array[indice]of real;
Var
I:=indice;
Tab,tabx:vec;
Resultat:real;
Function prod_vect(var tab1,tab2:tab):real;
Var
I:=indice;
Prod:real;
Begin
Prod:=0;
For i:=0 to 2 do
Prod:=prod+tab1[i]*tab2[i];
Prod_vect:=prod;
End;
Begin
Writeln(‘veuillez saisir les elements de vecteur ligne’) ;
For i :=0 to 2 do
Begin
Write(‘tab[‘,i,’]=?);
Readln(tab[i]);
End;
Writeln(‘veuillez saisir les elements de vecteur colonne’) ;
For i :=0 to 2 do
Begin
Write(‘tabx[‘,i,’]=?’);
Readln(tabx[i]);
End;
Resultat:=prod_vect(tab_l,tabx);
Writeln(‘la norme est:’resultat :8 :3) ;
End. | |
|
| | |
idjri kheira
Messages : 5
Points : 20
Réputation : 0
Date d'inscription : 28/11/2008
| | Sujet: Re: TD NO 04 Jeu 21 Mai - 13:13 | |
| reponse de l'exercice 4:
Program ex04;
Var bool :boolean ;
N :integer ;
Procedure premier(var x :integer) ;
Var
I :integer ;
begin
bool:=false;
for i:=2 to (x mod i) do
read(x);
if(x mod i)=0 then
bool:=true
else
i:=i+1;
bool=true;
end;
begin
writeln(’n=’);
readln(n);
premier(n);
if bool=true then
writeln(‘n,n"est pas un nombre premier’)
else writeln(n,’est un nombre premier’) ;
end.
Program ex05 ;
Var
Bool :boolean ;
N:integer;
Function premier(var x:integer;test:boolean):boolean;
Var
I:integer;
Begin
Test:=false;
for i:=2 to (x mod i) do
read (x);
If(x mod i)=0 then
Test:=true;
Else
I:=i+1;
bool=true;
Premier:=test;
End;
Begin
Writeln(‘n=’);
Readln(n);
Bool:=premier(n,bool);
If bool=true then
Writeln(n,’n"est un nombre premier’)
Else writeln(n,’est un nombre premier’) ;
End. | |
|
| | |
mekki amaria
Messages : 10
Points : 14
Réputation : 0
Date d'inscription : 21/11/2008
| | Sujet: bjr Jeu 21 Mai - 13:15 | |
| l'examain etait impeu facile g09 | |
|
| | |
idjri kheira
Messages : 5
Points : 20
Réputation : 0
Date d'inscription : 28/11/2008
| | Sujet: Re: TD NO 04 Jeu 21 Mai - 13:16 | |
| Program ex07 ;
const
m=3
Type
indice=array[1...3]of integer;
vec=array[indice]of real;
Var
I:=integer;
Tab:vec;
Resultat:real;
Procedure norme(var tab1:tab);
Var
I:=indice;
Norm:real;
Begin
For i:=0 to 2 do
Norm:=norm+sqr(tab1[i]);
Resultat:=sqr(norm);
End;
Begin
For i:=0 to 2 do
Begin
Write(‘tab[‘,i,’]=?’);
Readln(tab[i]);
End;
Norme(tab1);
Writeln(‘la norme est:’,resultat :8 :3) ;
End. | |
|
| | |
mekki amaria
Messages : 10
Points : 14
Réputation : 0
Date d'inscription : 21/11/2008
| | Sujet: slm Jeu 21 Mai - 13:17 | |
| | |
|
| | |
idjri kheira
Messages : 5
Points : 20
Réputation : 0
Date d'inscription : 28/11/2008
| | Sujet: Re: TD NO 04 Jeu 21 Mai - 13:17 | |
| Program ex06 ;
const
m=3
Type
indice=array[1...3]of integer;
vec=array[indice]of real;
Var
I:indice;
tab:vec;
Resultat:real;
x:integer;
Function norme(var tab1:tab):real;
Var
I:indice;
Norm:real;
x:integer;
Begin
Norm:=0;
For i:=0 to 2 do
Norm:=norm+sqr(tab1[i]);
Norm:=sqrt(norm);
Norme:=norm;
End;
Begin
For i:=0 to 2 do
Begin
Write(‘tab[‘,i,’]=?’);readln(tab[i]);
End;
Resultat:=norme(tab2);
Writeln(‘la norme est:’,resultat) ;
End. | |
|
| | |
SALEM AB
Invité
| | Sujet: 04 Sam 30 Mai - 23:01 | |
| Program ex04;
Var bool :boolean ;
N :integer ;
Procedure premier(var x :integer) ;
Var
I :integer ;
Begin
Bool:=False;
FOR i:=2 to (x mod i) DO
Read(x);
IF(x mod i)=0 THEN
Bool:=true
Else
i:=i+1;
Bool=true;
end;
Begin
Writeln(’n=’);
Readln(n);
Premier(n);
If bool=true THEN
Writeln(‘n,n"est pas un nombre premier’)
Else writeln(n,’est un nombre premier’) ;
End. |
|
| | |
DJAKMINE ABDELFATEH
Messages : 112
Points : 117
Réputation : 0
Date d'inscription : 05/01/2010
Age : 35
Localisation : mostaganem
| |
| | |
boukhoud
Invité
| | Sujet: Re: TD NO 04 Ven 22 Jan - 0:26 | |
| slt prof je ss boukhoudmi zoubida GN3 |
|
| | |
AZZEMOU
Messages : 10
Points : 17
Réputation : 1
Date d'inscription : 31/01/2010
| | Sujet: BONJOUR Dim 7 Fév - 11:44 | |
| | |
|
| | |
Contenu sponsorisé
| | Sujet: Re: TD NO 04 | |
| |
|
| | |
| | TD NO 04 | |
|
