ONLINE COMPILERS
LIBRARY
MANUAL PAGES & DOCS
CONTACT
Latest Users' Questions
User Submitted Source Code!
Description:
oo
Language: PASCAL
Code:
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.
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: