Program S7;
Type
tab = array[1..20] Of string[10];
Var
t1,t2 : tab;
n : integer;
//*************************************
Function verif (ch:String) : boolean ;
Var
i : integer ;
Begin
verif := true ;
For i :=1 To length (ch) Do
If Not (ch[i] In ['A'..'Z']) Then
verif := false;
End;
//*************************************
Procedure saisie(Var t:tab; Var n:integer);
Var
i : integer;
Begin
Repeat
writeln ('Donner un entier ;');
readln (n) ;
Until n In [4..20] ;
For i:=1 To n Do
Repeat
write('Donner l"information n° ',i,': ');
readln(T[i]);
Until (verif(T[i])) And
(length(T[i])<=10);
End ;
//*************************************
Function poids(ch:String) : integer;
Var
p,i : integer;
Begin
p := 0;
For i:=1 To length(ch) Do
p := p+ ord(ch[i]);
poids := p;
End;
//*************************************
Procedure min(t:tab;n:integer;Var
m,nb:integer);
Var
i : integer;
Begin
m := poids(T[1]);
nb := 1;
For i:=2 To n Do
If m>poids(T[i]) Then
Begin
m := poids(T[i]);
nb := i;
End;
End;
//*************************************
Procedure tri(t1:tab;Var t2:tab;n:integer);
Var
i,j,m : integer;
Begin
For j:=1 To n Do
Begin
min(t1,n,m,i);
t2[j] := t1[i];
t1[i] := 'ZZZZZZZZZZ';
End;
End;
//*************************************
Procedure affichage(t:tab;n:integer);
Var
i : integer;
Begin
For i:=1 To n Do
writeln(t[i],' son poids = ', poids(T[i]));
End;
//*************************************
Begin
saisie(t1,n) ;
tri(t1,t2,n);
affichage(t2,n);
End.
Inscription à :
Publier les commentaires (Atom)
