étendu dans un tableau
Page 1 sur 1
étendu dans un tableau
ÉNONCÉ
écrire un programme permettant de remplir un tableau par n entiers positifs (4<=n<=100), puis affiche l'étendue de ce tableau sachant, sachant que l'étendue est la différence le max et le min dans ce tableau.
exemple: si t= 5 10 45 7 11 alors étendue = 45-5 car 45 est la plus grande valeur dans t et 5 est la plus petite, le programme affiche donc 40 .
PASCAL
Program etendue;
Uses wincrt;
Type
TAB = Array [1..100] of integer;
Var
E, MIN, MAX, I, N : integer ;
T : TAB;
{******************************************************}
Function MINIMUM ( T : TAB ; N : integer) : integer ;
Var
J , M : integer ;
Begin
M := T[ 1 ] ;
For j := 2 to N do
Begin
If T [ j ] < M then M := T [ j ];
End;
MINIMUM := M;
End;
{*******************************************************}
Function MAXIMUM ( T : TAB; N: integer) : integer;
Var
K , MA : integer ;
Begin
MA := T [ 1 ] ;
For K := 2 to N do
Begin
If T [ K ] > MA then MA := T [ K ];
End;
MAXIMUM := MA;
End;
{*******************************************************}
Begin
Repeat
Writeln (' Entrer le nombre des éléments'); readln ( N );
Until (N IN [4..100]);
For I := 1 to N do
Begin
Writeln ('Entrer l''entier ', I); readln ( T [ I ]);
End;
MIN := MINIMUM (T, N);
MAX := MAXIMUM (T, N);
E := MAX - MIN ;
Writeln ('L''étendu est ', E);
End.
écrire un programme permettant de remplir un tableau par n entiers positifs (4<=n<=100), puis affiche l'étendue de ce tableau sachant, sachant que l'étendue est la différence le max et le min dans ce tableau.
exemple: si t= 5 10 45 7 11 alors étendue = 45-5 car 45 est la plus grande valeur dans t et 5 est la plus petite, le programme affiche donc 40 .
PASCAL
Program etendue;
Uses wincrt;
Type
TAB = Array [1..100] of integer;
Var
E, MIN, MAX, I, N : integer ;
T : TAB;
{******************************************************}
Function MINIMUM ( T : TAB ; N : integer) : integer ;
Var
J , M : integer ;
Begin
M := T[ 1 ] ;
For j := 2 to N do
Begin
If T [ j ] < M then M := T [ j ];
End;
MINIMUM := M;
End;
{*******************************************************}
Function MAXIMUM ( T : TAB; N: integer) : integer;
Var
K , MA : integer ;
Begin
MA := T [ 1 ] ;
For K := 2 to N do
Begin
If T [ K ] > MA then MA := T [ K ];
End;
MAXIMUM := MA;
End;
{*******************************************************}
Begin
Repeat
Writeln (' Entrer le nombre des éléments'); readln ( N );
Until (N IN [4..100]);
For I := 1 to N do
Begin
Writeln ('Entrer l''entier ', I); readln ( T [ I ]);
End;
MIN := MINIMUM (T, N);
MAX := MAXIMUM (T, N);
E := MAX - MIN ;
Writeln ('L''étendu est ', E);
End.
Sujets similaires
» parité d'un tableau
» nb d'apparence d'un caractère dans un tableau
» traitement sur un tableau
» tri moitié tableau
» type tableau
» nb d'apparence d'un caractère dans un tableau
» traitement sur un tableau
» tri moitié tableau
» type tableau
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum