TD NO 04

je vous remercie pour td 4 monsieur

salut mon prof

salut monsieur

salut monsieur j'éspere que vous allez b1 on as pas b1 travailler en 1 emd svp awenna chewiya en 2EMD svp
bonne fin de journnée

salut admin! pour l'exercice 1 j'ai pas trés compris comment exécuté le programe j'ai asisté le mercredi dernié a la coréction de 2emd ex1 mes j'ai pas bien sésie l'exécution!vous pouvait m'aidé,merci,et monsieur j'ai envoié la solution des exercice de TD4,aidé nous monsieur!merci ,bonne journé!!!

salam 3alikom mon profeseur cavaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

tous mes respert professeur!ont est tous fiére de ADMIN icomprie moi que je reconé de l'aide que vous ma vais aporté dans le 1EMD,merci ADMIN merci 1000 fois!vive ADMIN bonne journné. merci.

jespére que l'examain sera facile et vous m'aider inchallah rabi y3awnék merci mon prof

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

j'ai retire les fiches td et les cours

j'espère que l'examen est facile

inchallah l'examin sera facil et les notes seront bonnes

tous mes respert professeur!je tiens a vous dir que l'ex 2 que vous avait fait le mercredi dernier je ne l'ai pas tré comprie ,s v p monsieur vous pouvait nous faire l'ex dans le site avec la solution!merci!

monsieur,magré ont est au cours des examain ,et ont est tous les jour en contacte avec vous c'est devenut comme une abitude chez moi!merci et vive admin bonne journné!votre éléve slimani abdelhakim.

salam 3alikom mon professeur et tout le monde :$

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.

salam

SALAM MON PROFESSEUR.NCHALAH T3AWANA FI EXAMEN

SAHA FTOURAK MON PROFESSEUR. BOUDJAMAA YAMINA

salut

salut mon prof

salaaaaaaaaaaaaaaam alikom a tous

salut!admin!j'éspére que vous allé bien!examain de informatique aprroche c'est jeudi,ont est un peuti peut strésé!mais en fait avec!bonne journé monsieur et merci bien.

monsieur,votre aide est bien utile ,aidé nous,merci