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 : 1, 2, 3 ... 7 ... 14  Suivant
AuteurMessage
Admin
Admin
avatar

Messages : 23
Points : 39
Réputation : 16
Date d'inscription : 15/03/2008
Age : 57
Localisation : MOSTAGANEM

MessageSujet: TD NO 04   Mar 1 Avr - 13:25

Fiche TD N°4


1.EXERCICE 01 : Affichage et entrée
1 – Ecrire une procédure lire(var T:Tablo; var n:Integer) qui permet à l'utilisateur d'entrer le nombre n d'éléments ainsi que les éléments de T.
2 - Ecrire une procédure afficher(T:Tablo; n:Integer) qui affiche à l'écran les "n" premiers éléments du tableau T. (soigner la présentation à l'écran en affichant les entiers sur 8 caractères) .
3 - Ecrire un programme utilisant les procédures Lire et afficher.


EXERCICE 02: Recherche d'un élément dans un tableau
1.Ecrire la fonction
nb(x:Integer; T:Tablo; n:Integer):Integer qui indique combien de fois x apparait parmi les "n" premiers éléments du tableau T .
2.Ecrire la fonction
rang(x:Integer; T:Tablo; n:Integer):Integer qui cherche la première occurence de x parmi les "n" premiers éléments du tableau T et renvoie son indice en cas de succès ou 0 en cas d'échec.
3.Ecrire un programme utilisant les fonctions nb et rang.

EXERCICE 03 : Recherche du maximum. Premier tri
1.Ecrire la fonction rangmax(T:Tablo; n:Integer):Integer qui renvoie l'indice du plus grand des "n" premiers éléments du tableau T.
2.Ecrire la procédure change(var T:Tablo; i,j:Integer) qui échange les éléments d'indices i et j du tableau T.
3.Pour trier les "n" premiers éléments du tableau T on recherche son plus grand élément T[k], on échange T[k] et T[n] et il ne reste plus qu'à trier les n-1 éléments restants. Ecrire la procédure tri(var T:tablo; n:Integer) faisant ce tri.

EXERCICE 04 :
Ecrire une procédure permettant de déterminer si un nombre est premier. Elle comportera deux arguments : le nombre à examiner, un indicateur booléen précisant si ce nombre est premier ou non.


EXERCICE 05 :
Ecrire la procédure précédente sous forme de fonction.


EXERCICE 06 :
Ecrire une fonction calculant la norme d’un vecteur à 3 composantes réelles.


EXERCICE 07 :
Ecrire la fonction précédente sous formes d’une procédure.


EXERCICE 08 :
Ecrire une fonction calculant le produit vectoriel de deux vecteurs à 3 composantes réelles.


SOLUTION TD NO 04



1.EXERCICE 01 : Affichage et entrée Fait par : safer fatima zohra groupe 08

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


Dernière édition par Admin le Mer 28 Oct - 16:38, édité 7 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://sc2mosta.forums-actifs.com
sahli as
Invité



MessageSujet: solution exercice3td4   Mer 7 Mai - 18:51

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
sahli as
Invité



MessageSujet: solution exercice3td4 lasiut exercice3   Mer 7 Mai - 19:08

rangmax:=[i2]
end;
END;
PROCédure change(var T:tablo;i,j:integer);
VAR
X:INTEGER;
BEGIN
X:=T[i];
T[i]:=T[j];
T[j]:=x;
END;
BEGIN (*debut PP*)
FOR i:=1toMDO
BEGIN
READ(TT[I]);
Write(TT[I])
END;
FOR J2:=0 TO M-1 DO
II:=rangmax(TT,M-J2);
Revenir en haut Aller en bas
SAHLI AS
Invité



MessageSujet: Re: TD NO 04   Mer 7 Mai - 22:38

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
safi sam
Invité



MessageSujet: solution ex 2 td 4   Jeu 8 Mai - 19:18

solition Ex2 TD4
PROGRAM EX2tDu
comst
M= 5;
type
INOICE=1..M;
TABLO=ARRAY[INDICE]ofINTEGER;
VAR
I:INDICE;
TT:TABLO;
xx,nbb,rangg:IANTEGER;
FUNCTION nb(x:integer;T:tabls;n:integer):integer;
VAR
COMPT:integer;
BEGEN
COMPT:=0
FOR I:=1 to N do
if x=T[I] then
COPMT:=COMPT;
END;
FUNCTION rang(x:integer:T:tablo;n:integer):integer;
BEGEN
FOR I:=1 to N do
BEGEN
if x=T[I] then
rang:=I;
EXIT
END;
END;
Revenir en haut Aller en bas
mascri e
Invité



MessageSujet: un ptite correction exo 2 td 4 g10   Mar 27 Mai - 0:24

PROGRAM EX2tDu
comst
M= 5;
type
INOICE=1..M;
TABLO=ARRAY[INDICE]ofINTEGER;
VAR
I:INDICE;
TT:TABLO;
xx,nbb,rangg:IANTEGER;
FUNCTION nb(x:integer;T:tabls;n:integer):integer;
VAR
COMPT:integer;
BEGEN
COMPT:=0
FOR I:=1 to N do
if x=T[I] then
COPMT:=COMPT+1; lol!
END;
FUNCTION rang(x:integer:T:tablo;n:integer):integer;
BEGEN
FOR I:=1 to N do
BEGEN
if x=T[I] then
rang:=I;
EXIT
END;
END;
Revenir en haut Aller en bas
mascri e
Invité



MessageSujet: les exo 6,7,8 mon g 10   Ven 30 Mai - 2:39

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
mascri e
Invité



MessageSujet: les exo 4;5 mon g 10   Ven 30 Mai - 3:23

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
Beladjal Kheira



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

MessageSujet: EXO N:04   Sam 2 Mai - 22:30

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
Beladjal Kheira



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

MessageSujet: EXO N:05   Sam 2 Mai - 22:43

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
Beladjal Kheira



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

MessageSujet: EXO N:06   Sam 2 Mai - 22:47

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
Beladjal Kheira



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

MessageSujet: EXO N:07   Sam 2 Mai - 22:52

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
Beladjal Kheira



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

MessageSujet: EXO N:08   Sam 2 Mai - 22:56

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
Abderrahmane fatima zohra



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

MessageSujet: saluuuuuuuuu   Dim 3 Mai - 18:56

voila la solProgram 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
Abderrahmane fatima zohra



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

MessageSujet: ccc   Dim 3 Mai - 18:57

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
Abderrahmane fatima zohra



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

MessageSujet: Re: TD NO 04   Dim 3 Mai - 18:58

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
Abderrahmane fatima zohra



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

MessageSujet: Re: TD NO 04   Dim 3 Mai - 18:58

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
Abderrahmane fatima zohra



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

MessageSujet: Re: TD NO 04   Dim 3 Mai - 19:00

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
bouabdellah kheira



Messages : 5
Points : 11
Réputation : 0
Date d'inscription : 03/01/2009

MessageSujet: Re: TD NO 04   Dim 3 Mai - 22:59

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
bouabdellah kheira



Messages : 5
Points : 11
Réputation : 0
Date d'inscription : 03/01/2009

MessageSujet: Re: TD NO 04   Dim 3 Mai - 23:01

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



Messages : 5
Points : 11
Réputation : 0
Date d'inscription : 03/01/2009

MessageSujet: Re: TD NO 04   Dim 3 Mai - 23:03

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
bouabdellah kheira



Messages : 5
Points : 11
Réputation : 0
Date d'inscription : 03/01/2009

MessageSujet: Re: TD NO 04   Dim 3 Mai - 23:05

. 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
bouabdellah kheira



Messages : 5
Points : 11
Réputation : 0
Date d'inscription : 03/01/2009

MessageSujet: Re: TD NO 04   Dim 3 Mai - 23:06

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
SALEM AB
Invité



MessageSujet: 04   Mer 6 Mai - 18:00

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

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
SALEM AB
Invité



MessageSujet: 04   Jeu 7 Mai - 15:27

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




MessageSujet: Re: TD NO 04   

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