tab_positive; tab_negatif
2 participants
Page 1 sur 1
tab_positive; tab_negatif
il ya une faute qlq part ....????,!!!!!!!!!!!!!
program tableau;
uses wincrt;
type
tab= array[1..100] of integer;
var
t,tp,tn:tab;
n,i,j,k:integer;
begin
repeat
write('n =');readln(n);
until n in [5..20];
for i:=1 to n do
begin
write ('t[',i,']');readln(t[i])
end
;j:=1;k:=1 ;
for i:=1 to n do
begin
if t[i] >= 0 then
tp[j]:=t[i] ;j:=j+1 ;
begin
tn[k]:=t[i];k:=k+1
end
;for i:=1 to k do
begin
write('t[',i,']');readln(t[i])
end
;for i:=1 to j do
begin
write (tp[i])
end
;for i :=1 to k do
begin
write (tn[i])
end
end;
end.
program tableau;
uses wincrt;
type
tab= array[1..100] of integer;
var
t,tp,tn:tab;
n,i,j,k:integer;
begin
repeat
write('n =');readln(n);
until n in [5..20];
for i:=1 to n do
begin
write ('t[',i,']');readln(t[i])
end
;j:=1;k:=1 ;
for i:=1 to n do
begin
if t[i] >= 0 then
tp[j]:=t[i] ;j:=j+1 ;
begin
tn[k]:=t[i];k:=k+1
end
;for i:=1 to k do
begin
write('t[',i,']');readln(t[i])
end
;for i:=1 to j do
begin
write (tp[i])
end
;for i :=1 to k do
begin
write (tn[i])
end
end;
end.
Oussama Saied- Messages : 3
Date d'inscription : 18/01/2009
correction tab pos neg
program tableau;
uses wincrt;
type
tab= array[1..100] of integer;
var
t,tp,tn:tab;
n,i,j,k:integer;
begin
repeat
write('n =');readln(n);
until n in [5..20];
for i:=1 to n do
begin
write ('t[',i,']');readln(t[i]);
end;
j:=1;k:=1 ;
for i:=1 to n do
if t[i] >= 0 then
begin
tp[j]:=t[i] ;
j:=j+1 ;
end
else
begin
tn[k]:=t[i];
k:=k+1;
end;
for i:=1 to (k-1) do
begin
writeln('tn[',i,']=',tn[i]);
end;
for i:=1 to (j-1) do
begin
writeln ('tp[',i,']=',tp[i]);
end ;
end.
{au niveau de l'affichage du tp on doit s'arrêter à (j-1) car on a incrémenté j après la dernière affectation. de même pour k
uses wincrt;
type
tab= array[1..100] of integer;
var
t,tp,tn:tab;
n,i,j,k:integer;
begin
repeat
write('n =');readln(n);
until n in [5..20];
for i:=1 to n do
begin
write ('t[',i,']');readln(t[i]);
end;
j:=1;k:=1 ;
for i:=1 to n do
if t[i] >= 0 then
begin
tp[j]:=t[i] ;
j:=j+1 ;
end
else
begin
tn[k]:=t[i];
k:=k+1;
end;
for i:=1 to (k-1) do
begin
writeln('tn[',i,']=',tn[i]);
end;
for i:=1 to (j-1) do
begin
writeln ('tp[',i,']=',tp[i]);
end ;
end.
{au niveau de l'affichage du tp on doit s'arrêter à (j-1) car on a incrémenté j après la dernière affectation. de même pour k
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum