sc2mosta

LE LANGAGE DE PROGRAMMATION PASCAL .
 
AccueilPortailCalendrierGalerieFAQRechercherMembresGroupesS'enregistrerConnexion
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Derniers sujets
» NOTE EMD1 + EMD2+ DS + RAT. 2010-2011
Dim 18 Sep - 13:58 par maachou mohamed

» TD NO 02
Mer 14 Sep - 18:12 par BENYAMINA MOHAMED RABEH

» cours numéro 03
Mer 14 Sep - 15:19 par belhocine faycal.g1

» cours numéro 02
Mar 13 Sep - 18:19 par BENYAMINA MOHAMED RABEH

» cours numéro 01
Mar 13 Sep - 18:19 par BENYAMINA MOHAMED RABEH

» cours numéro 06
Mar 13 Sep - 18:19 par BENYAMINA MOHAMED RABEH

» cours numéro 04
Mar 13 Sep - 18:18 par BENYAMINA MOHAMED RABEH

» pascal en arabe
Mar 13 Sep - 18:18 par BENYAMINA MOHAMED RABEH

» cours numéro 08
Mar 13 Sep - 18:17 par BENYAMINA MOHAMED RABEH

Marque-page social
Conservez et partagez l’adresse de sc2mosta sur votre site de social bookmarking
Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Forum
Partenaires
Forum gratuit



Tchat Blablaland

Partagez | 
 

 TD NO 04

Aller en bas 
Aller à la page : Précédent  1, 2, 3, 4, 5, 6 ... 9 ... 14  Suivant
AuteurMessage
Righi kheira



Messages : 7
Points : 10
Réputation : 0
Date d'inscription : 22/11/2008

MessageSujet: 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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Righi kheira



Messages : 7
Points : 10
Réputation : 0
Date d'inscription : 22/11/2008

MessageSujet: 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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
mekki amaria



Messages : 10
Points : 14
Réputation : 0
Date d'inscription : 21/11/2008

MessageSujet: slm   Jeu 21 Mai - 12:54

lah y3awnek
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
kara zahia



Messages : 7
Points : 111
Réputation : 0
Date d'inscription : 19/04/2009

MessageSujet: 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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Righi kheira



Messages : 7
Points : 10
Réputation : 0
Date d'inscription : 22/11/2008

MessageSujet: 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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
kara zahia



Messages : 7
Points : 111
Réputation : 0
Date d'inscription : 19/04/2009

MessageSujet: 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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Sakhi Boutaina



Messages : 5
Points : 10
Réputation : 0
Date d'inscription : 22/11/2008

MessageSujet: Re: TD NO 04   Jeu 21 Mai - 12:59

salam je suis sakhi boutaina groupe:07
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Sakhi Boutaina



Messages : 5
Points : 10
Réputation : 0
Date d'inscription : 22/11/2008

MessageSujet: 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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
kara zahia



Messages : 7
Points : 111
Réputation : 0
Date d'inscription : 19/04/2009

MessageSujet: 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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
mekki amaria



Messages : 10
Points : 14
Réputation : 0
Date d'inscription : 21/11/2008

MessageSujet: 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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Sakhi Boutaina



Messages : 5
Points : 10
Réputation : 0
Date d'inscription : 22/11/2008

MessageSujet: 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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
mekki amaria



Messages : 10
Points : 14
Réputation : 0
Date d'inscription : 21/11/2008

MessageSujet: 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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Sakhi Boutaina



Messages : 5
Points : 10
Réputation : 0
Date d'inscription : 22/11/2008

MessageSujet: 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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Sakhi Boutaina



Messages : 5
Points : 10
Réputation : 0
Date d'inscription : 22/11/2008

MessageSujet: 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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
mekki amaria



Messages : 10
Points : 14
Réputation : 0
Date d'inscription : 21/11/2008

MessageSujet: 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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
idjri kheira



Messages : 5
Points : 20
Réputation : 0
Date d'inscription : 28/11/2008

MessageSujet: 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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
idjri kheira



Messages : 5
Points : 20
Réputation : 0
Date d'inscription : 28/11/2008

MessageSujet: 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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
mekki amaria



Messages : 10
Points : 14
Réputation : 0
Date d'inscription : 21/11/2008

MessageSujet: bjr   Jeu 21 Mai - 13:15

l'examain etait impeu facile g09
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
idjri kheira



Messages : 5
Points : 20
Réputation : 0
Date d'inscription : 28/11/2008

MessageSujet: 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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
mekki amaria



Messages : 10
Points : 14
Réputation : 0
Date d'inscription : 21/11/2008

MessageSujet: slm   Jeu 21 Mai - 13:17

rabi y3awnek
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
idjri kheira



Messages : 5
Points : 20
Réputation : 0
Date d'inscription : 28/11/2008

MessageSujet: 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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
SALEM AB
Invité



MessageSujet: 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.
Revenir en haut Aller en bas
DJAKMINE ABDELFATEH



Messages : 112
Points : 117
Réputation : 0
Date d'inscription : 05/01/2010
Age : 29
Localisation : mostaganem

MessageSujet: Re: TD NO 04   Dim 17 Jan - 17:16

sahli as a écrit:
PROGRAM TD4EX3;
CONST
M=5;
type
INDICE=1..M;
tablo=ARRAY[INDICE]ofINTEGER;
VAR
J,J2,II,I:INDICE;
TT:tablo;
Function rangmax(T:Tablo;n:INTEGER):INTEGER;
VAR
MAX:INTEGER;
BEGIN
MAX:=T[1];
rangmax:=1;
FORI2:=2 to n do
if T[I2]>MAX THEN
BEGIN
MAX:=T[I2];
Exclamation
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
boukhoud
Invité



MessageSujet: Re: TD NO 04   Ven 22 Jan - 0:26

slt prof je ss boukhoudmi zoubida GN3
Revenir en haut Aller en bas
AZZEMOU

avatar

Messages : 10
Points : 17
Réputation : 1
Date d'inscription : 31/01/2010

MessageSujet: BONJOUR   Dim 7 Fév - 11:44

SALAM ALIKOM MON PROF
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: TD NO 04   

Revenir en haut Aller en bas
 
TD NO 04
Revenir en haut 
Page 5 sur 14Aller à la page : Précédent  1, 2, 3, 4, 5, 6 ... 9 ... 14  Suivant

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
sc2mosta :: TD et SUJET,CORRECTION ET NOTES EMD-
Sauter vers: