Exercices algorithme tableaux

salut

pour l'ex 1:

program exercice;
uses wincrt;
type tab=array [1..10] of string;
var
x:string; T:tab;
i,j,y:integer;
test:boolean;

const n=10;

procedure remplir(var T:tab;n:integer);
begin
for i:=1 to n do
begin
repeat
write('T[',i,']=');
readln(T[i]);
x:=T[i];
for j:=1 to length(x) do
begin
if (x[j] in ['A'..'Z'])then
test:=true
else test:=false;
end;
until test=true;
end;
end;

procedure suppression(var T:tab;n:integer);
begin
for i:=1 to n do
begin
x:=T[i];
for j:=1 to length(x) do
begin
if (x[j]='E') then
delete(x,j,1);
T[i]:=x;
end;
end;
end;

procedure affichage(T:tab;n:integer);
begin
for i:=1 to n do
begin
writeln('T[',i,']=',T[i]);
end;
end;

BEGIN
writeln('donner des chaines de carcteres majuscules');
remplir(T,n);
suppression(T,n);
affichage(T,n);
END.


j'espere que ça vous aide!!!!

^^
that's good!!

lol
c'est pas grave
pour l'ex 2:

program tableaux;
uses wincrt;
type tab=array [1..12,1..8] of real;
var T:tab;
i,j:integer;
max:real;

procedure remplir_tab(var T:tab);
begin
for i:=1 to 12 do
begin
for j:=1 to 8 do
begin
write('T[',i,',',j,']=');
readln(T[i,j]);
end;
end;
end;

procedure chercher_max(T:tab);
begin
max:=T[1,1];
for i:=1 to 12 do
begin
for j:=1 to 8 do
begin
if (max < T[i,j]) then
max:=T[i,j];
end;
end;
end;

procedure affichage(max:real);
begin
writeln('');
writeln('le maximum est',max);
end;

BEGIN
remplir_tab(T);
chercher_max(T);
affichage(max);
END.


mais je sais pas si c'est juste ou non!!
j'espere que ça vous aide!!

Pour le 1 il te sufftit de faire une boucle, comme tu as la taille du tableau, tu fais tant que i est infèrieur à 10, alors fais 1, sinon arrête toi ...

En claire, dans cette boucle tu prend j, variable, caractereActuel que tu rend egale à la valeur du tableau[i], puis fais un if, then sur caractèreActuel en verifiant si il est égale à E ... SI 1, alors tu supprime ce caractère du tableau[i] et tu continu ...

Bonne continuation ;)

merci bien mon frere que ALLAH te donne ce que tu veus Inchallah ....grand merci

inchallah
id3ili puisque je suis en bac science
merci beaucoup!!

merci beaucoup!!!!!

Salut, j'ai du mal à tout comprendre, mais je suis :)

Pour le 2, il n'est pas résolu ?

puisque je suis en bac science

On fait de la prog' en bac S ?

Petit HS sorry, mais je prévois une première S pour l'année prochaine ... Et je me renseigne un peu ...

c'est de la bac science en tunisie "keke21410" on fait de la programmation avec pascal!!

merci bien monsieur keke et monsieur x ....ca m'aide beaucoup....:)...
M x vous avez gainier au match aujourd'hui...félicitation pour la Tunisie hhh...

@x-2216 >> Ah ok, I understand ^^