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 ... 9 ... 14  Suivant
AuteurMessage
slimani abdelhakim



Messages : 14
Points : 109
Réputation : 0
Date d'inscription : 08/12/2008

MessageSujet: Re: TD NO 04   Mar 19 Mai - 20:06

un professeur comme AMOUR il ne ont a pas baucoup!vive admin farao bonne journné monsieur.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
boussekine.sihem



Messages : 7
Points : 35
Réputation : 0
Date d'inscription : 13/04/2009

MessageSujet: Re: TD NO 04   Mar 19 Mai - 20:55

salam alikom mon professeur aidé moi monsieur Very Happy Laughing lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Abderrahmane fatima zohra



Messages : 7
Points : 30
Réputation : 0
Date d'inscription : 18/11/2008

MessageSujet: salam   Mer 20 Mai - 18:14

salem mon professeur.jesper ke vous allez bien. demain nchalahh ce lexamen et je
pense kil sera facille nchalah et on travaille bien.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Beladjal Kheira



Messages : 8
Points : 77
Réputation : 0
Date d'inscription : 22/11/2008
Age : 30

MessageSujet: salut   Mer 20 Mai - 18:18

assalamo 3alykom mon professeur.jesper ke lexamen sera facille nchalah lol! lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
tahari a
Invité



MessageSujet: Re: TD NO 04   Mer 20 Mai - 18:56

salam mon prof je suis dans liste n'oblier pas SVP
Revenir en haut Aller en bas
boussekine.sihem



Messages : 7
Points : 35
Réputation : 0
Date d'inscription : 13/04/2009

MessageSujet: Re: TD NO 04   Mer 20 Mai - 19:35

salam alikom a tous aide moi :'( :'( mon professeur Mad
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
slimani abdelhakim



Messages : 14
Points : 109
Réputation : 0
Date d'inscription : 08/12/2008

MessageSujet: Re: TD NO 04   Mer 20 Mai - 20:02

tous mes respest, monsieur,j'éspére que vous alléz bien
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
slimani abdelhakim



Messages : 14
Points : 109
Réputation : 0
Date d'inscription : 08/12/2008

MessageSujet: Re: TD NO 04   Mer 20 Mai - 20:12

vous allez nous monqué admin Sad
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
slimani abdelhakim



Messages : 14
Points : 109
Réputation : 0
Date d'inscription : 08/12/2008

MessageSujet: Re: TD NO 04   Mer 20 Mai - 20:13

mais ont souvien toujour de admin Cool
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
slimani abdelhakim



Messages : 14
Points : 109
Réputation : 0
Date d'inscription : 08/12/2008

MessageSujet: Re: TD NO 04   Mer 20 Mai - 20:14

j'éspere que l'examain va etre facile monsieur..
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
slimani abdelhakim



Messages : 14
Points : 109
Réputation : 0
Date d'inscription : 08/12/2008

MessageSujet: Re: TD NO 04   Mer 20 Mai - 20:17

tous mes salutation monsieur AMMOUR ,demain c'est le jour G avec vous monsieur sunny
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: remerciment   Mer 20 Mai - 21:14

merci monsieur pr tt vos efforts avec nous rabi ywefakna fel éxamen et merci a vous
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
rahmoun ahlem



Messages : 2
Points : 3
Réputation : 0
Date d'inscription : 18/11/2008
Age : 30

MessageSujet: pour les exo que vous avez demandé   Mer 20 Mai - 21:37

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
hachmie



Messages : 1
Points : 5
Réputation : 0
Date d'inscription : 20/05/2009

MessageSujet: Re: TD NO 04   Mer 20 Mai - 22:05

je suis hachmie fatima groupe 08 demain thala fina et merci
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
ridouh
Invité



MessageSujet: Re: TD NO 04   Jeu 21 Mai - 0:33

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
BILAL**saadia

avatar

Messages : 2
Points : 2
Réputation : 0
Date d'inscription : 04/12/2008
Age : 31
Localisation : mostaganem

MessageSujet: Re: TD NO 04   Jeu 21 Mai - 0:41

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 http://fidel27.skyrock.com/
BILAL**saadia

avatar

Messages : 2
Points : 2
Réputation : 0
Date d'inscription : 04/12/2008
Age : 31
Localisation : mostaganem

MessageSujet: Re: TD NO 04   Jeu 21 Mai - 0:42

Program ex04 ;
Var bool :boolean ;
N :integer ;
Procedure premier(var a :integer) ;
Var
I :integer ;
begin
bool:=false;
i:=2;
repeat
if(a mod i)=0 then
bool:=true
else
i:=i+1;
until (bool=true)or(i>(a mod i));
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 http://fidel27.skyrock.com/
ridouh
Invité



MessageSujet: Re: TD NO 04   Jeu 21 Mai - 0:46

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
ridouh
Invité



MessageSujet: Re: TD NO 04   Jeu 21 Mai - 1:16

Program ex05 ;
Var
Bool :boolean ;
N:integer;
Function premier(var x:integer;test:boolean):boolean;
Var
I:integer;
Begin lol!
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
Benguendouz Abdelkrim

avatar

Messages : 7
Points : 26
Réputation : 0
Date d'inscription : 19/11/2008
Localisation : Mostaganem

MessageSujet: Re: TD NO 04   Jeu 21 Mai - 1:37

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 http://pascal.developpez.com/
Abderrahmane fatima zohra



Messages : 7
Points : 30
Réputation : 0
Date d'inscription : 18/11/2008

MessageSujet: سلام عليكم   Jeu 21 Mai - 8:38

اللهم لا سهل الا ما جعلتة سهلا و انت تجعل الحزن انشئت سهلا يا ارحم الراحمين
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:38

j'ai fais tous mes efforts et le reste pour vous inchalah vous allez m'aider my teacher merci
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:42

salem
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:45

salam je suis on séper café on peux pas ecrire tout les exercices pardent merci
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:47

--------------------------------------------------------------------------------

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
Contenu sponsorisé




MessageSujet: Re: TD NO 04   

Revenir en haut Aller en bas
 
TD NO 04
Revenir en haut 
Page 4 sur 14Aller à la page : Précédent  1, 2, 3, 4, 5 ... 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: