correction nombre de séquences croissantes
Page 1 sur 1
correction nombre de séquences croissantes
SOLUTION
program nb_seq;
uses wincrt;
type
tab=array[1..20] of integer;
var
v,t:tab;
x,y,p,j,i,n:integer;
seq,ch,ch1:string;
procedure saisie(var t:tab;var n:integer);
begin
writeln('saisir n');
readln(n);
for i:=1 to n do begin
writeln('saisir l''element N°',i);
readln(t[i]);
end; end;
procedure chaine(t:tab;var i:integer;var ch:string);
var
ch1:string;
begin
str(t[i],ch);
repeat
i:=i+1;
str(t[i],ch1);
ch:=concat(ch,',',ch1);
until t[i] > t[i+1];
end;
begin
j:=1;
saisie(t,n);
i:=1;
writeln('les sequences strictement croissantes sont:');
while(i<=n) do
begin
if t[i]<t[i+1]
then
begin
chaine(t,i,ch);
write('(',ch,')',',');
i:=i+1; j:=j+1;
end
else
begin
write('(',t[i],')',',');j:=j+1;
i:=i+1;
end; end; writeln;
writeln('le nombre de sequence est =',j-1);
end.
program nb_seq;
uses wincrt;
type
tab=array[1..20] of integer;
var
v,t:tab;
x,y,p,j,i,n:integer;
seq,ch,ch1:string;
procedure saisie(var t:tab;var n:integer);
begin
writeln('saisir n');
readln(n);
for i:=1 to n do begin
writeln('saisir l''element N°',i);
readln(t[i]);
end; end;
procedure chaine(t:tab;var i:integer;var ch:string);
var
ch1:string;
begin
str(t[i],ch);
repeat
i:=i+1;
str(t[i],ch1);
ch:=concat(ch,',',ch1);
until t[i] > t[i+1];
end;
begin
j:=1;
saisie(t,n);
i:=1;
writeln('les sequences strictement croissantes sont:');
while(i<=n) do
begin
if t[i]<t[i+1]
then
begin
chaine(t,i,ch);
write('(',ch,')',',');
i:=i+1; j:=j+1;
end
else
begin
write('(',t[i],')',',');j:=j+1;
i:=i+1;
end; end; writeln;
writeln('le nombre de sequence est =',j-1);
end.
Sujets similaires
» bac2005: nombre de séquences croissantes
» nombre de consonnes et nombre de voyelles
» nombre consonnes et nombre voyelles
» nombre parfait
» bac pratique 2005 - 2
» nombre de consonnes et nombre de voyelles
» nombre consonnes et nombre voyelles
» nombre parfait
» bac pratique 2005 - 2
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum