TD NO 04

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.

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.

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.

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

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

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

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];

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];

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

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

on atten la réponce cher prof pour l exercice bonne nuit

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

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.

merci pour la revision
bn courage pour tout le monde

bonjour,bon courage

salam 3likoummmmmmmm kach révision???merci mon proffffffffffffffffffffffff

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

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

SALM YA PROFF MERCI BCP PR CE SITE QUE DIEU VOUS B2NISSE. BOUKOULLA AZZIZA G10

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

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

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

merci pour la fiche TD 4

salut et bon chance à tous

salam 3likom