X

Ask Question

Name:
Title:
Your Question:
X

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  oo
Language: PASCAL
Code:
program HelloWorld;


type 
mat = array [1..10,1..10]of integer;
var
m:mat;
n:integer;

procedure saisie ( var n : integer);
 begin
 repeat
     writeln('donner n à');
     readln(n);
 until( n>0);
 end;



procedure  remplir (var m : mat;n : integer);
 var i,j:  integer;
 begin
 for i :=  1 to n do
  for j := 1 to n do
        m[i,j]:=10;
        
end;
     
 procedure affichage ( m : mat ; n :integer );
 var i , j : integer ;
 begin
  for i := 1 to n do
  begin
   for j := 1 to n do
   begin
   write ('|', m[i,j],'|');
   end;
    writeln();
    end;
    
    end;
   
   
   
  procedure trie ( var m : mat ; n : integer);
  var i,aux: integer;
   test : boolean;
   
   begin
   repeat
   test := false;
   for i:= 1 to n-1 do
   begin
   if  m[i,i] > m[i+1,i+1] then
   begin
   aux := m[i,i];
   m[i,i]:= m[i+1,i+1];
   m[i+1,i+1] := aux;
   test := true;
   end;
   end;
   until (test=false);
   
 

    end;





begin
saisie(n);
remplir(m,n);
trie (m,n);
affichage (m,n);  

end.          
          
Comments: