St informatique Medea 1er

  • Home
  • St informatique Medea 1er

St informatique Medea 1er Cette page concerne les étudiants de la première année science technologies, module informatique

01/09/2023
20/08/2023

يختبئ دخل أجهزة الحاسوب الخاصة بنا، في هواتفنا، في شبكة الإنترنت، اليوم ينظم ويترجم دفق المعلومات عبر الكوكب. الذكاء الصناعي في كل مكان .. إنه يزلزل العالم! ...

06/08/2023
03/08/2023

Evolution

16/05/2022

Bon courage

02/05/2021

Exercice 05 : MATRICE (TABLEAU à 2 Dimensions)
Ecrire un programme pascal qui calcul la somme de matrice M1(n,m) et M2(n,m) dans la matrice M3(n,m).

SOLUTION :

Program ex05 ;
Type
Mat =array [1..10,1..10]of integer ;
Var
M1,M2,M3 : Mat;
N,M,j,i :integer ;
Begin
Read(N,M);
for i := 1 to N do
for j:=1 to M do
begin
write(‘donner l’’élement : ’,i,’eme ligne ‘,j,’eme colonne de M1’) ;
readln(M1[i,j]) ;
end ;
for i := 1 to N do
for j:=1 to M do
begin
write(‘donner l’’élement : ’,i,’eme ligne ‘,j,’eme colonne de M2’) ;
readln(M2[i,j]) ;
end ;
writeln(‘calcul de la somme’);
for i:= 1 to N do
for j:= 1 to M do
M3[i,j]:=M1[i,j] + M2[i,j];
Writeln (‘Affichage de la matrice M3’);
for i := 1 to N do
begin
for j:=1 to M do
write(M3[i,j]:5);
writeln;
end;
End.

28/04/2021

Exercice 10 : VECTEUR
Ecrire un programme pascal qui permet de trier un vecteur de 10 entiers naturels dans l’ordre croissant.

SOLUTION :

Program ex10 ;
Type
Vect =array [1..10]of integer ;
Var
V : Vect;
Min,i,j,k,x :integer ;
Begin
for i := 1 to 10 do
begin
write(‘donner l’’élement n : ’,i) ;
readln(V[i]) ;
end ;
for i := 1 to 9 do
begin
Min:=V[i];k:=i;
For j:= i+1 to 10 do
if Min>V[j] then
begin
Min :=V[j] ;
k :=j ;
End ;
x :=V[i] ;V[i] :=V[k] ;V[k] :=x ;
end ;
writeln ;writeln ;
for i :=1 to 10 do
write(V[i] :10) ;
End.

28/04/2021

Exercice 01 : MATRICE (TABLEAU à 2 Dimensions)
Ecrire un programme pascal qui permet de calculer la somme des éléments d’une matrice M de N lignes et M colonnes.

SOLUTION :

Program ex01 ;
Type
Mat =array [1..10,1..10]of integer ;
Var
M1 : Mat;
N,M,j,i,s :integer ;
Begin
Read(N,M);
for i := 1 to N do
for j:=1 to M do
begin
write(‘donner l’’élement : ’,i,’eme ligne ‘,j,’eme colonne’) ;
readln(M1[i,j]) ;
end ;
s:=0;
for i := 1 to N do
for j:=1 to M do
s:=s+M1[i,j];
writeln(‘ la somme des elements de la matrice est : ‘,s) ;
End.

Address

Pôle Universitaire

26100

Website

Alerts

Be the first to know and let us send you an email when St informatique Medea 1er posts news and promotions. Your email address will not be used for any other purpose, and you can unsubscribe at any time.

Contact The School

Send a message to St informatique Medea 1er:

Shortcuts

  • Want your school to be the top-listed School/college?

Share