Exercices algorithme tableaux
Fermé
lola
-
18 févr. 2010 à 18:16
x-2216
x-2216
- Messages postés
- 7
- Date d'inscription
- jeudi 18 février 2010
- Statut
- Membre
- Dernière intervention
- 19 février 2010
A voir également:
- Remplir un tableau en algorithme
- Remplissage d'un tableau en algorithme - Meilleures réponses
- Comment remplir un tableau en algorithme - Meilleures réponses
- Les tableaux de l'algorithmique - Forum - Programmation
- [TPW] procedure pour remplir un tableau - Forum - Programmation
- Algorithme qui permet de remplir une matrice aleatoirement - Forum - Pascal
- Remplissage d'un tableau et sa répartition dans d'autres tableau - Forum - Algorithmes / Méthodes
- Les tableaux de l'algorithme ✓ - Forum - Programmation
11 réponses
x-2216
18 févr. 2010 à 19:16
- Messages postés
- 7
- Date d'inscription
- jeudi 18 février 2010
- Statut
- Membre
- Dernière intervention
- 19 février 2010
18 févr. 2010 à 19:16
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!!!!
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!!!!
