Remplissage d'un tableau par des éléments distincts (Seance 5)
Ezzeddine Soussi
0:00 / 0:00
Remplissage d'un tableau par des éléments distincts (Seance 5)
9 686 просмотров · 6 л. назад
Ezzeddine Soussi
1,07 тыс. подписчиков
9 686 просмотров · 6 л. назад
Program seance5;
uses wincrt;
type
tab=array[1..20] of integer;
var
n:integer;
t:tab;
procedure saisie(var n:integer);
begin
repeat
write('Donner le nombre de cases');
readln(n);
until n in [5..20];
end;
function existe(t:tab;n:integer;x:integer):boolean;
var
trouve:boolean;
i:integer;
begin
i:=0;
repeat
i:=i+1;
if t[i]=x then trouve:=true
else trouve:=false;
until (trouve=true) or (i=n);
existe:=trouve;
end;
procedure remplir(var t:tab; n:integer);
var
i:integer;
begin
write('T[1]=');
readln(t[1]);
for i:=2 to n do
repeat
write('T[',i,']=');
readln(t[i]);
until existe(t,i-1,t[i])=false;
end;
{*** Programme principal ***}
begin
saisie(n);
remplir(t,n);
end.
