Exercices algorithme tableaux
Fermé
lola
-
18 févr. 2010 à 18:16
x-2216 Messages postés 7 Date d'inscription jeudi 18 février 2010 Statut Membre Dernière intervention 19 février 2010 - 19 févr. 2010 à 19:13
x-2216 Messages postés 7 Date d'inscription jeudi 18 février 2010 Statut Membre Dernière intervention 19 février 2010 - 19 févr. 2010 à 19:13
A voir également:
- Algorithme remplir un tableau
- Tableau croisé dynamique - Guide
- Remplir un tableau en algorithme - Forum Programmation
- Procedure remplir tableau algorithme - Forum Programmation
- Tableau ascii - Guide
- Remplir une matrice algorithme - Forum Pascal
11 réponses
x-2216
Messages postés
7
Date d'inscription
jeudi 18 février 2010
Statut
Membre
Dernière intervention
19 février 2010
14
18 févr. 2010 à 19:16
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!!!!
