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 ... 8 ... 14  Suivant
AuteurMessage
réda dahmane



Messages : 1
Points : 7
Réputation : 0
Date d'inscription : 12/11/2008

MessageSujet: solution de lexercice   Jeu 7 Mai - 22:13

dsl monseieur je suis en retard voila la solution
PROGRAM Max ;
CONST N=5;
Type vect=array 1..N of integer;
VAR x:vect;
Max:integer;
Begin
FOR i:=1 to 5 Do
readln (x(i));
Max:=x(i);
For i:=2 to 5 Do
readln (x(i));
IF Max<x(i) then Max:=x(i)
end.
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: la solution de l'éxércice dérnié   Jeu 7 Mai - 22:37

PROGRAM Max ;
CONST N=5;
Type vect=array 1..N of integer;
VAR x:vect;
Max:integer;
Begin
FOR i:=1 to 5 Do
readln (x(i));
Max:=x(i);
For i:=2 to 5 Do
readln (x(i));
IF Max<x(i) then Max:=x(i)
end.
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: les solution des éxércice   Jeu 7 Mai - 22:45

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.
Program ex05 ;
Var
Bool :boolean ;
N:integer;
Function premier(var a:integer;test:boolean):boolean;
Var
I:integer;
Begin
Test:=false;
I:=2;
Repeat
If(a mod i)=0 then
Test:=true
Else
I:=i+1;
Until (test=true)or(i>(a mod i));
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.
Program ex06 ;
Type
Tab=array[1..3]of real;
Var
I:integer;
Tab1:tab;
Resultat:real;
C:integer;
Function norme(var tab2:tab):real;
Var
I:integer;
Norm:real;
C:integer;
Begin
Norm:=0;
For i:=0 to 2 do
Norm:=norm+sqr(tab2[i]);
Norm:=sqrt(norm);
Norme:=norm;
End;
Begin
For i:=0 to 2 do
Begin
Write(‘tab[‘,i,’]=?’);readln(tab[i]);
End;
Resultat:=norme(tab1);
Writeln(‘la norme est:’,resultat) ;

End.
Program ex07 ;
Type
Tab=array[1..3]of real;
Var
I:=integer;
Tab1:tab;
Resultat:real;
Procedure norme(var tab2:tab);
Var
I:=integer;
Norm:real;
Begin
For i:=0 to 2 do
Norm:=norm+sqr(tab2[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 :7 :3) ;
End.
Program ex08 ;
Type
Tab=array[1..3]of real;
Var
I:=integer;
Tab_l,tab_c:tab;
Resultat:real;
Function prod_vect(var tab1,tab2:tab):real;
Var
I:=integer;
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_l[‘,i,’]=?);
Readln(tab_l[i];
End;
Writeln(‘veuillez saisir les elements de vecteur colonne’) ;
For i :=0 to 2 do
Begin
Write(‘tab_c[‘,i,’]=?’);
Readln(tab_c[i]);
End;
Resultat:=prod_vect(tab_l,tab_c);
Writeln(‘la norme est:’resultat :7 :3) ;
End.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
AMINE BE
Invité



MessageSujet: JE SUIT BENABDALLAH HANANE   Jeu 7 Mai - 23:40

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
End.
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’) ;
bool:=true
Revenir en haut Aller en bas
mekki daouadji ahmed87



Messages : 8
Points : 247
Réputation : 0
Date d'inscription : 30/04/2009
Age : 31

MessageSujet: Re: TD NO 04   Ven 8 Mai - 14:50

program td04ex1;
type
indice=1..10;
tablo=array[indice]of real;
var
TT:tablo;
I:indice;
M:integer;
procedure lire(var T:tablo; var n :integer);
BEGIN
Read(N)
for I:=1 to N do
Read(T[I] );
End;
procedure afficher (T:tablo;n:integer);
BEGIN
for I:=1 to N do
writeln(T[I]:8:2);
End;
BEGIN
lire(TT,M);
afficher(TT,M);
END.

T[1] T[2] T[3] I N T[1] T[2] T[3] N
TT[1] TT[2] TT[3] 1 M 2 3 1 3
2 3 1 2 3
3
4
1
2
3
4

ecran
_ _ _ _ 2.00
_ _ _ _ 3.00
_ _ _ _ 1.00
jai fais la solution inchalah tkoune juste je que tu ma voir cette solution mon profffffff
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
benadda
Invité



MessageSujet: Re: TD NO 04   Ven 8 Mai - 21:18

g03program td04ex1;
type
indice=1..10;
tablo=array[indice]of real;
var
TT:tablo;
I:indice;
M:integer;
procedure lire(var T:tablo; var n :integer);
BEGIN
Read(N)
for I:=1 to N do
Read(T[I] );
End;
procedure afficher (T:tablo;n:integer);
BEGIN
for I:=1 to N do
writeln(T[I]:8:2);
End;
BEGIN
lire(TT,M);
afficher(TT,M);
END.

T[1] T[2] T[3] I N T[1] T[2] T[3] N
TT[1] TT[2] TT[3] 1 M 2 3 1 3
2 3 1 2 3
3
4
1
2
3
4

ecran
_ _ _ _ 2.00
_ _ _ _ 3.00
_ _ _ _ 1.00
jai fais la solution inchalah tkoune juste je que tu ma voir cette solution mon profffffff
Revenir en haut Aller en bas
benadda
Invité



MessageSujet: Re: TD NO 04   Ven 8 Mai - 21:20

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];
Revenir en haut Aller en bas
benadda
Invité



MessageSujet: Re: TD NO 04   Ven 8 Mai - 21:22

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];
Revenir en haut Aller en bas
benadda
Invité



MessageSujet: Re: TD NO 04   Ven 8 Mai - 21:25

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
Revenir en haut Aller en bas
ghali ab
Invité



MessageSujet: Re: TD NO 04   Mer 13 Mai - 0:18

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



MessageSujet: Re: TD NO 04   Mer 13 Mai - 0:22

program td04ex1;
type
indice=1..10;
tablo=array[indice]of real;
var
TT:tablo;
I:indice;
M:integer;
procedure lire(var T:tablo; var n :integer);
BEGIN
Read(N)
for I:=1 to N do
Read(T[I] );
End;
procedure afficher (T:tablo;n:integer);
BEGIN
for I:=1 to N do
writeln(T[I]:8:2);
End;
BEGIN
lire(TT,M);
afficher(TT,M);
END.
Revenir en haut Aller en bas
talhi sara



Messages : 2
Points : 8
Réputation : 0
Date d'inscription : 21/11/2008

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

on atten la réponce cher prof pour l exercice bonne nuit
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
youcef benzineb



Messages : 2
Points : 12
Réputation : 0
Date d'inscription : 20/11/2008
Localisation : mostaganem

MessageSujet: Re: TD NO 04   Mer 13 Mai - 22:21

POUR Les EXERCICRS de révision ke g voulu vous envoié ils sont donné par le prof on atten la réponce cher prof et liella sa3IDA
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
larbi da
Invité



MessageSujet: Re: TD NO 04   Mer 13 Mai - 22:29

merci pour la revision et pour la fiche TD 4 et j'éspere que l'EMD 2 devient facile pour nous,votre etudiante larbi daouadj houriya G09.
Revenir en haut Aller en bas
karima m
Invité



MessageSujet: Re: TD NO 04   Mer 13 Mai - 23:11

merci pour la revision
bn courage pour tout le monde
Revenir en haut Aller en bas
larbi da
Invité



MessageSujet: Re: TD NO 04   Jeu 14 Mai - 13:18

bonjour,bon courage lol!
Revenir en haut Aller en bas
mekki daouadji ahmed87



Messages : 8
Points : 247
Réputation : 0
Date d'inscription : 30/04/2009
Age : 31

MessageSujet: Re: TD NO 04   Jeu 14 Mai - 17:06

salam 3likoummmmmmmm kach révision???merci mon proffffffffffffffffffffffff king
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 14 Mai - 19:59

salem j'ai essayé de vous envoyé plusieur fois mais j'ai pas réussi je veux que vous m'aidez en 2emd parce que vous n'avez pas m'ajouté aucune note merci et jéspére que j'aurai en 2emd
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
nounou d
Invité



MessageSujet: slt   Jeu 14 Mai - 23:52

salem. j'ai 1 problém dans la la déclaration de type tableau.
ex: const
n=5;
type
indice=1........n;
vecteur=array(indice)of integer;
var
x,y:vecteur;
s,p real;
i:indice;
begin
for i:=1 to n do
read(x(i))
for i:=1 to n do
read(y(i))
s:=0.................................................................................................................................................................................................................................................................................................................end.
alors j'ai pas compris comment éxecuter ce prog.est ce que vous pouver m'aider mr?,? sinn je vs remercie et je souhaite que l'éxa sera tré facile.AISSAOUI NAWEL G1
Revenir en haut Aller en bas
AZZIZA
Invité



MessageSujet: SLT   Jeu 14 Mai - 23:54

SALM YA PROFF MERCI BCP PR CE SITE QUE DIEU VOUS B2NISSE. BOUKOULLA AZZIZA G10
Revenir en haut Aller en bas
SALEM AB
Invité



MessageSujet: 03   Ven 15 Mai - 12:31

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

change(TT,II,M-J2);
FOR I:=1 TO M DO
WRITE(TT[I]);
END.
L'éxecution:
M J2 II T[1] T[2] T[3] T[4] T[5] I
TT[1] TT[2] TT[3] TT[4] TT[5 II T[1] T[2] T[3] T[4] T[5] N rangmax

5 0 2 2 1 2 15 1 4 3 5 1
1 4 15 2 2 3 1 4 2
2 1 3
3 3 4 4 2 3 1 1
4 1 3 5 5 2 1 2
5 1 2 3 6 4
2
15 3 2
4 1
5
6
2
4
2
l'écran
215143
123415

max J X I2
2 5 15 2
15 4 4 3
2 3 4
3 5
4
Revenir en haut Aller en bas
SALEM AB
Invité



MessageSujet: 03   Ven 15 Mai - 12:33

ex: const
n=5;
type
indice=1........n;
vecteur=array(indice)of integer;
var
x,y:vecteur;
s,p real;
i:indice;
begin
for i:=1 to n do
read(x(i))
for i:=1 to n do
read(y(i))
s:=0.................................................................................................................................................................................................................................................................................................................end.
alors j'ai pas compris comment éxecuter ce prog.est ce que vous pouver m'aider mr?,? sinn je vs remercie et je souhaite que l'éxa sera tré facile.AISSAOUI NAWEL G1
Revenir en haut Aller en bas
mabrouka
Invité



MessageSujet: Re: TD NO 04   Ven 15 Mai - 18:26

merci pour la fiche TD 4
Revenir en haut Aller en bas
ghali ab
Invité



MessageSujet: Re: TD NO 04   Ven 15 Mai - 18:29

salut et bon chance à tous
Revenir en haut Aller en bas
grine ab
Invité



MessageSujet: Re: TD NO 04   Ven 15 Mai - 18:32

salam 3likom
Revenir en haut Aller en bas
Contenu sponsorisé




MessageSujet: Re: TD NO 04   

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