Program S5;
Type
tab = array[1..15] Of string[5];
Var
t : 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 ['0'..'9']) 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 [5..15] ;
For i:=1 To n Do
Repeat
write('Donner l"information n° ',i,': ');
readln(T[i]);
Until (verif(T[i])) And (length(T[i])=5);
End ;
//*************************************
Function maximum(t:tab;n:integer) : string;
Var
m : string;
i : integer;
Begin
m := copy(T[1],1,2);
For i:=2 To n Do
If m<copy(T[i],1,2) Then
m := copy(T[i],1,2);
maximum := m;
End;
//*************************************
Procedure affichage(t:tab; n:integer);
Var
i : integer;
Begin
writeln('La plus grande degré d"urgence est ',maximum(t,n));
writeln('Les appartements concernés sont :');
For i:=1 To n Do
If maximum(T,n)= copy(T[i],1,2) Then
writeln(i,' avec une quantité de fumée = ', copy(T[i],3,3));
End;
//*************************************
Begin
saisie(t,n);
affichage(t,n);
End.
Inscription à :
Publier les commentaires (Atom)
