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
Autopassion.net le site dédié à l'automobile créé par ses utilisateurs
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: