correction nombre de séquences croissantes

Aller en bas

correction nombre de séquences croissantes

Message  Admin le Ven 29 Avr - 20:10

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.


Admin
Admin

Messages : 137
Date d'inscription : 29/12/2010

Voir le profil de l'utilisateur http://aidescolaire.yoo7.com

Revenir en haut Aller en bas

Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum