correction EX3 série de révision
Page 1 sur 1
correction EX3 série de révision
program ex3;
uses wincrt;
type
tab = array[1..30]of string[8];
var
t:tab;
i,n:integer;
procedure saisie( var n:integer);
begin
repeat
writeln('saisir n');
readln(n);
until n in [4..30];
end;
function verif (ch:string):boolean;
var j:integer;
begin
j:=1;
while (ch[j] in ['0'..'9']) and (j<8)do
begin
j:=j+1;
end;
verif := ch[j] in ['0'..'9'];
end;
function exist (t:tab;i:integer):boolean;
var
j:integer;
begin
j:=0;
repeat
j:=j+1;
until (t[j] = t[i]) or (j=i-1);
exist:=t[i] = t[j];
end;
procedure remplir(var t:tab; n:integer);
begin
repeat
write('saisir t[1]= ');
readln(t[1]);
until (length(t[1])=8 ) and (verif (t[1]));
for i:=2 to n do
repeat
write('saisir t[',i,']= ');
readln(t[i]);
until (length(t[i])=8 ) and (verif(t[i])) and not(exist(t,i)) ;
end;
procedure affichage(t:tab; n:integer);
begin
for i:=1 to n do
writeln('t[',i,']= ',t[i]);
end;
{pp}
begin
saisie(n);
remplir(t,n);
affichage(t,n);
end.
uses wincrt;
type
tab = array[1..30]of string[8];
var
t:tab;
i,n:integer;
procedure saisie( var n:integer);
begin
repeat
writeln('saisir n');
readln(n);
until n in [4..30];
end;
function verif (ch:string):boolean;
var j:integer;
begin
j:=1;
while (ch[j] in ['0'..'9']) and (j<8)do
begin
j:=j+1;
end;
verif := ch[j] in ['0'..'9'];
end;
function exist (t:tab;i:integer):boolean;
var
j:integer;
begin
j:=0;
repeat
j:=j+1;
until (t[j] = t[i]) or (j=i-1);
exist:=t[i] = t[j];
end;
procedure remplir(var t:tab; n:integer);
begin
repeat
write('saisir t[1]= ');
readln(t[1]);
until (length(t[1])=8 ) and (verif (t[1]));
for i:=2 to n do
repeat
write('saisir t[',i,']= ');
readln(t[i]);
until (length(t[i])=8 ) and (verif(t[i])) and not(exist(t,i)) ;
end;
procedure affichage(t:tab; n:integer);
begin
for i:=1 to n do
writeln('t[',i,']= ',t[i]);
end;
{pp}
begin
saisie(n);
remplir(t,n);
affichage(t,n);
end.
Sujets similaires
» tab_positive; tab_negatif
» sujets Bac 2002(I)
» Sujets Bac 2008
» Problèmes bac scientifique
» monsieu marouene .je veux avoir la solution de cette exercices s'il ous plait Merci
» sujets Bac 2002(I)
» Sujets Bac 2008
» Problèmes bac scientifique
» monsieu marouene .je veux avoir la solution de cette exercices s'il ous plait Merci
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|